/[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.10 by jmc, Thu Mar 8 20:07:43 2001 UTC revision 1.11 by heimbach, Tue Apr 10 22:35:26 2001 UTC
# Line 38  C               record corresponding to Line 38  C               record corresponding to
38    
39    
40  CStartofinterface  CStartofinterface
41        SUBROUTINE WRITE_STATE ( forceOutput, myCurrentTime,        SUBROUTINE WRITE_STATE ( myCurrentTime, myIter, myThid )
      &    myIter, myThid )  
42  C     /==========================================================\  C     /==========================================================\
43  C     | SUBROUTINE WRITE_STATE                                   |  C     | SUBROUTINE WRITE_STATE                                   |
44  C     | o Controlling routine for IO to dump model state.        |  C     | o Controlling routine for IO to dump model state.        |
# Line 68  C     == Routine arguments == Line 67  C     == Routine arguments ==
67  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
68  C     myIter - Iteration number  C     myIter - Iteration number
69  C     myCurrentTime - Current time of simulation ( s )  C     myCurrentTime - Current time of simulation ( s )
       LOGICAL forceOutput  
70        _RL     myCurrentTime        _RL     myCurrentTime
71        INTEGER myThid        INTEGER myThid
72        INTEGER myIter        INTEGER myIter
# Line 79  C     == Local variables == Line 77  C     == Local variables ==
77        INTEGER iRec        INTEGER iRec
78    
79        IF (        IF (
80       &     ( DIFFERENT_MULTIPLE(dumpFreq,myCurrentTime,       &     DIFFERENT_MULTIPLE(dumpFreq,myCurrentTime,
81       &     myCurrentTime-deltaTClock) .AND. myCurrentTime.NE.endTime )       &     myCurrentTime-deltaTClock) .OR.
82       &     .OR. forceOutput       &     myCurrentTime.EQ.endTime .OR.
83         &     myCurrentTime.EQ.startTime
84       &     ) THEN       &     ) THEN
85           iRec = int ( (myCurrentTime-startTime) / dumpFreq +1.5 )           iRec = int ( (myCurrentTime-startTime) / dumpFreq +1.5 )
86                    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22