/[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.32 by jmc, Sun Apr 6 20:53:22 2008 UTC revision 1.38 by jmc, Thu Oct 1 21:28:09 2009 UTC
# Line 40  C     myThid     :: Thread number for th Line 40  C     myThid     :: Thread number for th
40    
41  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
42  C     == Local variables ==  C     == Local variables ==
 C     prec   :: file precision  
43  C     suffix :: pickup-name suffix  C     suffix :: pickup-name suffix
 C     lgf    :: Flag to indicate whether to use global file mode.  
44        CHARACTER*(10) suffix        CHARACTER*(10) suffix
       INTEGER prec  
       LOGICAL lgf  
45  CEOP  CEOP
46    
47  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.
48        _BARRIER  C     this is done within IO routines => no longer needed
49    c     _BARRIER
       prec = precFloat64  
       lgf = globalFiles  
50    
51  C     Create suffix to pass on to package pickup routines  C     Create suffix to pass on to package pickup routines
52        IF ( permPickup ) THEN        IF ( permPickup ) THEN
# Line 77  C     Write restart file for 2nd-Order m Line 71  C     Write restart file for 2nd-Order m
71  #endif /* ALLOW_CD_CODE */  #endif /* ALLOW_CD_CODE */
72    
73  #ifdef  ALLOW_OBCS  #ifdef  ALLOW_OBCS
74  C     SPK 4/9/01: Open boundary checkpointing        IF (useOBCS) THEN
75  c      IF (useOBCS) THEN          CALL OBCS_WRITE_PICKUP(
76  c        CALL OBCS_WRITE_CHECKPOINT(       &                  suffix, myTime, myIter, myThid )
77  c     &       prec, lgf, permPickup, myIter, myThid)        ENDIF
 c      ENDIF  
78  #endif  /* ALLOW_OBCS */  #endif  /* ALLOW_OBCS */
79    
80  #ifdef  ALLOW_SEAICE  #ifdef  ALLOW_SEAICE
# Line 108  c      ENDIF Line 101  c      ENDIF
101  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
102  C     Write restart file for floats  C     Write restart file for floats
103        IF (useFLT) THEN        IF (useFLT) THEN
104          CALL FLT_RESTART(myTime, myIter, myThid)          CALL FLT_WRITE_PICKUP(
105         &                  suffix, myTime, myIter, myThid )
106        ENDIF        ENDIF
107  #endif  #endif
108    
# Line 155  C     Write restart file for passive tra Line 149  C     Write restart file for passive tra
149  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
150  C     Write restart file for GCHEM pkg & GCHEM sub-packages  C     Write restart file for GCHEM pkg & GCHEM sub-packages
151        IF ( useGCHEM ) THEN        IF ( useGCHEM ) THEN
152          CALL DIC_WRITE_PICKUP( permPickup,          CALL GCHEM_WRITE_PICKUP( permPickup,
153       I                      suffix, myTime, myIter, myThid )       I                      suffix, myTime, myIter, myThid )
154        ENDIF        ENDIF
155  #endif  #endif
156    
157    #ifdef ALLOW_CHEAPAML
158    C     Write restart file for CHEAPAML pkg
159          IF ( useCheapAML ) THEN
160             CALL CHEAPAML_WRITE_PICKUP( permPickup,
161         I                      suffix, myTime, myIter, myThid)
162           ENDIF
163    #endif /* ALLOW_CHEAPAML */
164    
165  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
166        IF (useMYPACKAGE) THEN        IF (useMYPACKAGE) THEN
167          CALL MYPACKAGE_WRITE_PICKUP( permPickup,          CALL MYPACKAGE_WRITE_PICKUP( permPickup,
# Line 168  C     Write restart file for GCHEM pkg & Line 170  C     Write restart file for GCHEM pkg &
170  #endif /* ALLOW_MYPACKAGE */  #endif /* ALLOW_MYPACKAGE */
171    
172  C--   Every one else must wait until writing is done.  C--   Every one else must wait until writing is done.
173        _BARRIER  C     this is done within IO routines => no longer needed
174    c     _BARRIER
175    
176        RETURN        RETURN
177        END        END
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22