/[MITgcm]/MITgcm/model/src/packages_write_pickup.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_write_pickup.F

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

revision 1.6 by edhill, Fri Aug 6 21:12:14 2004 UTC revision 1.7 by molod, Wed Aug 18 15:48:24 2004 UTC
# Line 192  C     Write pickup file for Lnad package Line 192  C     Write pickup file for Lnad package
192  C     Write pickup file for fizhi package  C     Write pickup file for fizhi package
193        IF (usefizhi) THEN        IF (usefizhi) THEN
194          CALL FIZHI_WRITE_PICKUP(fn,myTime,myIter,myThid)          CALL FIZHI_WRITE_PICKUP(fn,myTime,myIter,myThid)
195  C        CALL FIZHI_WRITE_VEGTILES(fn,'D',myTime,myIter,myThid)          CALL FIZHI_WRITE_VEGTILES(fn,'D',myTime,myIter,myThid)
196        ENDIF        ENDIF
197  #endif  #endif
198    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22