gfortran -o f90_GMTseep.exe f90_GMTseep.f90

copy 0_cpt_tunnel.cpt 0_cpt.cpt

rem define of mesh colour (1:MATEL)
echo 255 255 204 > _col_mesh.txt
echo   0 255 255 >> _col_mesh.txt
echo 255   0 255 >> _col_mesh.txt
echo   0 255 255 >> _col_mesh.txt
echo 255 255 204 >> _col_mesh.txt

rem integer::ind,ibc,iph,ivc,isc
rem real(4)::baselength,grdspc
rem real(4)::bav,bfv
rem real(4)::conint,annint
rem character::strx*100,strz*100
echo 0 0 0 2 1 > _inp_base.txt
echo 12.0 0.5 >> _inp_base.txt
echo 50.0 10.0 >> _inp_base.txt
echo 10.0 50.0 >> _inp_base.txt
echo "Distance (m)" >> _inp_base.txt
echo "Altitude (m)" >> _inp_base.txt

f90_GMTseep out_tunnel_0m.csv
copy fig_gmt_conp.eps fig_gmt_conp_tunnel0.eps
copy fig_gmt_conh.eps fig_gmt_conh_tunnel0.eps
copy fig_gmt_vect.eps fig_gmt_vect_tunnel0.eps

f90_GMTseep out_tunnel_1m.csv
copy fig_gmt_conp.eps fig_gmt_conp_tunnel1.eps
copy fig_gmt_conh.eps fig_gmt_conh_tunnel1.eps
copy fig_gmt_vect.eps fig_gmt_vect_tunnel1.eps

f90_GMTseep out_tunnel_2m.csv
copy fig_gmt_conp.eps fig_gmt_conp_tunnel2.eps
copy fig_gmt_conh.eps fig_gmt_conh_tunnel2.eps
copy fig_gmt_vect.eps fig_gmt_vect_tunnel2.eps

f90_GMTseep out_tunnel_3m.csv
copy fig_gmt_conp.eps fig_gmt_conp_tunnel3.eps
copy fig_gmt_conh.eps fig_gmt_conh_tunnel3.eps
copy fig_gmt_vect.eps fig_gmt_vect_tunnel3.eps

f90_GMTseep out_tunnel_4m.csv
copy fig_gmt_conp.eps fig_gmt_conp_tunnel4.eps
copy fig_gmt_conh.eps fig_gmt_conh_tunnel4.eps
copy fig_gmt_vect.eps fig_gmt_vect_tunnel4.eps

copy fig_gmt_mesh.eps fig_gmt_mesh_tunnel.eps

del fig_gmt_mesh.eps
del fig_gmt_conp.eps
del fig_gmt_conh.eps
del fig_gmt_vect.eps
del _*