232 |
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
233 |
|
|
234 |
subroutine exf_init_gen ( |
subroutine exf_init_gen ( |
235 |
& genfile, exf_inscal_gen, genmask, |
& genfile, genperiod, exf_inscal_gen, genmask, |
236 |
& genconst, genfld, gen0, gen1, |
& genconst, genfld, gen0, gen1, |
237 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
238 |
& gen_lon0, gen_lon_inc, gen_lat0, gen_lat_inc, |
& gen_lon0, gen_lon_inc, gen_lat0, gen_lat_inc, |
267 |
|
|
268 |
c == routine arguments == |
c == routine arguments == |
269 |
|
|
270 |
_RL exf_inscal_gen |
_RL genperiod, exf_inscal_gen, genconst |
|
_RL genconst |
|
271 |
_RL genfld(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL genfld(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
272 |
_RL gen0 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL gen0 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
273 |
_RL gen1 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL gen1 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
308 |
enddo |
enddo |
309 |
enddo |
enddo |
310 |
|
|
311 |
if ( genfile .NE. ' ' ) then |
if ( genfile .NE. ' ' .and. genperiod .eq. 0. ) then |
312 |
count = 1 |
count = 1 |
313 |
|
|
314 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |