/[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.9 by mlosch, Thu Sep 16 09:35:10 2004 UTC revision 1.10 by molod, Thu Sep 30 18:59:02 2004 UTC
# Line 193  C     Write pickup file for fizhi packag Line 193  C     Write pickup file for fizhi packag
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,0,myTime,myIter,myThid)          CALL FIZHI_WRITE_VEGTILES(fn,0,myTime,myIter,myThid)
196            CALL FIZHI_WRITE_DATETIME(myTime,myIter,myThid)
197        ENDIF        ENDIF
198  #endif  #endif
199    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22