/[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.3 by jmc, Mon Dec 15 18:40:10 2003 UTC revision 1.4 by molod, Thu Jan 29 14:17:58 2004 UTC
# Line 143  C--     Write pickup file for Lnad packa Line 143  C--     Write pickup file for Lnad packa
143          ENDIF          ENDIF
144  #endif  #endif
145    
146    #ifdef ALLOW_FIZHI
147    C--     Write pickup file for fizhi package
148            IF (usefizhi) THEN
149              CALL FIZHI_WRITE_PICKUP(fn,myTime,myIter,myThid)
150            ENDIF
151    #endif
152    
153    
154         _END_MASTER( myThid )         _END_MASTER( myThid )
155         _BARRIER         _BARRIER
156    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22