7 |
& genfld, gen0, gen1, genmask, |
& genfld, gen0, gen1, genmask, |
8 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
9 |
& gen_lon0, gen_lon_inc, gen_lat0, gen_lat_inc, |
& gen_lon0, gen_lon_inc, gen_lat0, gen_lat_inc, |
10 |
& gen_nlon, gen_nlat, gen_xout, gen_yout, |
& gen_nlon, gen_nlat, gen_xout, gen_yout, interp_method, |
11 |
#endif |
#endif |
12 |
& mycurrenttime, mycurrentiter, mythid ) |
& mycurrenttime, mycurrentiter, mythid ) |
13 |
|
|
65 |
INTEGER gen_nlon, gen_nlat |
INTEGER gen_nlon, gen_nlat |
66 |
_RS gen_xout (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS gen_xout (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
67 |
_RS gen_yout (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS gen_yout (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
68 |
|
integer interp_method |
69 |
#endif |
#endif |
70 |
|
|
71 |
c == local variables == |
c == local variables == |
76 |
_RL fac |
_RL fac |
77 |
|
|
78 |
integer bi, bj |
integer bi, bj |
79 |
integer i, j |
integer i, j, il |
|
integer il, interp_method |
|
80 |
|
|
81 |
c == external == |
c == external == |
82 |
|
|
109 |
genfile0 = genfile |
genfile0 = genfile |
110 |
endif |
endif |
111 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
|
interp_method = 2 |
|
112 |
call exf_interp( genfile0, exf_iprec |
call exf_interp( genfile0, exf_iprec |
113 |
& , gen1, count0, gen_xout, gen_yout |
& , gen1, count0, gen_xout, gen_yout |
114 |
& , gen_lon0,gen_lon_inc |
& , gen_lon0,gen_lon_inc |
139 |
genfile1 = genfile |
genfile1 = genfile |
140 |
endif |
endif |
141 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
|
interp_method = 2 |
|
142 |
call exf_interp( genfile1, exf_iprec |
call exf_interp( genfile1, exf_iprec |
143 |
& , gen1, count1, gen_xout, gen_yout |
& , gen1, count1, gen_xout, gen_yout |
144 |
& , gen_lon0,gen_lon_inc |
& , gen_lon0,gen_lon_inc |