1 |
c |
2 |
c store directives for checkpoint level 1 |
3 |
c |
4 |
c created: heimbach@mit.edu 10-Jan-2002 |
5 |
c |
6 |
#ifdef ALLOW_EXF |
7 |
|
8 |
CADJ STORE hflux0 = comlev1, key = ikey_dynamics |
9 |
CADJ STORE hflux1 = comlev1, key = ikey_dynamics |
10 |
CADJ STORE sflux0 = comlev1, key = ikey_dynamics |
11 |
CADJ STORE sflux1 = comlev1, key = ikey_dynamics |
12 |
CADJ STORE ustress0 = comlev1, key = ikey_dynamics |
13 |
CADJ STORE ustress1 = comlev1, key = ikey_dynamics |
14 |
CADJ STORE vstress0 = comlev1, key = ikey_dynamics |
15 |
CADJ STORE vstress1 = comlev1, key = ikey_dynamics |
16 |
|
17 |
# ifdef ALLOW_ATM_TEMP |
18 |
|
19 |
CADJ STORE aqh0 = comlev1, key = ikey_dynamics |
20 |
CADJ STORE aqh1 = comlev1, key = ikey_dynamics |
21 |
CADJ STORE atemp0 = comlev1, key = ikey_dynamics |
22 |
CADJ STORE atemp1 = comlev1, key = ikey_dynamics |
23 |
CADJ STORE precip0 = comlev1, key = ikey_dynamics |
24 |
CADJ STORE precip1 = comlev1, key = ikey_dynamics |
25 |
CADJ STORE lwflux0 = comlev1, key = ikey_dynamics |
26 |
CADJ STORE lwflux1 = comlev1, key = ikey_dynamics |
27 |
CADJ STORE swflux0 = comlev1, key = ikey_dynamics |
28 |
CADJ STORE swflux1 = comlev1, key = ikey_dynamics |
29 |
# ifdef EXF_READ_EVAP |
30 |
CADJ STORE evap0 = comlev1, key = ikey_dynamics |
31 |
CADJ STORE evap1 = comlev1, key = ikey_dynamics |
32 |
# else |
33 |
CADJ STORE evap = comlev1, key = ikey_dynamics |
34 |
# endif /* EXF_READ_EVAP */ |
35 |
# ifdef ALLOW_DOWNWARD_RADIATION |
36 |
CADJ STORE swdown0 = comlev1, key = ikey_dynamics |
37 |
CADJ STORE swdown1 = comlev1, key = ikey_dynamics |
38 |
CADJ STORE lwdown0 = comlev1, key = ikey_dynamics |
39 |
CADJ STORE lwdown1 = comlev1, key = ikey_dynamics |
40 |
# endif |
41 |
|
42 |
# else /* ALLOW_ATM_TEMP undef */ |
43 |
|
44 |
# ifdef SHORTWAVE_HEATING |
45 |
CADJ STORE swflux0 = comlev1, key = ikey_dynamics |
46 |
CADJ STORE swflux1 = comlev1, key = ikey_dynamics |
47 |
# endif |
48 |
|
49 |
# endif /* ALLOW_ATM_TEMP */ |
50 |
|
51 |
# ifdef ALLOW_ATM_WIND |
52 |
CADJ STORE uwind0 = comlev1, key = ikey_dynamics |
53 |
CADJ STORE uwind1 = comlev1, key = ikey_dynamics |
54 |
CADJ STORE vwind0 = comlev1, key = ikey_dynamics |
55 |
CADJ STORE vwind1 = comlev1, key = ikey_dynamics |
56 |
# else /* ALLOW_ATM_WIND undef */ |
57 |
|
58 |
# endif /* ALLOW_ATM_WIND */ |
59 |
|
60 |
# ifdef ALLOW_BULKFORMULAE |
61 |
CADJ STORE theta = comlev1, key = ikey_dynamics |
62 |
# endif |
63 |
# ifdef ALLOW_CLIMSSS_RELAXATION |
64 |
CADJ STORE climsss0 = comlev1, key = ikey_dynamics |
65 |
CADJ STORE climsss1 = comlev1, key = ikey_dynamics |
66 |
# endif |
67 |
# ifdef ALLOW_CLIMSST_RELAXATION |
68 |
CADJ STORE climsst0 = comlev1, key = ikey_dynamics |
69 |
CADJ STORE climsst1 = comlev1, key = ikey_dynamics |
70 |
# endif |
71 |
# ifdef ALLOW_CLIMSALT_RELAXATION |
72 |
cph not used so far |
73 |
cphCADJ STORE climsalt0 = comlev1, key = ikey_dynamics |
74 |
cphCADJ STORE climsalt1 = comlev1, key = ikey_dynamics |
75 |
# endif |
76 |
# ifdef ALLOW_CLIMTEMP_RELAXATION |
77 |
cph not used so far |
78 |
cphCADJ STORE climtemp0 = comlev1, key = ikey_dynamics |
79 |
cphCADJ STORE climtemp1 = comlev1, key = ikey_dynamics |
80 |
# endif |
81 |
# ifdef ATMOSPHERIC_LOADING |
82 |
CADJ STORE apressure0 = comlev1, key = ikey_dynamics |
83 |
CADJ STORE apressure1 = comlev1, key = ikey_dynamics |
84 |
# endif |
85 |
|
86 |
# ifdef ALLOW_HFLUX_CONTROL |
87 |
CADJ STORE xx_hflux0 = comlev1, key = ikey_dynamics |
88 |
CADJ STORE xx_hflux1 = comlev1, key = ikey_dynamics |
89 |
# endif |
90 |
# ifdef ALLOW_SFLUX_CONTROL |
91 |
CADJ STORE xx_sflux0 = comlev1, key = ikey_dynamics |
92 |
CADJ STORE xx_sflux1 = comlev1, key = ikey_dynamics |
93 |
# endif |
94 |
# ifdef ALLOW_USTRESS_CONTROL |
95 |
CADJ STORE xx_tauu0 = comlev1, key = ikey_dynamics |
96 |
CADJ STORE xx_tauu1 = comlev1, key = ikey_dynamics |
97 |
# endif |
98 |
# ifdef ALLOW_VSTRESS_CONTROL |
99 |
CADJ STORE xx_tauv0 = comlev1, key = ikey_dynamics |
100 |
CADJ STORE xx_tauv1 = comlev1, key = ikey_dynamics |
101 |
# endif |
102 |
# ifdef ALLOW_UWIND_CONTROL |
103 |
CADJ STORE xx_uwind0 = comlev1, key = ikey_dynamics |
104 |
CADJ STORE xx_uwind1 = comlev1, key = ikey_dynamics |
105 |
# endif |
106 |
# ifdef ALLOW_VWIND_CONTROL |
107 |
CADJ STORE xx_vwind0 = comlev1, key = ikey_dynamics |
108 |
CADJ STORE xx_vwind1 = comlev1, key = ikey_dynamics |
109 |
# endif |
110 |
# ifdef ALLOW_ATEMP_CONTROL |
111 |
CADJ STORE xx_atemp0 = comlev1, key = ikey_dynamics |
112 |
CADJ STORE xx_atemp1 = comlev1, key = ikey_dynamics |
113 |
# endif |
114 |
# ifdef ALLOW_AQH_CONTROL |
115 |
CADJ STORE xx_aqh0 = comlev1, key = ikey_dynamics |
116 |
CADJ STORE xx_aqh1 = comlev1, key = ikey_dynamics |
117 |
# endif |
118 |
# ifdef ALLOW_PRECIP_CONTROL |
119 |
CADJ STORE xx_precip0 = comlev1, key = ikey_dynamics |
120 |
CADJ STORE xx_precip1 = comlev1, key = ikey_dynamics |
121 |
# endif |
122 |
# ifdef ALLOW_SWFLUX_CONTROL |
123 |
CADJ STORE xx_swflux0 = comlev1, key = ikey_dynamics |
124 |
CADJ STORE xx_swflux1 = comlev1, key = ikey_dynamics |
125 |
# endif |
126 |
|
127 |
#endif /* ALLOW_EXF */ |