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

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

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

revision 1.13 by jmc, Wed Jul 24 20:07:18 2013 UTC revision 1.14 by jmc, Sat Aug 3 17:40:35 2013 UTC
# Line 211  C     == Functions == Line 211  C     == Functions ==
211  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
212  C     == Local variables ==  C     == Local variables ==
213        INTEGER iloop        INTEGER iloop
 #ifdef ALLOW_AUTODIFF_TAMC  
 #ifdef STORE_LOADEDREC_TEST  
       INTEGER bi,bj  
 #endif /* STORE_LOADEDREC_TEST */  
 #endif  
   
214  CEOP  CEOP
215    
 #ifdef STORE_LOADEDREC_TEST  
           DO bj = myByLo(myThid), myByHi(myThid)  
            DO bi = myBxLo(myThid), myBxHi(myThid)  
             loadedRec(bi,bj) = 0  
            ENDDO  
           ENDDO  
 #endif /* STORE_LOADEDREC_TEST */  
   
216  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
217        IF (debugMode) CALL DEBUG_ENTER('MAIN_DO_LOOP',myThid)        IF (debugMode) CALL DEBUG_ENTER('MAIN_DO_LOOP',myThid)
218  #endif  #endif
219    
 c     >>>>>>>>>>>>>>>>>>>>>>>>>>>   LOOP   <<<<<<<<<<<<<<<<<<<<<<<<<<<<  
 c     >>>>>>>>>>>>>>>>>>>>>>>>>>>  STARTS  <<<<<<<<<<<<<<<<<<<<<<<<<<<<  
   
220  #ifdef ALLOW_AUTODIFF_OPENAD  #ifdef ALLOW_AUTODIFF_OPENAD
221    C     >>>>>>>>>>>>>>>>>>>>>>>>>>>   LOOP   <<<<<<<<<<<<<<<<<<<<<<<<<<<<
222    C     >>>>>>>>>>>>>>>>>>>>>>>>>>>  STARTS  <<<<<<<<<<<<<<<<<<<<<<<<<<<<
223        DO iloop = 1, nTimeSteps        DO iloop = 1, nTimeSteps
224  #endif  #endif
225    
# Line 254  c     >>>>>>>>>>>>>>>>>>>>>>>>>>>  START Line 239  c     >>>>>>>>>>>>>>>>>>>>>>>>>>>  START
239    
240  #ifdef ALLOW_AUTODIFF_OPENAD  #ifdef ALLOW_AUTODIFF_OPENAD
241        ENDDO        ENDDO
242    C     >>>>>>>>>>>>>>>>>>>>>>>>>>>   LOOP   <<<<<<<<<<<<<<<<<<<<<<<<<<<<
243    C     >>>>>>>>>>>>>>>>>>>>>>>>>>>  STOPS   <<<<<<<<<<<<<<<<<<<<<<<<<<<<
244  #endif  #endif
245    
246  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22