/[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.14 by jmc, Sun May 15 03:02:08 2005 UTC revision 1.15 by edhill, Thu Jun 9 16:38:24 2005 UTC
# Line 242  C     Write pickup file for diagnostics Line 242  C     Write pickup file for diagnostics
242        ENDIF        ENDIF
243  #endif  /* ALLOW_GGL90 */  #endif  /* ALLOW_GGL90 */
244    
245         _END_MASTER( myThid )        _END_MASTER( myThid )
246         _BARRIER        _BARRIER
247    
248  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
249  C      Write restart file for passive tracers  C     Write restart file for passive tracers
250         IF (usePTRACERS) THEN        IF (usePTRACERS) THEN
251           CALL PTRACERS_WRITE_CHECKPOINT(fn,myIter,myTime,myThid)          CALL PTRACERS_WRITE_CHECKPOINT(fn,myIter,myTime,myThid)
252         ENDIF        ENDIF
253  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
254    
255    #ifdef ALLOW_OFFLINE
256    C     This is quick fix for A/B checkpoints since the main model
257    C     checkpoint routine will not be called in OFFLINE mode and will
258    C     thus not have the chance to set the alternating A/B suffix
259          IF ( .NOT. permCheckPoint ) THEN
260            nCheckLev = MOD(nCheckLev, maxNoChkptLev)+1
261          ENDIF
262    #endif /* ALLOW_OFFLINE */
263    
264        RETURN        RETURN
265        END        END
266    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22