2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
#include "MOM_VECINV_OPTIONS.h" |
#include "MOM_VECINV_OPTIONS.h" |
5 |
|
#ifdef ALLOW_AUTODIFF |
6 |
|
# include "AUTODIFF_OPTIONS.h" |
7 |
|
#endif |
8 |
#ifdef ALLOW_MOM_COMMON |
#ifdef ALLOW_MOM_COMMON |
9 |
# include "MOM_COMMON_OPTIONS.h" |
# include "MOM_COMMON_OPTIONS.h" |
10 |
#endif |
#endif |
135 |
CHARACTER*(1) pf |
CHARACTER*(1) pf |
136 |
#endif |
#endif |
137 |
|
|
138 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF |
139 |
C-- only the kDown part of fverU/V is set in this subroutine |
C-- only the kDown part of fverU/V is set in this subroutine |
140 |
C-- the kUp is still required |
C-- the kUp is still required |
141 |
C-- In the case of mom_fluxform Kup is set as well |
C-- In the case of mom_fluxform Kup is set as well |
209 |
strain(i,j) = 0. _d 0 |
strain(i,j) = 0. _d 0 |
210 |
strainBC(i,j)= 0. _d 0 |
strainBC(i,j)= 0. _d 0 |
211 |
tension(i,j) = 0. _d 0 |
tension(i,j) = 0. _d 0 |
212 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF |
213 |
hFacZ(i,j) = 0. _d 0 |
hFacZ(i,j) = 0. _d 0 |
214 |
#endif |
#endif |
215 |
ENDDO |
ENDDO |