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

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

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

revision 1.52 by spk, Wed Apr 20 15:47:13 2005 UTC revision 1.53 by jmc, Sun May 15 03:02:08 2005 UTC
# Line 33  C     !USES: Line 33  C     !USES:
33  #include "EEPARAMS.h"  #include "EEPARAMS.h"
34  #include "PARAMS.h"  #include "PARAMS.h"
35  #include "DYNVARS.h"  #include "DYNVARS.h"
36        LOGICAL  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
37        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
38    
39  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
40  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
# Line 49  CEOP Line 49  CEOP
49  C     Generaly only thread 1 does IO here. It can not start until  C     Generaly only thread 1 does IO here. It can not start until
50  C     all threads fields are ready.  C     all threads fields are ready.
51        IF (debugMode) THEN        IF (debugMode) THEN
52          IF ( DIFF_BASE_MULTIPLE(baseTime,dumpFreq,myTime,deltaTClock)          IF ( DIFFERENT_MULTIPLE(dumpFreq,myTime,deltaTClock)
53       &     ) THEN       &     ) THEN
54    
55            _BARRIER            _BARRIER
Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53
  ViewVC Help
Powered by ViewVC 1.1.22