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