/[MITgcm]/MITgcm/verification/OpenAD/code_oad_all/the_first_level_loop.F
ViewVC logotype

Diff of /MITgcm/verification/OpenAD/code_oad_all/the_first_level_loop.F

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

revision 1.1 by utke, Thu Jan 29 21:46:50 2009 UTC revision 1.2 by utke, Tue Feb 24 21:40:24 2009 UTC
# Line 92  C     == Local variables == Line 92  C     == Local variables ==
92  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
93        IF (debugMode) CALL DEBUG_ENTER('THE_FIRST_LEVEL_LOOP',myThid)        IF (debugMode) CALL DEBUG_ENTER('THE_FIRST_LEVEL_LOOP',myThid)
94  #endif  #endif
95        print *, 'JU: THE_FIRST_LEVEL_LOOP: iloop=',iLoop,' of ',nTimeSteps  #ifdef OAD_DEBUG
96          write(standardmessageunit,'(2(A,I6))')
97         + 'OAD: THE_FIRST_LEVEL_LOOP: iloop=',iLoop,' of ',nTimeSteps
98    #endif
99  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
100        IF (debugMode) CALL DEBUG_CALL('FORWARD_STEP',myThid)        IF (debugMode) CALL DEBUG_CALL('FORWARD_STEP',myThid)
101  #endif  #endif
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22