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

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

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

revision 1.50 by adcroft, Wed Jun 21 19:13:11 2000 UTC revision 1.52 by adcroft, Thu Jun 29 18:49:50 2000 UTC
# Line 129  C                      index into fVerTe Line 129  C                      index into fVerTe
129        _RL sigmaY  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL sigmaY  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
130        _RL sigmaR  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL sigmaR  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
131    
132  #ifdef INCLUDE_CONVECT_CALL  C This is currently also used by IVDC and Diagnostics
133    C #ifdef INCLUDE_CONVECT_CALL
134        _RL ConvectCount (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL ConvectCount (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
135  #endif  C #endif
136    
137        INTEGER iMin, iMax        INTEGER iMin, iMax
138        INTEGER jMin, jMax        INTEGER jMin, jMax
# Line 146  C                      index into fVerTe Line 147  C                      index into fVerTe
147    
148        INTEGER act1, act2, act3, act4        INTEGER act1, act2, act3, act4
149        INTEGER max1, max2, max3        INTEGER max1, max2, max3
150        INTEGER ikact, iikey,kkey        INTEGER iikey, kkey
151        INTEGER maximpl        INTEGER maximpl
152  #endif  #endif
153    
# Line 434  C--     Start of downward loop Line 435  C--     Start of downward loop
435          DO K=2,Nr          DO K=2,Nr
436    
437  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
438           kkey = ikact*(Nr-2+1) + (k-2) + 1           kkey = (ikey-1)*(Nr-2+1) + (k-2) + 1
439  #endif  #endif
440    
441           BOTTOM_LAYER = K .EQ. Nr           BOTTOM_LAYER = K .EQ. Nr
# Line 599  C--     Start of upward loop Line 600  C--     Start of upward loop
600           jMax = sNy+OLy-1           jMax = sNy+OLy-1
601    
602  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
603           kkey = ikact*(Nr-1+1) + (k-1) + 1           kkey = (ikey-1)*(Nr-1+1) + (k-1) + 1
604  #endif  #endif
605    
606  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
# Line 718  C--      Cumulative diagnostic calculati Line 719  C--      Cumulative diagnostic calculati
719    
720          ENDDO ! K          ENDDO ! K
721    
 C--     Implicit diffusion  
         IF (implicitDiffusion) THEN  
   
722  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
723             maximpl = 6             maximpl = 6
724             iikey = ikact*maximpl             iikey = (ikey-1)*maximpl
725  #endif  #endif
726    
727    C--     Implicit diffusion
728            IF (implicitDiffusion) THEN
729    
730           IF (tempStepping) THEN           IF (tempStepping) THEN
731  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
732              idkey = iikey + 1              idkey = iikey + 1
Legend:
Removed from v.1.50  
changed lines
  Added in v.1.52
  ViewVC Help
Powered by ViewVC 1.1.22