/[MITgcm]/MITgcm/pkg/autodiff/checkpoint_lev3_directives.h
ViewVC logotype

Annotation of /MITgcm/pkg/autodiff/checkpoint_lev3_directives.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.7 - (hide annotations) (download)
Wed Mar 5 23:37:29 2003 UTC (21 years, 3 months ago) by heimbach
Branch: MAIN
CVS Tags: c49_autodiff, checkpoint49
Changes since 1.6: +123 -19 lines
File MIME type: text/plain 
Synchronized between MAIN and ecco-branch.
1 heimbach 1.1 c
2     c store directives for checkpoint level 3
3     c
4     c created: heimbach@mit.edu 10-Jan-2002
5     c
6     CADJ STORE gsnm1 = tapelev3, key = ilev_3
7     CADJ STORE gtnm1 = tapelev3, key = ilev_3
8     CADJ STORE gunm1 = tapelev3, key = ilev_3
9     CADJ STORE gvnm1 = tapelev3, key = ilev_3
10     CADJ STORE theta = tapelev3, key = ilev_3
11     CADJ STORE salt = tapelev3, key = ilev_3
12     CADJ STORE uvel = tapelev3, key = ilev_3
13     CADJ STORE vvel = tapelev3, key = ilev_3
14     CADJ STORE wvel = tapelev3, key = ilev_3
15     CADJ STORE etan = tapelev3, key = ilev_3
16     CADJ STORE gu = tapelev3, key = ilev_3
17     CADJ STORE gv = tapelev3, key = ilev_3
18 heimbach 1.6 CADJ STORE totphihyd = tapelev3, key = ilev_3
19 heimbach 1.1
20     #ifdef INCLUDE_CD_CODE
21     CADJ STORE uveld = tapelev3, key = ilev_3
22     CADJ STORE vveld = tapelev3, key = ilev_3
23     CADJ STORE etanm1 = tapelev3, key = ilev_3
24     CADJ STORE unm1 = tapelev3, key = ilev_3
25     CADJ STORE vnm1 = tapelev3, key = ilev_3
26     CADJ STORE gucd = tapelev3, key = ilev_3
27     CADJ STORE gvcd = tapelev3, key = ilev_3
28 heimbach 1.2 #endif /* INCLUDE_CD_CODE */
29 heimbach 1.1
30     #ifdef ALLOW_PASSIVE_TRACER
31     CADJ STORE tr1 = tapelev3, key = ilev_3
32     CADJ STORE gtr1nm1 = tapelev3, key = ilev_3
33 heimbach 1.7 #endif /* ALLOW_PASSIVE_TRACER */
34 heimbach 1.1
35     #ifdef EXACT_CONSERV
36     CADJ STORE etaH = tapelev3, key = ilev_3
37     CADJ STORE hDivFlow = tapelev3, key = ilev_3
38 heimbach 1.7 #endif /* EXACT_CONSERV */
39 heimbach 1.1
40     #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
41     # ifdef ALLOW_ATM_TEMP
42     CADJ STORE aqh0 = tapelev3, key = ilev_3
43     CADJ STORE aqh1 = tapelev3, key = ilev_3
44     CADJ STORE atemp0 = tapelev3, key = ilev_3
45     CADJ STORE atemp1 = tapelev3, key = ilev_3
46     CADJ STORE precip0 = tapelev3, key = ilev_3
47     CADJ STORE precip1 = tapelev3, key = ilev_3
48     CADJ STORE lwflux0 = tapelev3, key = ilev_3
49     CADJ STORE lwflux1 = tapelev3, key = ilev_3
50     CADJ STORE swflux0 = tapelev3, key = ilev_3
51     CADJ STORE swflux1 = tapelev3, key = ilev_3
52 heimbach 1.7 # ifdef EXF_READ_EVAP
53     CADJ STORE evap0 = tapelev3, key = ilev_3
54     CADJ STORE evap1 = tapelev3, key = ilev_3
55     # else
56     CADJ STORE evap = tapelev3, key = ilev_3
57     # endif
58     # ifdef ALLOW_DOWNWARD_RADIATION
59     CADJ STORE swdown0 = tapelev3, key = ilev_3
60     CADJ STORE swdown1 = tapelev3, key = ilev_3
61     CADJ STORE lwdown0 = tapelev3, key = ilev_3
62     CADJ STORE lwdown1 = tapelev3, key = ilev_3
63     # endif
64 heimbach 1.1 # else
65     CADJ STORE hflux0 = tapelev3, key = ilev_3
66     CADJ STORE hflux1 = tapelev3, key = ilev_3
67     CADJ STORE sflux0 = tapelev3, key = ilev_3
68     CADJ STORE sflux1 = tapelev3, key = ilev_3
69 heimbach 1.7 # ifdef SHORTWAVE_HEATING
70 heimbach 1.1 CADJ STORE swflux0 = tapelev3, key = ilev_3
71     CADJ STORE swflux1 = tapelev3, key = ilev_3
72     # endif
73     # endif /* ALLOW_ATM_TEMP */
74     # ifdef ALLOW_ATM_WIND
75     CADJ STORE uwind0 = tapelev3, key = ilev_3
76     CADJ STORE uwind1 = tapelev3, key = ilev_3
77     CADJ STORE vwind0 = tapelev3, key = ilev_3
78     CADJ STORE vwind1 = tapelev3, key = ilev_3
79     # else
80     CADJ STORE ustress0 = tapelev3, key = ilev_3
81     CADJ STORE ustress1 = tapelev3, key = ilev_3
82     CADJ STORE vstress0 = tapelev3, key = ilev_3
83     CADJ STORE vstress1 = tapelev3, key = ilev_3
84     # endif /* ALLOW_ATM_WIND */
85 heimbach 1.7 # ifdef ALLOW_CLIMSSS_RELAXATION
86     CADJ STORE climsss0 = tapelev3, key = ilev_3
87     CADJ STORE climsss1 = tapelev3, key = ilev_3
88     # endif
89     #ifdef ALLOW_CLIMSST_RELAXATION
90     CADJ STORE climsst0 = tapelev3, key = ilev_3
91     CADJ STORE climsst1 = tapelev3, key = ilev_3
92     # endif
93     #ifdef ALLOW_CLIMSALT_RELAXATION
94     cph not used so far
95     cphCADJ STORE climsalt0 = tapelev3, key = ilev_3
96     cphCADJ STORE climsalt1 = tapelev3, key = ilev_3
97     # endif
98     #ifdef ALLOW_CLIMTEMP_RELAXATION
99     cph not used so far
100     cphCADJ STORE climtemp0 = tapelev3, key = ilev_3
101     cphCADJ STORE climtemp1 = tapelev3, key = ilev_3
102     # endif
103     # ifdef ATMOSPHERIC_LOADING
104     CADJ STORE apressure0 = tapelev3, key = ilev_3
105     CADJ STORE apressure1 = tapelev3, key = ilev_3
106     # endif
107    
108     # ifdef ALLOW_HFLUX_CONTROL
109     CADJ STORE xx_hflux0 = tapelev3, key = ilev_3
110     CADJ STORE xx_hflux1 = tapelev3, key = ilev_3
111     # endif
112     # ifdef ALLOW_SFLUX_CONTROL
113     CADJ STORE xx_sflux0 = tapelev3, key = ilev_3
114     CADJ STORE xx_sflux1 = tapelev3, key = ilev_3
115     # endif
116     # ifdef ALLOW_USTRESS_CONTROL
117     CADJ STORE xx_tauu0 = tapelev3, key = ilev_3
118     CADJ STORE xx_tauu1 = tapelev3, key = ilev_3
119     # endif
120     # ifdef ALLOW_VSTRESS_CONTROL
121     CADJ STORE xx_tauv0 = tapelev3, key = ilev_3
122     CADJ STORE xx_tauv1 = tapelev3, key = ilev_3
123     # endif
124 heimbach 1.3
125     #else /* INCLUDE_EXTERNAL_FORCING_PACKAGE undef */
126    
127 heimbach 1.4 CADJ STORE empmr = tapelev3, key = ilev_3
128     c
129 heimbach 1.3 CADJ STORE taux0 = tapelev3, key = ilev_3
130     CADJ STORE taux1 = tapelev3, key = ilev_3
131     CADJ STORE tauy0 = tapelev3, key = ilev_3
132     CADJ STORE tauy1 = tapelev3, key = ilev_3
133     CADJ STORE Qnet0 = tapelev3, key = ilev_3
134     CADJ STORE Qnet1 = tapelev3, key = ilev_3
135     CADJ STORE EmPmR0 = tapelev3, key = ilev_3
136     CADJ STORE EmPmR1 = tapelev3, key = ilev_3
137     CADJ STORE SST0 = tapelev3, key = ilev_3
138     CADJ STORE SST1 = tapelev3, key = ilev_3
139     CADJ STORE SSS0 = tapelev3, key = ilev_3
140     CADJ STORE SSS1 = tapelev3, key = ilev_3
141 heimbach 1.4 #ifdef SHORTWAVE_HEATING
142 heimbach 1.3 CADJ STORE Qsw0 = tapelev3, key = ilev_3
143     CADJ STORE Qsw1 = tapelev3, key = ilev_3
144 heimbach 1.4 #endif
145     #ifdef ATMOSPHERIC_LOADING
146     CADJ STORE pload0 = tapelev3, key = ilev_3
147     CADJ STORE pload1 = tapelev3, key = ilev_3
148     #endif
149 heimbach 1.3
150 heimbach 1.1 #endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
151 heimbach 1.2
152     #ifdef ALLOW_OBCS
153 heimbach 1.7
154     #if (defined (BAROTROPIC_OBVEL_CONTROL) || \
155     defined (BALANCE_CONTROL_VOLFLUX_GLOBAL))
156     CADJ STORE shiftvel = tapelev3, key = ilev_3
157     #endif
158 heimbach 1.2 #ifdef ALLOW_OBCS_NORTH
159 heimbach 1.7 CADJ STORE OBNt = tapelev3, key = ilev_3
160     CADJ STORE OBNs = tapelev3, key = ilev_3
161     CADJ STORE OBNu0 = tapelev3, key = ilev_3
162     CADJ STORE OBNv0 = tapelev3, key = ilev_3
163     CADJ STORE OBNt0 = tapelev3, key = ilev_3
164     CADJ STORE OBNs0 = tapelev3, key = ilev_3
165     CADJ STORE OBNu1 = tapelev3, key = ilev_3
166     CADJ STORE OBNv1 = tapelev3, key = ilev_3
167     CADJ STORE OBNt1 = tapelev3, key = ilev_3
168     CADJ STORE OBNs1 = tapelev3, key = ilev_3
169     #ifdef ALLOW_OBCSN_CONTROL
170     CADJ STORE xx_obcsn0 = tapelev3, key = ilev_3
171     CADJ STORE xx_obcsn1 = tapelev3, key = ilev_3
172     #endif
173 heimbach 1.2 #endif /* ALLOW_OBCS_NORTH */
174     #ifdef ALLOW_OBCS_SOUTH
175 heimbach 1.7 CADJ STORE OBSt = tapelev3, key = ilev_3
176     CADJ STORE OBSs = tapelev3, key = ilev_3
177     CADJ STORE OBSu0 = tapelev3, key = ilev_3
178     CADJ STORE OBSv0 = tapelev3, key = ilev_3
179     CADJ STORE OBSt0 = tapelev3, key = ilev_3
180     CADJ STORE OBSs0 = tapelev3, key = ilev_3
181     CADJ STORE OBSu1 = tapelev3, key = ilev_3
182     CADJ STORE OBSv1 = tapelev3, key = ilev_3
183     CADJ STORE OBSt1 = tapelev3, key = ilev_3
184     CADJ STORE OBSs1 = tapelev3, key = ilev_3
185     #ifdef ALLOW_OBCSS_CONTROL
186     CADJ STORE xx_obcss0 = tapelev3, key = ilev_3
187     CADJ STORE xx_obcss1 = tapelev3, key = ilev_3
188     #endif
189 heimbach 1.2 #endif /* ALLOW_OBCS_SOUTH */
190     #ifdef ALLOW_OBCS_EAST
191 heimbach 1.7 CADJ STORE OBEt = tapelev3, key = ilev_3
192     CADJ STORE OBEs = tapelev3, key = ilev_3
193     CADJ STORE OBEu0 = tapelev3, key = ilev_3
194     CADJ STORE OBEv0 = tapelev3, key = ilev_3
195     CADJ STORE OBEt0 = tapelev3, key = ilev_3
196     CADJ STORE OBEs0 = tapelev3, key = ilev_3
197     CADJ STORE OBEu1 = tapelev3, key = ilev_3
198     CADJ STORE OBEv1 = tapelev3, key = ilev_3
199     CADJ STORE OBEt1 = tapelev3, key = ilev_3
200     CADJ STORE OBEs1 = tapelev3, key = ilev_3
201     #ifdef ALLOW_OBCSE_CONTROL
202     CADJ STORE xx_obcse0 = tapelev3, key = ilev_3
203     CADJ STORE xx_obcse1 = tapelev3, key = ilev_3
204     #endif
205 heimbach 1.2 #endif /* ALLOW_OBCS_EAST */
206     #ifdef ALLOW_OBCS_WEST
207 heimbach 1.7 CADJ STORE OBWt = tapelev3, key = ilev_3
208     CADJ STORE OBWs = tapelev3, key = ilev_3
209     CADJ STORE OBWu0 = tapelev3, key = ilev_3
210     CADJ STORE OBWv0 = tapelev3, key = ilev_3
211     CADJ STORE OBWt0 = tapelev3, key = ilev_3
212     CADJ STORE OBWs0 = tapelev3, key = ilev_3
213     CADJ STORE OBWu1 = tapelev3, key = ilev_3
214     CADJ STORE OBWv1 = tapelev3, key = ilev_3
215     CADJ STORE OBWt1 = tapelev3, key = ilev_3
216     CADJ STORE OBWs1 = tapelev3, key = ilev_3
217     #ifdef ALLOW_OBCSW_CONTROL
218     CADJ STORE xx_obcsw0 = tapelev3, key = ilev_3
219     CADJ STORE xx_obcsw1 = tapelev3, key = ilev_3
220     #endif
221 heimbach 1.2 #endif /* ALLOW_OBCS_WEST */
222 heimbach 1.7
223 heimbach 1.2 #endif /* ALLOW_OBCS */
224    
225 heimbach 1.7 #ifdef ALLOW_SEAICE
226     CADJ STORE area = tapelev3, key = ilev_3
227     CADJ STORE heff = tapelev3, key = ilev_3
228     CADJ STORE hsnow = tapelev3, key = ilev_3
229     CADJ STORE tice = tapelev3, key = ilev_3
230     CADJ STORE runoff = tapelev3, key = ilev_3
231     #endif /* ALLOW_SEAICE */
  ViewVC Help
Powered by ViewVC 1.1.22