97 |
_RL dSdy(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL dSdy(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
98 |
_RL df4 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL df4 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
99 |
|
|
100 |
|
#ifdef ALLOW_AUTODIFF_TAMC |
101 |
|
C-- only the kUp part of fverS is set in this subroutine |
102 |
|
C-- the kDown is still required |
103 |
|
|
104 |
|
fVerS(1,1,kDown) = fVerS(1,1,kDown) |
105 |
|
DO j=1-OLy,sNy+OLy |
106 |
|
DO i=1-OLx,sNx+OLx |
107 |
|
fZon(i,j) = 0.0 |
108 |
|
fMer(i,j) = 0.0 |
109 |
|
fVerS(i,j,kUp) = 0.0 |
110 |
|
ENDDO |
111 |
|
ENDDO |
112 |
|
#endif |
113 |
|
|
114 |
afFacS = 1. _d 0 |
afFacS = 1. _d 0 |
115 |
dfFacS = 1. _d 0 |
dfFacS = 1. _d 0 |
116 |
TOP_LAYER = K .EQ. 1 |
TOP_LAYER = K .EQ. 1 |