/[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.13 by heimbach, Thu Mar 2 02:53:23 2006 UTC revision 1.14 by heimbach, Thu Oct 12 21:34:59 2006 UTC
# Line 207  c     Interpolate linearly onto the  tim Line 207  c     Interpolate linearly onto the  tim
207    
208    
209        subroutine exf_init_gen (        subroutine exf_init_gen (
210       &     genconst, genfld, gen0, gen1, mythid )       &     genconst, genfld, gen0, gen1, geninitfile, mythid )
211    
212  c     ==================================================================  c     ==================================================================
213  c     SUBROUTINE exf_init_gen  c     SUBROUTINE exf_init_gen
# Line 239  c     == routine arguments == Line 239  c     == routine arguments ==
239        _RL genfld(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL genfld(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
240        _RL gen0  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL gen0  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
241        _RL gen1  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL gen1  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
242          character*(128) geninitfile
243        integer mythid        integer mythid
244    
245  c     == local variables ==  c     == local variables ==
# Line 260  c     == end of interface == Line 261  c     == end of interface ==
261          enddo          enddo
262        enddo        enddo
263    
264          if ( geninitfile .NE. ' ' ) then
265             call mdsreadfield( geninitfile, exf_iprec, exf_yftype,
266         &        1, genfld, 1, mythid )
267          endif
268    
269        end        end
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22