/[MITgcm]/MITgcm_contrib/jscott/pkg_atm2d/atm2d_write_pickup.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/pkg_atm2d/atm2d_write_pickup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jscott, Tue Aug 22 20:21:38 2006 UTC revision 1.3 by jscott, Tue May 1 19:38:47 2007 UTC
# Line 6  Line 6 
6       I     myIter,       I     myIter,
7       I     myThid )       I     myThid )
8    
9  C     !DESCRIPTION:  C     *==========================================================*
10  C     Write pickup files for atm2d package which needs it to restart.  C     | Write pickup files for atm2d package which needs it to   |
11  C     It writes both "rolling-checkpoint" files (ckptA,ckptB) and  C     |restart. It writes both "rolling-checkpoint" files (ckptA,|
12  C     permanent checkpoint files.  C     |ckptB) and permanent checkpoint files. NOT called from    |
13    C     |the usual MITGCM WRITE_PICKUP routine in forward step, as |
14    C     |NORM_OCN_FLUXES must be done before these fluxes are ready|
15    C     *==========================================================*
16    
17    C     Note this routine was pilfered from the MITGCM code prior to
18    C     JMC's changes in 8/06.
19    
20  C     !USES:  C     !USES:
21        IMPLICIT NONE        IMPLICIT NONE
# Line 69  CEOP Line 75  CEOP
75       &     ( modelEnd .AND. .NOT.(permCheckPoint.OR.tempCheckPoint) )       &     ( modelEnd .AND. .NOT.(permCheckPoint.OR.tempCheckPoint) )
76       &     ) THEN       &     ) THEN
77    
 #ifndef ATM2D_MPI_ON  
78          IF (tempCheckPoint)   !toggle was done prematurely...          IF (tempCheckPoint)   !toggle was done prematurely...
79       &       nCheckLev = MOD(nCheckLev, maxNoChkptLev)+1       &       nCheckLev = MOD(nCheckLev, maxNoChkptLev)+1
80  #endif  
81          CALL ATM2D_WRITE_PICKUP_NOW(          CALL ATM2D_WRITE_PICKUP_NOW(
82       &       permCheckPoint, myTime, myIter, myThid )       &       permCheckPoint, myTime, myIter, myThid )
83    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22