111 |
|
|
112 |
elseif ( genperiod .lt. 0 ) then |
elseif ( genperiod .lt. 0 ) then |
113 |
print *, 'genperiod is out of range' |
print *, 'genperiod is out of range' |
114 |
STOP 'ABNORMAL END: S/R EXF_GETFFIELDREC' |
STOP 'ABNORMAL END: S/R EXF_SET_GEN' |
115 |
|
|
116 |
else |
else |
117 |
c get record numbers and interpolation factor for gen |
c get record numbers and interpolation factor for gen |
338 |
call exf_filter_rs( genfld, genmask, mythid ) |
call exf_filter_rs( genfld, genmask, mythid ) |
339 |
end if |
end if |
340 |
|
|
341 |
c Loop over tiles. |
c Loop over tiles and scale genfld |
342 |
do bj = mybylo(mythid),mybyhi(mythid) |
do bj = mybylo(mythid),mybyhi(mythid) |
343 |
do bi = mybxlo(mythid),mybxhi(mythid) |
do bi = mybxlo(mythid),mybxhi(mythid) |
344 |
do j = 1,sny |
do j = 1,sny |
345 |
do i = 1,snx |
do i = 1,snx |
|
c Interpolate linearly onto the time. |
|
346 |
genfld(i,j,bi,bj) = |
genfld(i,j,bi,bj) = |
347 |
& exf_inscal_gen * genfld(i,j,bi,bj) |
& exf_inscal_gen * genfld(i,j,bi,bj) |
348 |
enddo |
enddo |