/[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.20 by cnh, Tue Sep 29 18:50:57 1998 UTC revision 1.21 by cnh, Wed Oct 28 03:11:38 1998 UTC
# Line 185  C      cg2d_x.0000000001 in the indexing Line 185  C      cg2d_x.0000000001 in the indexing
185  C      "state" files. This example is referred to as a checkpoint  C      "state" files. This example is referred to as a checkpoint
186  C      at time level 1  C      at time level 1
187         CALL TIMER_START('I/O (WRITE)        [MAIN LOOP]',myThid)         CALL TIMER_START('I/O (WRITE)        [MAIN LOOP]',myThid)
188         CALL WRITE_CHECKPOINT( .FALSE., myCurrentTime, myCurrentIter, myThid )         CALL
189         & WRITE_CHECKPOINT( .FALSE., myCurrentTime, myCurrentIter, myThid )
190         CALL TIMER_STOP ('I/O (WRITE)        [MAIN LOOP]',myThid)         CALL TIMER_STOP ('I/O (WRITE)        [MAIN LOOP]',myThid)
191    
192        ENDDO        ENDDO
# Line 194  C      at time level 1 Line 195  C      at time level 1
195    
196  C--   Final checkpoint (incase the in-loop checkpoint was missed)  C--   Final checkpoint (incase the in-loop checkpoint was missed)
197        CALL TIMER_START('I/O (WRITE)         [SPIN-DOWN]',myThid)        CALL TIMER_START('I/O (WRITE)         [SPIN-DOWN]',myThid)
198        CALL WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid )        CALL
199         & WRITE_CHECKPOINT( .TRUE., myCurrentTime, myCurrentIter, myThid )
200        CALL TIMER_STOP ('I/O (WRITE)         [SPIN-DOWN]',myThid)        CALL TIMER_STOP ('I/O (WRITE)         [SPIN-DOWN]',myThid)
201    
202  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
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22