/[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.15 by edhill, Thu Jun 9 16:38:24 2005 UTC revision 1.20 by cnh, Tue Nov 8 23:01:10 2005 UTC
# Line 54  C     oldPrc :: Temp. for holding I/O pr Line 54  C     oldPrc :: Temp. for holding I/O pr
54  C     fn     :: Temp. for building file name string.  C     fn     :: Temp. for building file name string.
55  C     lgf    :: Flag to indicate whether to use global file mode.  C     lgf    :: Flag to indicate whether to use global file mode.
56        LOGICAL permCheckPoint, tempCheckPoint          LOGICAL permCheckPoint, tempCheckPoint  
57    #ifdef ALLOW_CAL
58        INTEGER thisdate(4), prevdate(4)        INTEGER thisdate(4), prevdate(4)
59    #endif
60  CEOP  CEOP
61    
62        permCheckPoint = .FALSE.        permCheckPoint = .FALSE.
# Line 157  CEOP Line 159  CEOP
159    
160  C     Going to really do some IO. Make everyone except master thread wait.  C     Going to really do some IO. Make everyone except master thread wait.
161        _BARRIER        _BARRIER
162        _BEGIN_MASTER( myThid )  C     _BEGIN_MASTER( myThid )
163    
164        prec = precFloat64        prec = precFloat64
165        lgf = globalFile        lgf = globalFile
# Line 213  C     Write restart file for floats Line 215  C     Write restart file for floats
215  #endif  #endif
216    
217  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
218  C     Write pickup file for Lnad package:  C     Write pickup file for Land package:
219        IF (useLand) THEN        IF (useLand) THEN
220          CALL LAND_WRITE_PICKUP(fn,myTime,myIter,myThid)          CALL LAND_WRITE_PICKUP(permCheckPoint,fn,
221         &       myTime,myIter,myThid)
222        ENDIF        ENDIF
223  #endif  #endif
224    
# Line 231  C     Write pickup file for fizhi packag Line 234  C     Write pickup file for fizhi packag
234  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
235  C     Write pickup file for diagnostics package  C     Write pickup file for diagnostics package
236        IF (useDiagnostics) THEN        IF (useDiagnostics) THEN
237          CALL DIAGNOSTICS_WRITE_PICKUP(fn,myTime,myIter,myThid)          CALL DIAGNOSTICS_WRITE_PICKUP(permCheckPoint,
238         &       fn,myTime,myIter,myThid)
239        ENDIF        ENDIF
240  #endif  #endif
241    
# Line 242  C     Write pickup file for diagnostics Line 246  C     Write pickup file for diagnostics
246        ENDIF        ENDIF
247  #endif  /* ALLOW_GGL90 */  #endif  /* ALLOW_GGL90 */
248    
249        _END_MASTER( myThid )  C     _END_MASTER( myThid )
250        _BARRIER        _BARRIER
251    
252  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
253  C     Write restart file for passive tracers  C     Write restart file for passive tracers
254        IF (usePTRACERS) THEN        IF (usePTRACERS) THEN
255          CALL PTRACERS_WRITE_CHECKPOINT(fn,myIter,myTime,myThid)          CALL PTRACERS_WRITE_CHECKPOINT(permCheckPoint,
256         &       fn,myIter,myTime,myThid)
257        ENDIF        ENDIF
258  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
259    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22