/[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.12 by adcroft, Tue Jun 16 15:26:57 1998 UTC revision 1.13 by adcroft, Wed Jun 17 21:07:02 1998 UTC
# Line 151  C      "state" files. This example is re Line 151  C      "state" files. This example is re
151  C      at time level 1  C      at time level 1
152         CALL WRITE_CHECKPOINT( .FALSE., myCurrentTime, myCurrentIter, myThid )         CALL WRITE_CHECKPOINT( .FALSE., myCurrentTime, myCurrentIter, myThid )
153    
154           write(0,*) maxval(abs(uVel)),maxval(abs(vVel))
155           if (maxval(abs(uVel)).gt.10.) goto 911
156           if (maxval(abs(vVel)).gt.10.) goto 911
157           if (maxval(abs(theta)).gt.40.) goto 911
158        ENDDO        ENDDO
159    
160     911  continue
161    
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    
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22