/[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.7 by molod, Wed Aug 18 15:48:24 2004 UTC revision 1.8 by molod, Wed Aug 18 15:56:05 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          CALL FIZHI_WRITE_VEGTILES(fn,'D',myTime,myIter,myThid)          CALL FIZHI_WRITE_VEGTILES(fn,0,myTime,myIter,myThid)
196        ENDIF        ENDIF
197  #endif  #endif
198    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22