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 |
|
|
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 |
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 |
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 |