48 |
CADJ STORE gs = tapelev3, key = ilev_3 |
CADJ STORE gs = tapelev3, key = ilev_3 |
49 |
CADJ STORE gt = tapelev3, key = ilev_3 |
CADJ STORE gt = tapelev3, key = ilev_3 |
50 |
#ifdef ALLOW_ADAMSBASHFORTH_3 |
#ifdef ALLOW_ADAMSBASHFORTH_3 |
51 |
CADJ STORE gtnm(:,:,:,:,1) = tapelev3, key = ilev_3 |
CADJ STORE gtnm = tapelev3, key = ilev_3 |
52 |
CADJ STORE gsnm(:,:,:,:,1) = tapelev3, key = ilev_3 |
CADJ STORE gsnm = tapelev3, key = ilev_3 |
53 |
CADJ STORE gunm(:,:,:,:,1) = tapelev3, key = ilev_3 |
CADJ STORE gunm = tapelev3, key = ilev_3 |
54 |
CADJ STORE gvnm(:,:,:,:,1) = tapelev3, key = ilev_3 |
CADJ STORE gvnm = tapelev3, key = ilev_3 |
|
CADJ STORE gtnm(:,:,:,:,2) = tapelev3, key = ilev_3 |
|
|
CADJ STORE gsnm(:,:,:,:,2) = tapelev3, key = ilev_3 |
|
|
CADJ STORE gunm(:,:,:,:,2) = tapelev3, key = ilev_3 |
|
|
CADJ STORE gvnm(:,:,:,:,2) = tapelev3, key = ilev_3 |
|
55 |
#else |
#else |
56 |
CADJ STORE gtnm1 = tapelev3, key = ilev_3 |
CADJ STORE gtnm1 = tapelev3, key = ilev_3 |
57 |
CADJ STORE gsnm1 = tapelev3, key = ilev_3 |
CADJ STORE gsnm1 = tapelev3, key = ilev_3 |
71 |
c |
c |
72 |
#endif /* AUTODIFF_USE_OLDSTORE_3D */ |
#endif /* AUTODIFF_USE_OLDSTORE_3D */ |
73 |
|
|
74 |
cnewCADJ STORE ivdconvcount = tapelevx, key = ilev_x |
|
75 |
|
|
76 |
|
CADJ STORE phi0surf = tapelev3, key = ilev_3 |
77 |
|
|
78 |
#ifdef EXACT_CONSERV |
#ifdef EXACT_CONSERV |
79 |
cphCADJ STORE hDivFlow = tapelev3, key = ilev_3 |
cphCADJ STORE hDivFlow = tapelev3, key = ilev_3 |
88 |
CADJ STORE hfac_surfc = tapelev3, key = ilev_3 |
CADJ STORE hfac_surfc = tapelev3, key = ilev_3 |
89 |
CADJ STORE hfac_surfs = tapelev3, key = ilev_3 |
CADJ STORE hfac_surfs = tapelev3, key = ilev_3 |
90 |
CADJ STORE hfac_surfw = tapelev3, key = ilev_3 |
CADJ STORE hfac_surfw = tapelev3, key = ilev_3 |
91 |
CADJ STORE hfacc = tapelev3, key = ilev_3 |
CADJ STORE hFac_surfNm1C= tapelev3, key = ilev_3 |
92 |
CADJ STORE hfacs = tapelev3, key = ilev_3 |
CADJ STORE hFac_surfNm1S= tapelev3, key = ilev_3 |
93 |
CADJ STORE hfacw = tapelev3, key = ilev_3 |
CADJ STORE hFac_surfNm1W= tapelev3, key = ilev_3 |
|
CADJ STORE recip_hfacc = tapelev3, key = ilev_3 |
|
|
CADJ STORE recip_hfacs = tapelev3, key = ilev_3 |
|
|
CADJ STORE recip_hfacw = tapelev3, key = ilev_3 |
|
|
CADJ STORE phi0surf = tapelev3, key = ilev_3 |
|
|
cph-test( |
|
|
CADJ STORE etahs,etahw = tapelev3, key = ilev_3 |
|
|
CADJ STORE detasdt,detawdt = tapelev3, key = ilev_3 |
|
|
cph-test) |
|
94 |
|
|
95 |
# ifndef DISABLE_RSTAR_CODE |
# ifndef DISABLE_RSTAR_CODE |
96 |
CADJ STORE rstarexpc,rstarexps,rstarexpw |
CADJ STORE rstarexpc,rstarexps,rstarexpw |
97 |
CADJ & = tapelev3, key = ilev_3 |
CADJ & = tapelev3, key = ilev_3 |
98 |
CADJ STORE rstarfacc,rstarfacs,rstarfacw |
CADJ STORE rstarfacc,rstarfacs,rstarfacw |
99 |
CADJ & = tapelev3, key = ilev_3 |
CADJ & = tapelev3, key = ilev_3 |
100 |
CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt |
CADJ STORE rStarFacNm1C,rStarFacNm1S,rStarFacNm1W |
101 |
CADJ & = tapelev3, key = ilev_3 |
CADJ & = tapelev3, key = ilev_3 |
102 |
CADJ STORE h0facc,h0facs,h0facw |
CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt |
103 |
CADJ & = tapelev3, key = ilev_3 |
CADJ & = tapelev3, key = ilev_3 |
104 |
# endif |
# endif |
105 |
#endif /* NONLIN_FRSURF */ |
#endif /* NONLIN_FRSURF */ |
140 |
# include "thsice_ad_check_lev3_dir.h" |
# include "thsice_ad_check_lev3_dir.h" |
141 |
#endif /* ALLOW_THSICE */ |
#endif /* ALLOW_THSICE */ |
142 |
|
|
143 |
|
#ifdef ALLOW_SHELFICE |
144 |
|
# include "shelfice_ad_check_lev3_dir.h" |
145 |
|
#endif /* ALLOW_SHELFICE */ |
146 |
|
|
147 |
|
#ifdef ALLOW_STREAMICE |
148 |
|
# include "streamice_ad_check_lev3_dir.h" |
149 |
|
#endif /* ALLOW_STREAMICE */ |
150 |
|
|
151 |
#ifdef ALLOW_RBCS |
#ifdef ALLOW_RBCS |
152 |
# include "rbcs_ad_check_lev3_dir.h" |
# include "rbcs_ad_check_lev3_dir.h" |
153 |
#endif /* ALLOW_RBCS */ |
#endif /* ALLOW_RBCS */ |