72 |
_RL fac |
_RL fac |
73 |
|
|
74 |
integer bi, bj |
integer bi, bj |
75 |
integer i, j |
integer i, j, interp_method |
76 |
|
|
77 |
c == end of interface == |
c == end of interface == |
78 |
|
|
88 |
|
|
89 |
if ( first ) then |
if ( first ) then |
90 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
91 |
|
interp_method = 2 |
92 |
call exf_interp( genfile, exf_iprec |
call exf_interp( genfile, exf_iprec |
93 |
& , gen1, count0, gen_xout, gen_yout |
& , gen1, count0, gen_xout, gen_yout |
94 |
& , gen_lon0,gen_lon_inc |
& , gen_lon0,gen_lon_inc |
95 |
& , gen_lat0,gen_lat_inc |
& , gen_lat0,gen_lat_inc |
96 |
& , gen_nlon,gen_nlat,mythid |
& , gen_nlon,gen_nlat,interp_method,mythid |
97 |
& ) |
& ) |
98 |
#else |
#else |
99 |
call mdsreadfield( genfile, exf_iprec, exf_yftype, 1 |
call mdsreadfield( genfile, exf_iprec, exf_yftype, 1 |
116 |
& , gen1, count1, gen_xout, gen_yout |
& , gen1, count1, gen_xout, gen_yout |
117 |
& , gen_lon0,gen_lon_inc |
& , gen_lon0,gen_lon_inc |
118 |
& , gen_lat0,gen_lat_inc |
& , gen_lat0,gen_lat_inc |
119 |
& , gen_nlon,gen_nlat,mythid |
& , gen_nlon,gen_nlat,interp_method,mythid |
120 |
& ) |
& ) |
121 |
#else |
#else |
122 |
call mdsreadfield( genfile, exf_iprec, exf_yftype, 1 |
call mdsreadfield( genfile, exf_iprec, exf_yftype, 1 |