/[MITgcm]/MITgcm/pkg/exf/exf_set_gen.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_set_gen.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.22 by jmc, Fri Nov 30 22:22:06 2007 UTC revision 1.23 by dimitri, Fri Jan 25 01:07:49 2008 UTC
# Line 111  c     Jan. through Dec. Line 111  c     Jan. through Dec.
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
# Line 338  c     == end of interface == Line 338  c     == end of interface ==
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
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22