89 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
90 |
C-- only the kUp part of fverS is set in this subroutine |
C-- only the kUp part of fverS is set in this subroutine |
91 |
C-- the kDown is still required |
C-- the kDown is still required |
|
|
|
92 |
fVerS(1,1,kDown) = fVerS(1,1,kDown) |
fVerS(1,1,kDown) = fVerS(1,1,kDown) |
93 |
|
#endif |
94 |
DO j=1-OLy,sNy+OLy |
DO j=1-OLy,sNy+OLy |
95 |
DO i=1-OLx,sNx+OLx |
DO i=1-OLx,sNx+OLx |
96 |
fZon(i,j) = 0.0 |
fZon(i,j) = 0.0 |
98 |
fVerS(i,j,kUp) = 0.0 |
fVerS(i,j,kUp) = 0.0 |
99 |
ENDDO |
ENDDO |
100 |
ENDDO |
ENDDO |
|
#endif |
|
101 |
|
|
102 |
afFacS = 1. _d 0 |
afFacS = 1. _d 0 |
103 |
dfFacS = 1. _d 0 |
dfFacS = 1. _d 0 |