/[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.51 by heimbach, Wed Jun 21 20:46:31 2000 UTC
# Line 146  C                      index into fVerTe Line 146  C                      index into fVerTe
146    
147        INTEGER act1, act2, act3, act4        INTEGER act1, act2, act3, act4
148        INTEGER max1, max2, max3        INTEGER max1, max2, max3
149        INTEGER ikact, iikey,kkey        INTEGER iikey, kkey
150        INTEGER maximpl        INTEGER maximpl
151  #endif  #endif
152    
# Line 434  C--     Start of downward loop Line 434  C--     Start of downward loop
434          DO K=2,Nr          DO K=2,Nr
435    
436  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
437           kkey = ikact*(Nr-2+1) + (k-2) + 1           kkey = (ikey-1)*(Nr-2+1) + (k-2) + 1
438  #endif  #endif
439    
440           BOTTOM_LAYER = K .EQ. Nr           BOTTOM_LAYER = K .EQ. Nr
# Line 599  C--     Start of upward loop Line 599  C--     Start of upward loop
599           jMax = sNy+OLy-1           jMax = sNy+OLy-1
600    
601  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
602           kkey = ikact*(Nr-1+1) + (k-1) + 1           kkey = (ikey-1)*(Nr-1+1) + (k-1) + 1
603  #endif  #endif
604    
605  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
# Line 718  C--      Cumulative diagnostic calculati Line 718  C--      Cumulative diagnostic calculati
718    
719          ENDDO ! K          ENDDO ! K
720    
 C--     Implicit diffusion  
         IF (implicitDiffusion) THEN  
   
721  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
722             maximpl = 6             maximpl = 6
723             iikey = ikact*maximpl             iikey = (ikey-1)*maximpl
724  #endif  #endif
725    
726    C--     Implicit diffusion
727            IF (implicitDiffusion) THEN
728    
729           IF (tempStepping) THEN           IF (tempStepping) THEN
730  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
731              idkey = iikey + 1              idkey = iikey + 1
Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51
  ViewVC Help
Powered by ViewVC 1.1.22