/[MITgcm]/MITgcm/model/src/do_write_pickup.F
ViewVC logotype

Diff of /MITgcm/model/src/do_write_pickup.F

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

revision 1.2 by jscott, Wed Sep 6 15:30:25 2006 UTC revision 1.7 by jmc, Thu Jun 7 17:10:28 2012 UTC
# Line 32  C     !USES: Line 32  C     !USES:
32  #include "SIZE.h"  #include "SIZE.h"
33  #include "EEPARAMS.h"  #include "EEPARAMS.h"
34  #include "PARAMS.h"  #include "PARAMS.h"
35    #include "RESTART.h"
36        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
37        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
38    
# Line 56  C     msgBuf     :: message buffer Line 57  C     msgBuf     :: message buffer
57        LOGICAL permPickup, tempPickup        LOGICAL permPickup, tempPickup
58        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
59        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
60          _RL zeroRL
61          PARAMETER( zeroRL = 0. _d 0 )
62    
63        permPickup = .FALSE.        permPickup = .FALSE.
64        tempPickup = .FALSE.        tempPickup = .FALSE.
# Line 66  C     msgBuf     :: message buffer Line 69  C     msgBuf     :: message buffer
69    
70  #ifdef ALLOW_CAL  #ifdef ALLOW_CAL
71        IF ( useCAL ) THEN        IF ( useCAL ) THEN
72           CALL CAL_TIME2DUMP( pChkPtFreq, deltaTClock,           CALL CAL_TIME2DUMP( zeroRL, pChkPtFreq, deltaTClock,
73       U                       permPickup,       U                       permPickup,
74       I                       myTime, myIter, myThid )       I                       myTime, myIter, myThid )
75           CALL CAL_TIME2DUMP( chkPtFreq,  deltaTClock,           CALL CAL_TIME2DUMP( zeroRL, chkPtFreq,  deltaTClock,
76       U                       tempPickup,       U                       tempPickup,
77       I                       myTime, myIter, myThid )       I                       myTime, myIter, myThid )
78        ENDIF        ENDIF
79  #endif  #endif
80    
81        IF (        IF ( (modelEnd.AND.writePickupAtEnd)
82       &     ( .NOT.modelEnd .AND. (permPickup.OR.tempPickup) )       &     .OR. permPickup .OR. tempPickup ) THEN
      &     .OR.  
      &     ( modelEnd .AND. .NOT.(permPickup.OR.tempPickup) )  
      &    ) THEN  
83  C--   this is time to write pickup files  C--   this is time to write pickup files
84    
85  C-    write a pickup for each package which need it to restart  C-    write a pickup for each package which need it to restart
# Line 87  C-    write a pickup for each package wh Line 87  C-    write a pickup for each package wh
87       I                permPickup, myTime, myIter, myThid )       I                permPickup, myTime, myIter, myThid )
88    
89  C-    write main model pickup  C-    write main model pickup
90          IF ( .NOT.useOffLine .AND. .NOT.useATM2D ) THEN          IF ( .NOT.useOffLine ) THEN
91             CALL WRITE_PICKUP(             CALL WRITE_PICKUP(
92       I                permPickup, myTime, myIter, myThid )       I                permPickup, myTime, myIter, myThid )
93          ENDIF          ENDIF
# Line 113  C-    Update pickup level for the next t Line 113  C-    Update pickup level for the next t
113          ENDIF          ENDIF
114          _END_MASTER(myThid)          _END_MASTER(myThid)
115    
116          ELSEIF ( modelEnd ) THEN
117            WRITE(msgBuf,'(A)')
118         &     "Did not write pickup because writePickupAtEnd = FALSE"
119            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
120         &                    SQUEEZE_RIGHT, myThid )
121    
122  C--   time to write pickup files: end  C--   time to write pickup files: end
123        ENDIF        ENDIF
124    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22