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

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

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

revision 1.19 by mlosch, Wed Sep 18 16:38:02 2002 UTC revision 1.20 by dimitri, Tue Feb 18 05:33:54 2003 UTC
# Line 86  CEOP Line 86  CEOP
86       &     myTime.EQ.endTime .OR.       &     myTime.EQ.endTime .OR.
87       &     myTime.EQ.startTime       &     myTime.EQ.startTime
88       &     ) THEN       &     ) THEN
89           iRec = int ( (myTime-startTime) / dumpFreq +1.5 )           IF ( dumpFreq .EQ. 0.0 ) THEN
90                iRec = 1
91             ELSE
92                iRec = int ( (myTime-startTime) / dumpFreq +1.5 )
93             ENDIF
94                    
95  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.
96           _BARRIER           _BARRIER
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22