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

Diff of /MITgcm/verification/OpenAD/code_oad_all/the_second_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 100  C     == Local variables == Line 100  C     == Local variables ==
100        IF (debugMode) CALL DEBUG_ENTER('THE_SECOND_LEVEL_LOOP',myThid)        IF (debugMode) CALL DEBUG_ENTER('THE_SECOND_LEVEL_LOOP',myThid)
101  #endif  #endif
102    
103        print *, 'JU: THE_SECOND_LEVEL_LOOP(',iLev_4,',',iLev_3,',',iLev_2,')'  #ifdef OAD_DEBUG_JOINT
104          write(standardmessageunit,'(A,3(I6,A))')
105         + 'OAD: THE_SECOND_LEVEL_LOOP(',iLev_4,',',iLev_3,',',iLev_2,')'
106    #endif
107        do ilev_1 = 1,uCheckLev1        do ilev_1 = 1,uCheckLev1
108           testStep = ilev_1           testStep = ilev_1
109       &        + (ilev_2-1)*uCheckLev1       &        + (ilev_2-1)*uCheckLev1
# Line 204  C     == Local variables == Line 207  C     == Local variables ==
207        IF (debugMode) CALL DEBUG_ENTER('THE_SECOND_LEVEL_PLAIN',myThid)        IF (debugMode) CALL DEBUG_ENTER('THE_SECOND_LEVEL_PLAIN',myThid)
208  #endif  #endif
209    
210        print *, 'JU: THE_SECOND_LEVEL_PLAIN()'  #ifdef OAD_DEBUG_JOINT
211          write(standardmessageunit,'(A)')
212         + 'OAD: THE_SECOND_PLAIN()'
213    #endif
214        do ilev_1 = 1,uCheckLev1        do ilev_1 = 1,uCheckLev1
215           testStep = ilev_1           testStep = ilev_1
216           if ( theCurrentStep .le. nTimeSteps ) then           if ( theCurrentStep .le. nTimeSteps ) then
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22