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

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

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

revision 1.57 by edhill, Sat Sep 17 03:17:05 2005 UTC revision 1.58 by jmc, Fri Nov 4 01:19:24 2005 UTC
# Line 77  C     !LOCAL VARIABLES: Line 77  C     !LOCAL VARIABLES:
77  C     oldPrec :: Temp. for hold I/O precision information  C     oldPrec :: Temp. for hold I/O precision information
78  C     prec      C     prec    
79  C     fn      :: Temp. for building file name.  C     fn      :: Temp. for building file name.
80        INTEGER oldPrec, prec        INTEGER prec
81        INTEGER i, j, nj        INTEGER i, nj
82        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
83        CHARACTER*(10) suff        CHARACTER*(10) suff
84    #ifdef OLD_STYLE_WITH_MANY_FILES
85          INTEGER oldPrec
86    #endif
87    #ifdef ALLOW_ADAMSBASHFORTH_3
88          INTEGER j
89    #endif
90    
91  C     Suffix for pickup files  C     Suffix for pickup files
92        DO i = 1,MAX_LEN_FNAM        DO i = 1,MAX_LEN_FNAM
# Line 369  C                       be written. Line 375  C                       be written.
375  C     tempCheckPoint :: Flag indicating if it is time to write a non-permanent  C     tempCheckPoint :: Flag indicating if it is time to write a non-permanent
376  C                       checkpoint (that will be permanent if permCheckPoint=T)  C                       checkpoint (that will be permanent if permCheckPoint=T)
377        LOGICAL permCheckPoint, tempCheckPoint          LOGICAL permCheckPoint, tempCheckPoint  
378    #ifdef ALLOW_CAL
379        INTEGER thisdate(4), prevdate(4)        INTEGER thisdate(4), prevdate(4)
380    #endif
381    
382        permCheckPoint = .FALSE.        permCheckPoint = .FALSE.
383        tempCheckPoint = .FALSE.        tempCheckPoint = .FALSE.
# Line 467  C     !LOCAL VARIABLES: Line 475  C     !LOCAL VARIABLES:
475  C     oldPrc :: Temp. for holding I/O precision  C     oldPrc :: Temp. for holding I/O precision
476  C     fn     :: Temp. for building file name string.  C     fn     :: Temp. for building file name string.
477  C     lgf    :: Flag to indicate whether to use global file mode.  C     lgf    :: Flag to indicate whether to use global file mode.
478        INTEGER oldPrec, prec  #ifdef OLD_STYLE_WITH_MANY_FILES
479          INTEGER oldPrec
480    #endif
481          INTEGER prec
482        INTEGER i, nj        INTEGER i, nj
483        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
484        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58
  ViewVC Help
Powered by ViewVC 1.1.22