/[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.33 by cnh, Sun Feb 4 14:38:48 2001 UTC revision 1.34 by jmc, Thu Feb 8 18:13:37 2001 UTC
# Line 113  C           myCurrentTime are local vari Line 113  C           myCurrentTime are local vari
113  C           arguments. Although this is fiddly it saves the need to  C           arguments. Although this is fiddly it saves the need to
114  C           impose additional synchronisation points when they are  C           impose additional synchronisation points when they are
115  C           updated.  C           updated.
116    C     myCurrentTime - Time counter for this thread
117    C     myCurrentIter - Iteration counter for this thread
118          INTEGER myCurrentIter
119          _RL     myCurrentTime
120    
121  C--   This timer encompasses the whole code  C--   This timer encompasses the whole code
122        CALL TIMER_START('ALL                [THE_MODEL_MAIN]',myThid)        CALL TIMER_START('ALL                [THE_MODEL_MAIN]',myThid)
# Line 124  C--   Set model configuration (fixed arr Line 128  C--   Set model configuration (fixed arr
128        CALL TIMER_STOP ('INITIALISE_FIXED   [THE_MODEL_MAIN]',myThid)        CALL TIMER_STOP ('INITIALISE_FIXED   [THE_MODEL_MAIN]',myThid)
129    
130    
131          myCurrentTime = startTime
132          myCurrentIter = nIter0
133    
134  C--   Call time stepping loop of full model  C--   Call time stepping loop of full model
135        CALL TIMER_START('THE_MAIN_LOOP      [THE_MODEL_MAIN]',myThid)        CALL TIMER_START('THE_MAIN_LOOP      [THE_MODEL_MAIN]',myThid)
136        CALL THE_MAIN_LOOP( myThid )        CALL THE_MAIN_LOOP(myCurrentTime, myCurrentIter, myThid )
137        CALL TIMER_STOP ('THE_MAIN_LOOP      [THE_MODEL_MAIN]',myThid)        CALL TIMER_STOP ('THE_MAIN_LOOP      [THE_MODEL_MAIN]',myThid)
138    
139    
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22