154 |
& , gen_nlon,gen_nlat,interp_method,mythid |
& , gen_nlon,gen_nlat,interp_method,mythid |
155 |
& ) |
& ) |
156 |
#else |
#else |
157 |
|
_BARRIER |
158 |
call mdsreadfield( genfile0, exf_iprec, exf_yftype, 1 |
call mdsreadfield( genfile0, exf_iprec, exf_yftype, 1 |
159 |
& , gen1, count0, mythid |
& , gen1, count0, mythid |
160 |
& ) |
& ) |
161 |
|
_BARRIER |
162 |
#endif /* USE_EXF_INTERPOLATION */ |
#endif /* USE_EXF_INTERPOLATION */ |
163 |
|
|
164 |
if (exf_yftype .eq. 'RL') then |
if (exf_yftype .eq. 'RL') then |
197 |
& , gen_nlon,gen_nlat,interp_method,mythid |
& , gen_nlon,gen_nlat,interp_method,mythid |
198 |
& ) |
& ) |
199 |
#else |
#else |
200 |
|
_BARRIER |
201 |
call mdsreadfield( genfile1, exf_iprec, exf_yftype, 1 |
call mdsreadfield( genfile1, exf_iprec, exf_yftype, 1 |
202 |
& , gen1, count1, mythid |
& , gen1, count1, mythid |
203 |
& ) |
& ) |
204 |
|
_BARRIER |
205 |
#endif /* USE_EXF_INTERPOLATION */ |
#endif /* USE_EXF_INTERPOLATION */ |
206 |
|
|
207 |
if (exf_yftype .eq. 'RL') then |
if (exf_yftype .eq. 'RL') then |
231 |
|
|
232 |
endif |
endif |
233 |
|
|
234 |
end |
RETURN |
235 |
|
END |
236 |
|
|
237 |
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
238 |
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
325 |
& , gen_nlon,gen_nlat,interp_method,mythid |
& , gen_nlon,gen_nlat,interp_method,mythid |
326 |
& ) |
& ) |
327 |
#else |
#else |
328 |
|
_BARRIER |
329 |
call mdsreadfield( genfile, exf_iprec, exf_yftype, 1 |
call mdsreadfield( genfile, exf_iprec, exf_yftype, 1 |
330 |
& , genfld, count, mythid |
& , genfld, count, mythid |
331 |
& ) |
& ) |
332 |
|
_BARRIER |
333 |
#endif /* USE_EXF_INTERPOLATION */ |
#endif /* USE_EXF_INTERPOLATION */ |
334 |
|
|
335 |
if (exf_yftype .eq. 'RL') then |
if (exf_yftype .eq. 'RL') then |
353 |
|
|
354 |
endif |
endif |
355 |
|
|
356 |
end |
RETURN |
357 |
|
END |