/[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.37 by heimbach, Sun Mar 25 22:33:53 2001 UTC revision 1.38 by heimbach, Tue Apr 10 22:35:26 2001 UTC
# Line 149  C--   Set model configuration (fixed arr Line 149  C--   Set model configuration (fixed arr
149    
150        fc   = 0.0        fc   = 0.0
151        adfc = 1.0        adfc = 1.0
152        CALL TIMER_START('ADTHE_MAIN_SENS          [ADJOINT RUN]', mythid)        CALL TIMER_START('ADTHE_MAIN_LOOP          [ADJOINT RUN]', mythid)
153        call ADTHE_MAIN_SENS ( mythid )        call ADTHE_MAIN_LOOP ( mythid )
154        call TIMER_STOP ('ADTHE_MAIN_SENS          [ADJOINT RUN]', mythid)        call TIMER_STOP ('ADTHE_MAIN_LOOP          [ADJOINT RUN]', mythid)
155        _BARRIER        _BARRIER
156    
157        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
# Line 165  C--   Set model configuration (fixed arr Line 165  C--   Set model configuration (fixed arr
165    
166  C--   Call time stepping loop of full model  C--   Call time stepping loop of full model
167        CALL TIMER_START('THE_MAIN_LOOP      [THE_MODEL_MAIN]',myThid)        CALL TIMER_START('THE_MAIN_LOOP      [THE_MODEL_MAIN]',myThid)
168        CALL THE_MAIN_SENS(myCurrentTime, myCurrentIter, myThid )        CALL THE_MAIN_LOOP(myCurrentTime, myCurrentIter, myThid )
169        CALL TIMER_STOP ('THE_MAIN_LOOP      [THE_MODEL_MAIN]',myThid)        CALL TIMER_STOP ('THE_MAIN_LOOP      [THE_MODEL_MAIN]',myThid)
170    
171  #endif /* ALLOW_MIT_ADJOINT_RUN */  #endif /* ALLOW_MIT_ADJOINT_RUN */
172    
173    C--   Final checkpoint (incase the in-loop checkpoint was missed)
174          CALL TIMER_START('WRITE_CHECKPOINT   [THE_MODEL_MAIN]',myThid)
175          CALL WRITE_CHECKPOINT(
176         &        .TRUE., myCurrentTime, myCurrentIter, myThid )
177          CALL TIMER_STOP ('WRITE_CHECKPOINT   [THE_MODEL_MAIN]',myThid)
178    
179        CALL TIMER_STOP ('ALL                [THE_MODEL_MAIN]',myThid)        CALL TIMER_STOP ('ALL                [THE_MODEL_MAIN]',myThid)
180    
181  C--   Write timer statistics  C--   Write timer statistics
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22