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

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

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

revision 1.16 by jmc, Mon Aug 18 14:26:15 2014 UTC revision 1.17 by jmc, Fri Sep 5 21:07:14 2014 UTC
# Line 142  C     gs_AB      :: Adams-Bashforth sali Line 142  C     gs_AB      :: Adams-Bashforth sali
142  #endif  #endif
143  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
144    
 C-    Loop ranges for daughter routines  
       iMin = 1-OLx+2  
       iMax = sNx+OLx-1  
       jMin = 1-OLy+2  
       jMax = sNy+OLy-1  
   
145        iterNb = myIter        iterNb = myIter
146        IF (staggerTimeStep) iterNb = myIter - 1        IF (staggerTimeStep) iterNb = myIter - 1
147    
148    C-    Loop ranges for daughter routines
149    c     iMin = 1
150    c     iMax = sNx
151    c     jMin = 1
152    c     jMax = sNy
153    C     Regarding model dynamics, only needs to get correct tracer tendency
154    C     (gS_loc) in tile interior (1:sNx,1:sNy);
155    C     However, for some diagnostics, we may want to get valid tendency
156    C     extended over 1 point in tile halo region (0:sNx+1,0:sNy=1).
157          iMin = 0
158          iMax = sNx+1
159          jMin = 0
160          jMax = sNy+1
161    
162  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
163        diagForcing = .FALSE.        diagForcing = .FALSE.
164        diagAB_tend = .FALSE.        diagAB_tend = .FALSE.
# Line 462  C-    Integrate forward in time, storing Line 470  C-    Integrate forward in time, storing
470       U                  gS_loc,       U                  gS_loc,
471       I                  myTime, myIter, myThid )       I                  myTime, myIter, myThid )
472    
       iMin = 0  
       iMax = sNx+1  
       jMin = 0  
       jMax = sNy+1  
   
473  C--   Implicit vertical advection & diffusion  C--   Implicit vertical advection & diffusion
474    
475  #ifdef INCLUDE_IMPLVERTADV_CODE  #ifdef INCLUDE_IMPLVERTADV_CODE
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22