/[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.10 by molod, Thu Sep 30 18:59:02 2004 UTC revision 1.11 by edhill, Sun Feb 20 04:31:54 2005 UTC
# Line 197  C     Write pickup file for fizhi packag Line 197  C     Write pickup file for fizhi packag
197        ENDIF        ENDIF
198  #endif  #endif
199    
200    #ifdef ALLOW_DIAGNOSTICS
201    C     Write pickup file for diagnostics package
202          IF (useDiagnostics) THEN
203            CALL DIAGNOSTICS_WRITE_PICKUP(fn,myTime,myIter,myThid)
204          ENDIF
205    #endif
206    
207  #ifdef  ALLOW_GGL90  #ifdef  ALLOW_GGL90
208        IF ( useGGL90 ) THEN        IF ( useGGL90 ) THEN
209          CALL GGL90_WRITE_CHECKPOINT(          CALL GGL90_WRITE_CHECKPOINT(
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22