47 |
c |
c |
48 |
CADJ STORE gs = tapelev2, key = ilev_2 |
CADJ STORE gs = tapelev2, key = ilev_2 |
49 |
CADJ STORE gt = tapelev2, key = ilev_2 |
CADJ STORE gt = tapelev2, key = ilev_2 |
50 |
|
#ifdef ALLOW_ADAMSBASHFORTH_3 |
51 |
|
CADJ STORE gtnm(:,:,:,:,1) = tapelev2, key = ilev_2 |
52 |
|
CADJ STORE gsnm(:,:,:,:,1) = tapelev2, key = ilev_2 |
53 |
|
CADJ STORE gunm(:,:,:,:,1) = tapelev2, key = ilev_2 |
54 |
|
CADJ STORE gvnm(:,:,:,:,1) = tapelev2, key = ilev_2 |
55 |
|
CADJ STORE gtnm(:,:,:,:,2) = tapelev2, key = ilev_2 |
56 |
|
CADJ STORE gsnm(:,:,:,:,2) = tapelev2, key = ilev_2 |
57 |
|
CADJ STORE gunm(:,:,:,:,2) = tapelev2, key = ilev_2 |
58 |
|
CADJ STORE gvnm(:,:,:,:,2) = tapelev2, key = ilev_2 |
59 |
|
#else |
60 |
CADJ STORE gtnm1 = tapelev2, key = ilev_2 |
CADJ STORE gtnm1 = tapelev2, key = ilev_2 |
61 |
CADJ STORE gsnm1 = tapelev2, key = ilev_2 |
CADJ STORE gsnm1 = tapelev2, key = ilev_2 |
62 |
CADJ STORE gunm1 = tapelev2, key = ilev_2 |
CADJ STORE gunm1 = tapelev2, key = ilev_2 |
63 |
CADJ STORE gvnm1 = tapelev2, key = ilev_2 |
CADJ STORE gvnm1 = tapelev2, key = ilev_2 |
64 |
|
#endif |
65 |
CADJ STORE theta = tapelev2, key = ilev_2 |
CADJ STORE theta = tapelev2, key = ilev_2 |
66 |
CADJ STORE salt = tapelev2, key = ilev_2 |
CADJ STORE salt = tapelev2, key = ilev_2 |
67 |
CADJ STORE uvel = tapelev2, key = ilev_2 |
CADJ STORE uvel = tapelev2, key = ilev_2 |
96 |
CADJ STORE recip_hfacc = tapelev2, key = ilev_2 |
CADJ STORE recip_hfacc = tapelev2, key = ilev_2 |
97 |
CADJ STORE recip_hfacs = tapelev2, key = ilev_2 |
CADJ STORE recip_hfacs = tapelev2, key = ilev_2 |
98 |
CADJ STORE recip_hfacw = tapelev2, key = ilev_2 |
CADJ STORE recip_hfacw = tapelev2, key = ilev_2 |
99 |
|
CADJ STORE phi0surf = tapelev2, key = ilev_2 |
100 |
|
cph-test( |
101 |
|
CADJ STORE etahs,etahw = tapelev2, key = ilev_2 |
102 |
|
CADJ STORE detasdt,detawdt = tapelev2, key = ilev_2 |
103 |
|
cph-test) |
104 |
|
|
105 |
# ifndef DISABLE_RSTAR_CODE |
# ifndef DISABLE_RSTAR_CODE |
106 |
CADJ STORE rstarexpc,rstarexps,rstarexpw |
CADJ STORE rstarexpc,rstarexps,rstarexpw |
107 |
CADJ & = tapelev2, key = ilev_2 |
CADJ & = tapelev2, key = ilev_2 |
118 |
# include "cd_code_ad_check_lev2_dir.h" |
# include "cd_code_ad_check_lev2_dir.h" |
119 |
#endif /* ALLOW_CD_CODE */ |
#endif /* ALLOW_CD_CODE */ |
120 |
|
|
121 |
|
#ifdef ALLOW_GGL90 |
122 |
|
# include "ggl90_ad_check_lev2_dir.h" |
123 |
|
#endif |
124 |
|
|
125 |
|
#ifdef ALLOW_ECCO |
126 |
|
# include "ecco_ad_check_lev2_dir.h" |
127 |
|
#endif |
128 |
|
|
129 |
#ifdef ALLOW_EXF |
#ifdef ALLOW_EXF |
130 |
# include "exf_ad_check_lev2_dir.h" |
# include "exf_ad_check_lev2_dir.h" |
131 |
#endif /* ALLOW_EXF */ |
#endif /* ALLOW_EXF */ |
152 |
|
|
153 |
#ifdef ALLOW_RBCS |
#ifdef ALLOW_RBCS |
154 |
# include "rbcs_ad_check_lev2_dir.h" |
# include "rbcs_ad_check_lev2_dir.h" |
155 |
#endif /* ALLOW_rbcs */ |
#endif /* ALLOW_RBCS */ |
156 |
|
|
157 |
|
#ifdef ALLOW_OFFLINE |
158 |
|
# include "offline_ad_check_lev2_dir.h" |
159 |
|
#endif /* ALLOW_OFFLINE */ |
160 |
|
|
161 |
#ifdef ALLOW_GCHEM |
#ifdef ALLOW_GCHEM |
162 |
# include "gchem_ad_check_lev2_dir.h" |
# include "gchem_ad_check_lev2_dir.h" |
199 |
#ifdef ALLOW_HFLUXM_CONTROL |
#ifdef ALLOW_HFLUXM_CONTROL |
200 |
CADJ STORE qnetm = tapelev2, key = ilev_2 |
CADJ STORE qnetm = tapelev2, key = ilev_2 |
201 |
#endif |
#endif |
202 |
|
|
203 |
|
#ifdef ALLOW_SEAICE |
204 |
|
cph temporary for HD |
205 |
|
# ifdef ANNUAL_BALANCE |
206 |
|
CADJ STORE balance_itcount = tapelev2, key = ilev_2 |
207 |
|
CADJ STORE atmfw_tilesum = tapelev2, key = ilev_2 |
208 |
|
CADJ STORE qnet_tilesum = tapelev2, key = ilev_2 |
209 |
|
CADJ STORE empmr_corr = tapelev2, key = ilev_2 |
210 |
|
CADJ STORE qnet_corr = tapelev2, key = ilev_2 |
211 |
|
# endif /* ANNUAL_BALANCE */ |
212 |
|
#endif |