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

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

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

revision 1.43 by edhill, Mon Nov 3 22:40:22 2003 UTC revision 1.44 by edhill, Tue Nov 4 18:40:58 2003 UTC
# Line 108  C     == Local variables == Line 108  C     == Local variables ==
108  #endif  #endif
109  CEOP  CEOP
110    
111  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
112        IF (debugMode) CALL DEBUG_ENTER('THE_MAIN_LOOP',myThid)        IF (debugMode) CALL DEBUG_ENTER('THE_MAIN_LOOP',myThid)
113  #endif  #endif
114    
# Line 125  CADJ  INIT tapelev_ini_bibj_k   = USER Line 125  CADJ  INIT tapelev_ini_bibj_k   = USER
125        CALL TIMER_START('ADJOINT SPIN-UP', mythid)        CALL TIMER_START('ADJOINT SPIN-UP', mythid)
126  #endif  #endif
127    
128  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
129        IF (debugMode) CALL DEBUG_CALL('INITIALISE_VARIA',myThid)        IF (debugMode) CALL DEBUG_CALL('INITIALISE_VARIA',myThid)
130  #endif  #endif
131    
# Line 135  C--   Set initial conditions (variable a Line 135  C--   Set initial conditions (variable a
135        CALL TIMER_STOP ('INITIALISE_VARIA    [THE_MAIN_LOOP]', mythid)        CALL TIMER_STOP ('INITIALISE_VARIA    [THE_MAIN_LOOP]', mythid)
136    
137  c--   Dump for start state.  c--   Dump for start state.
138  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
139        IF (debugMode) CALL DEBUG_CALL('WRITE_STATE',myThid)        IF (debugMode) CALL DEBUG_CALL('WRITE_STATE',myThid)
140  #endif  #endif
141        CALL TIMER_START('WRITE_STATE         [THE_MAIN_LOOP]', mythid)        CALL TIMER_START('WRITE_STATE         [THE_MAIN_LOOP]', mythid)
# Line 143  c--   Dump for start state. Line 143  c--   Dump for start state.
143        CALL TIMER_STOP ('WRITE_STATE         [THE_MAIN_LOOP]', mythid)        CALL TIMER_STOP ('WRITE_STATE         [THE_MAIN_LOOP]', mythid)
144    
145  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
146  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
147        IF (debugMode) CALL DEBUG_CALL('MONITOR',myThid)        IF (debugMode) CALL DEBUG_CALL('MONITOR',myThid)
148  #endif  #endif
149  C--   Check status of solution (statistics, cfl, etc...)  C--   Check status of solution (statistics, cfl, etc...)
# Line 299  c--     >>> Loop body start <<< Line 299  c--     >>> Loop body start <<<
299          ikey_dynamics = ilev_1          ikey_dynamics = ilev_1
300  #endif  #endif
301    
302  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
303        IF (debugMode) CALL DEBUG_CALL('FORWARD_STEP',myThid)        IF (debugMode) CALL DEBUG_CALL('FORWARD_STEP',myThid)
304  #endif  #endif
305    
# Line 344  c--   Sum all cost function contribution Line 344  c--   Sum all cost function contribution
344        _BARRIER        _BARRIER
345        CALL TIMER_STOP ('MAIN LOOP           [THE_MAIN_LOOP]', mythid)        CALL TIMER_STOP ('MAIN LOOP           [THE_MAIN_LOOP]', mythid)
346    
347  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
348        IF (debugMode) CALL DEBUG_LEAVE('THE_MAIN_LOOP',myThid)        IF (debugMode) CALL DEBUG_LEAVE('THE_MAIN_LOOP',myThid)
349  #endif  #endif
350    
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44
  ViewVC Help
Powered by ViewVC 1.1.22