/[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.36 by jmc, Sun Jun 14 21:45:12 2009 UTC revision 1.37 by jmc, Tue Sep 1 19:42:39 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  C     this is done within IO routines => no longer needed  C     this is done within IO routines => no longer needed
49  c     _BARRIER  c     _BARRIER
50    
       prec = precFloat64  
       lgf = globalFiles  
   
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
53          WRITE(suffix,'(I10.10)') myIter          WRITE(suffix,'(I10.10)') myIter
# Line 80  C     Write restart file for 2nd-Order m Line 73  C     Write restart file for 2nd-Order m
73  #ifdef  ALLOW_OBCS  #ifdef  ALLOW_OBCS
74  C     SPK 4/9/01: Open boundary checkpointing  C     SPK 4/9/01: Open boundary checkpointing
75  c      IF (useOBCS) THEN  c      IF (useOBCS) THEN
76  c        CALL OBCS_WRITE_CHECKPOINT(  c        CALL OBCS_WRITE_PICKUP(
77  c     &       prec, lgf, permPickup, myIter, myThid)  c     &                  suffix, myTime, myIter, myThid )
78  c      ENDIF  c      ENDIF
79  #endif  /* ALLOW_OBCS */  #endif  /* ALLOW_OBCS */
80    
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22