1 |
C $Header: /u/gcmpack/MITgcm/pkg/ecco/ecco_ad_check_lev4_dir.h,v 1.5 2014/09/29 16:45:45 gforget Exp $ |
2 |
C $Name: $ |
3 |
c |
4 |
c store directives for checkpoint level 4 |
5 |
c |
6 |
|
7 |
#ifdef ALLOW_COST_ATLANTIC |
8 |
CADJ STORE theta = tapelev4, key=ilev_4 |
9 |
CADJ STORE vVel = tapelev4, key=ilev_4 |
10 |
# ifdef NONLIN_FRSURF |
11 |
CADJ STORE hFacS = tapelev4, key=ilev_4 |
12 |
# endif |
13 |
#endif |
14 |
|
15 |
#ifdef ALLOW_ECCO_BARSTORES |
16 |
|
17 |
#ifdef ALLOW_ECCO |
18 |
|
19 |
CADJ STORE tbar = tapelev4, key=ilev_4 |
20 |
cccCADJ STORE tbar_daily = tapelev4, key=ilev_4 |
21 |
CADJ STORE sbar = tapelev4, key=ilev_4 |
22 |
cccCADJ STORE sbar_daily = tapelev4, key=ilev_4 |
23 |
CADJ STORE ubar = tapelev4, key=ilev_4 |
24 |
CADJ STORE vbar = tapelev4, key=ilev_4 |
25 |
CADJ STORE wbar = tapelev4, key=ilev_4 |
26 |
CADJ STORE psbar = tapelev4, key=ilev_4 |
27 |
CADJ STORE bpbar = tapelev4, key=ilev_4 |
28 |
CADJ STORE sstbar = tapelev4, key=ilev_4 |
29 |
|
30 |
CADJ STORE xx_tbar_mean_dummy = dummytape, key=1, kind=isbyte |
31 |
CADJ STORE xx_sbar_mean_dummy = dummytape, key=1, kind=isbyte |
32 |
#ifdef ALLOW_SIGMAR_COST_CONTRIBUTION |
33 |
CADJ STORE xx_sigmaRbar_mean_dummy = dummytape, key=1, kind=isbyte |
34 |
#endif |
35 |
CADJ STORE xx_ubar_mean_dummy = dummytape, key=1, kind=isbyte |
36 |
CADJ STORE xx_vbar_mean_dummy = dummytape, key=1, kind=isbyte |
37 |
CADJ STORE xx_wbar_mean_dummy = dummytape, key=1, kind=isbyte |
38 |
CADJ STORE xx_psbar_mean_dummy = dummytape, key=1, kind=isbyte |
39 |
CADJ STORE xx_bpbar_mean_dummy = dummytape, key=1, kind=isbyte |
40 |
CADJ STORE xx_sstbar_mean_dummy = dummytape, key=1, kind=isbyte |
41 |
cccCADJ STORE xx_sssbar_mean_dummy = dummytape, key=1, kind=isbyte |
42 |
|
43 |
#ifdef ALLOW_GENCOST_CONTRIBUTION |
44 |
CADJ STORE gencost_barfld = tapelev4, key=ilev_4 |
45 |
CADJ STORE gencost_dummy = dummytape, key=1, kind=isbyte |
46 |
#endif /* ALLOW_GENCOST_CONTRIBUTION */ |
47 |
|
48 |
#endif /* ALLOW_ECCO */ |
49 |
|
50 |
#ifdef ALLOW_PROFILES |
51 |
CADJ STORE profiles_dummy = dummytape, key=1, kind=isbyte |
52 |
#endif /* ALLOW_PROFILES */ |
53 |
|
54 |
#ifdef ALLOW_SEAICE |
55 |
CADJ STORE smrareabar = tapelev4, key=ilev_4 |
56 |
CADJ STORE smrsstbar = tapelev4, key=ilev_4 |
57 |
CADJ STORE smrsssbar = tapelev4, key=ilev_4 |
58 |
|
59 |
CADJ STORE xx_smrareabar_mean_dummy = dummytape, key=1, kind=isbyte |
60 |
CADJ STORE xx_smrsstbar_mean_dummy = dummytape, key=1, kind=isbyte |
61 |
CADJ STORE xx_smrsssbar_mean_dummy = dummytape, key=1, kind=isbyte |
62 |
#endif /* ALLOW_SEAICE */ |
63 |
|
64 |
#endif /* ALLOW_ECCO_BARSTORES */ |
65 |
|