make interp2d
make interp3d
To run the code just issue the command interp2d . By default
the input is read from a file called interp2d.dat. Idem for interp3d.
The structures of the input files are listed below.
sphere (logical flag) grid_file (character) point_file (character)
dlon=(lon1-lon0)/(nxi-1)
dlat=(lat1-lat0)/(nyi-1)
dz=(z1-z0)/(nzi-1)
read(88,*) nxi, nyi
do ij = 1,nxi*nyi
read(88,*) alon(ij), alat(ij)
enddo
lon0, lon1, nxi (real, real, integer) lat0, lat1, nyi (real, real, integer) input_file (character) output_file (character) sphere (logical flag) grid_file (character) point_file (character)
dlon=(lon1-lon0)/(nxi-1)
dlat=(lat1-lat0)/(nyi-1)
dz=(z1-z0)/(nzi-1)
read(88,*) nxi, nyi
do ij = 1,nxi*nyi
read(88,*) alon(ij), alat(ij)
enddo
lon0, lon1, nxi (real, real, integer) lat0, lat1, nyi (real, real, integer) z0, z1, nzi (real, real, integer) nelem_vt, npts_vt (integer, integer) elev_file (character) input_file (character) output_file (character) NCARSPV =-999999.0_r8 .
dsig= (z1-z0)/(nzi-1)
sig(k) = z0 + (j-1) * dsig
z(k) = h/2 * (sig(k)-1)