/[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.30 by dfer, Tue Mar 11 20:57:14 2008 UTC revision 1.31 by jmc, Sun Apr 6 02:00:00 2008 UTC
# Line 140  C     Write pickup file for diagnostics Line 140  C     Write pickup file for diagnostics
140  #ifdef  ALLOW_GGL90  #ifdef  ALLOW_GGL90
141        IF ( useGGL90 ) THEN        IF ( useGGL90 ) THEN
142          CALL GGL90_WRITE_PICKUP( permPickup,          CALL GGL90_WRITE_PICKUP( permPickup,
143       I                   suffix, myIter, myTime, myThid )       I                      suffix, myTime, myIter, myThid )
144        ENDIF        ENDIF
145  #endif  /* ALLOW_GGL90 */  #endif  /* ALLOW_GGL90 */
146    
# Line 148  C     Write pickup file for diagnostics Line 148  C     Write pickup file for diagnostics
148  C     Write restart file for passive tracers  C     Write restart file for passive tracers
149        IF (usePTRACERS) THEN        IF (usePTRACERS) THEN
150          CALL PTRACERS_WRITE_PICKUP( permPickup,          CALL PTRACERS_WRITE_PICKUP( permPickup,
151       &                      suffix, myIter, myTime, myThid )       I                      suffix, myTime, myIter, myThid )
152        ENDIF        ENDIF
153  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
154    
155  #ifdef ALLOW_DIC  #ifdef ALLOW_DIC
156  C     Write restart file for dic package  C     Write restart file for dic package
157        CALL DIC_WRITE_PICKUP( permPickup,        CALL DIC_WRITE_PICKUP( permPickup,
158       I                   suffix, myIter, myTime, myThid )       I                   suffix, myTime, myIter, myThid )
159  #endif  #endif
160    
161  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
162        IF (useMYPACKAGE) THEN        IF (useMYPACKAGE) THEN
163          CALL MYPACKAGE_WRITE_PICKUP( permPickup,          CALL MYPACKAGE_WRITE_PICKUP( permPickup,
164       &                      suffix, myIter, myTime, myThid )       I                      suffix, myTime, myIter, myThid )
165        ENDIF        ENDIF
166  #endif /* ALLOW_MYPACKAGE */  #endif /* ALLOW_MYPACKAGE */
167    
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22