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

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

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

revision 1.13 by adcroft, Wed Jun 17 21:07:02 1998 UTC revision 1.14 by adcroft, Thu Jun 18 13:56:06 1998 UTC
# Line 86  C     == Global variables === Line 86  C     == Global variables ===
86  #include "PARAMS.h"  #include "PARAMS.h"
87  #include "CG2D.h"  #include "CG2D.h"
88  #include "DYNVARS.h"  #include "DYNVARS.h"
89    #include "AVER.h"
90    
91  C     == Routine arguments ==  C     == Routine arguments ==
92  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
# Line 117  C--    Load forcing/external data fields Line 118  C--    Load forcing/external data fields
118  C--    Step forward fields and calculate time tendency terms  C--    Step forward fields and calculate time tendency terms
119         CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )         CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )
120    
121    C--    Do time averages
122           IF (taveFreq.GT.0.) THEN
123             CALL DO_TIME_AVERAGES( myCurrentTime, myCurrentIter, myThid )
124           ENDIF
125    
126  C--    Do IO if needed.  C--    Do IO if needed.
127  C      Note:  C      Note:
128  C      =====  C      =====
# Line 151  C      "state" files. This example is re Line 157  C      "state" files. This example is re
157  C      at time level 1  C      at time level 1
158         CALL WRITE_CHECKPOINT( .FALSE., myCurrentTime, myCurrentIter, myThid )         CALL WRITE_CHECKPOINT( .FALSE., myCurrentTime, myCurrentIter, myThid )
159    
        write(0,*) maxval(abs(uVel)),maxval(abs(vVel))  
        if (maxval(abs(uVel)).gt.10.) goto 911  
        if (maxval(abs(vVel)).gt.10.) goto 911  
        if (maxval(abs(theta)).gt.40.) goto 911  
160        ENDDO        ENDDO
161    
  911  continue  
   
162  C--   Final checkpoint (incase the in-loop checkpoint was missed)  C--   Final checkpoint (incase the in-loop checkpoint was missed)
163        CALL WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid )        CALL WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid )
164    
165  C--   Step-forward U/V/Theta/Salt for purposes of final I/O dump  C--   Step-forward U/V/Theta/Salt for purposes of final I/O dump
166        CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )        CALL DYNAMICS( myCurrentTime, myCurrentIter, myThid )
167    
168    C--   Do time averages
169          IF (taveFreq.GT.0.) THEN
170            CALL DO_TIME_AVERAGES( myCurrentTime, myCurrentIter, myThid )
171          ENDIF
172    
173  C--   Dump for end state  C--   Dump for end state
174        CALL WRITE_STATE( myCurrentTime, myCurrentIter, myThid )        CALL WRITE_STATE( myCurrentTime, myCurrentIter, myThid )
175    
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22