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

Contents of /MITgcm/pkg/autodiff/checkpoint_lev2_directives.h

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

Revision 1.53 - (show annotations) (download)
Wed Jan 19 23:20:25 2011 UTC (13 years, 5 months ago) by gforget
Branch: MAIN
CVS Tags: checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62s, checkpoint62r, checkpoint62w, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint63g, checkpoint63, checkpoint63h, checkpoint63i, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63a, checkpoint63b, checkpoint63c
Changes since 1.52: +5 -9 lines
File MIME type: text/plain 
- pkg/autodiff: checkpoint_lev2_directives.h etc.
	bug fix
- pkg/mdsio: mdsio_write_whalos.F/mdsio_read_whalos.F
	remove mdsioLocalDir and useSingleCpuIO (to handle those externally)
	pass locSingleCPUIO as a parameter (that may be useSingleCpuIO)
	if non zero file id is provided, then omit file opening/closing
- pkg/autodiff: adread_adwrite.F
	pass useSingleCpuIO as the locSingleCPUIO parameter
1 C $Header: /u/gcmpack/MITgcm/pkg/autodiff/checkpoint_lev2_directives.h,v 1.52 2011/01/14 01:34:57 gforget Exp $
2 C $Name: $
3 c
4 c store directives for checkpoint level 4
5 c
6 c created: heimbach@mit.edu 10-Jan-2002
7 c
8 #ifdef AUTODIFF_USE_OLDSTORE_2D
9 c
10 CADJ STORE etan = tapelev2, key = ilev_2
11 CADJ STORE surfaceforcingTice = tapelev2, key = ilev_2
12 CADJ STORE taux0 = tapelev2, key = ilev_2
13 CADJ STORE taux1 = tapelev2, key = ilev_2
14 CADJ STORE tauy0 = tapelev2, key = ilev_2
15 CADJ STORE tauy1 = tapelev2, key = ilev_2
16 CADJ STORE qnet0 = tapelev2, key = ilev_2
17 CADJ STORE qnet1 = tapelev2, key = ilev_2
18 CADJ STORE empmr0 = tapelev2, key = ilev_2
19 CADJ STORE empmr1 = tapelev2, key = ilev_2
20 CADJ STORE sst0 = tapelev2, key = ilev_2
21 CADJ STORE sst1 = tapelev2, key = ilev_2
22 CADJ STORE sss0 = tapelev2, key = ilev_2
23 CADJ STORE sss1 = tapelev2, key = ilev_2
24 CADJ STORE saltflux0 = tapelev2, key = ilev_2
25 CADJ STORE saltflux1 = tapelev2, key = ilev_2
26 #ifdef SHORTWAVE_HEATING
27 CADJ STORE qsw0 = tapelev2, key = ilev_2
28 CADJ STORE qsw1 = tapelev2, key = ilev_2
29 #endif
30 #ifdef ATMOSPHERIC_LOADING
31 CADJ STORE pload0 = tapelev2, key = ilev_2
32 CADJ STORE pload1 = tapelev2, key = ilev_2
33 #endif
34 #ifdef EXACT_CONSERV
35 CADJ STORE etaH = tapelev2, key = ilev_2
36 CADJ STORE dEtaHdt = tapelev2, key = ilev_2
37 CADJ STORE PmEpR = tapelev2, key = ilev_2
38 #endif
39 c
40 #else /* ndef AUTODIFF_USE_OLDSTORE_2D */
41 c
42 CADJ STORE StoreDynVars2D = tapelev2, key = ilev_2
43 c
44 #endif /* AUTODIFF_USE_OLDSTORE_2D */
45 c
46 #ifdef AUTODIFF_USE_OLDSTORE_3D
47 c
48 CADJ STORE gs = tapelev2, key = ilev_2
49 CADJ STORE gt = tapelev2, key = ilev_2
50 #ifdef ALLOW_ADAMSBASHFORTH_3
51 CADJ STORE gtnm = tapelev2, key = ilev_2
52 CADJ STORE gsnm = tapelev2, key = ilev_2
53 CADJ STORE gunm = tapelev2, key = ilev_2
54 CADJ STORE gvnm = tapelev2, key = ilev_2
55 #else
56 CADJ STORE gtnm1 = tapelev2, key = ilev_2
57 CADJ STORE gsnm1 = tapelev2, key = ilev_2
58 CADJ STORE gunm1 = tapelev2, key = ilev_2
59 CADJ STORE gvnm1 = tapelev2, key = ilev_2
60 #endif
61 CADJ STORE theta = tapelev2, key = ilev_2
62 CADJ STORE salt = tapelev2, key = ilev_2
63 CADJ STORE uvel = tapelev2, key = ilev_2
64 CADJ STORE vvel = tapelev2, key = ilev_2
65 CADJ STORE wvel = tapelev2, key = ilev_2
66 CADJ STORE totphihyd = tapelev2, key = ilev_2
67 c
68 #else /* ndef AUTODIFF_USE_OLDSTORE_3D */
69 c
70 CADJ STORE StoreDynVars3D = tapelev2, key = ilev_2
71 c
72 #endif /* AUTODIFF_USE_OLDSTORE_3D */
73
74
75
76 CADJ STORE phi0surf = tapelev2, key = ilev_2
77
78 #ifdef EXACT_CONSERV
79 cphCADJ STORE hDivFlow = tapelev2, key = ilev_2
80 #endif /* EXACT_CONSERV */
81
82 #ifdef ALLOW_PASSIVE_TRACER
83 CADJ STORE tr1 = tapelev2, key = ilev_2
84 CADJ STORE gtr1nm1 = tapelev2, key = ilev_2
85 #endif /* ALLOW_PASSIVE_TRACER */
86
87 #ifdef NONLIN_FRSURF
88 CADJ STORE hfac_surfc = tapelev2, key = ilev_2
89 CADJ STORE hfac_surfs = tapelev2, key = ilev_2
90 CADJ STORE hfac_surfw = tapelev2, key = ilev_2
91 CADJ STORE hFac_surfNm1C= tapelev2, key = ilev_2
92 CADJ STORE hFac_surfNm1S= tapelev2, key = ilev_2
93 CADJ STORE hFac_surfNm1W= tapelev2, key = ilev_2
94
95 # ifndef DISABLE_RSTAR_CODE
96 CADJ STORE rstarexpc,rstarexps,rstarexpw
97 CADJ & = tapelev2, key = ilev_2
98 CADJ STORE rstarfacc,rstarfacs,rstarfacw
99 CADJ & = tapelev2, key = ilev_2
100 CADJ STORE rStarFacNm1C,rStarFacNm1S,rStarFacNm1W
101 CADJ & = tapelev2, key = ilev_2
102 CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt
103 CADJ & = tapelev2, key = ilev_2
104 # endif
105 #endif /* NONLIN_FRSURF */
106
107 #ifdef ALLOW_CD_CODE
108 # include "cd_code_ad_check_lev2_dir.h"
109 #endif /* ALLOW_CD_CODE */
110
111 #ifdef ALLOW_GGL90
112 # include "ggl90_ad_check_lev2_dir.h"
113 #endif
114
115 #ifdef ALLOW_ECCO
116 # include "ecco_ad_check_lev2_dir.h"
117 #endif
118
119 #ifdef ALLOW_EXF
120 # include "exf_ad_check_lev2_dir.h"
121 #endif /* ALLOW_EXF */
122
123 #ifdef ALLOW_PTRACERS
124 # include "ptracers_ad_check_lev2_dir.h"
125 #endif
126
127 #ifdef ALLOW_OBCS
128 # include "obcs_ad_check_lev2_dir.h"
129 #endif /* ALLOW_OBCS */
130
131 #ifdef ALLOW_SALT_PLUME
132 # include "salt_plume_ad_check_lev2_dir.h"
133 #endif
134
135 #ifdef ALLOW_SEAICE
136 # include "seaice_ad_check_lev2_dir.h"
137 #endif /* ALLOW_SEAICE */
138
139 #ifdef ALLOW_THSICE
140 # include "thsice_ad_check_lev2_dir.h"
141 #endif /* ALLOW_THSICE */
142
143 #ifdef ALLOW_SHELFICE
144 # include "shelfice_ad_check_lev2_dir.h"
145 #endif /* ALLOW_SHELFICE */
146
147 #ifdef ALLOW_RBCS
148 # include "rbcs_ad_check_lev2_dir.h"
149 #endif /* ALLOW_RBCS */
150
151 #ifdef ALLOW_OFFLINE
152 # include "offline_ad_check_lev2_dir.h"
153 #endif /* ALLOW_OFFLINE */
154
155 #ifdef ALLOW_GCHEM
156 # include "gchem_ad_check_lev2_dir.h"
157 #endif
158
159 #ifdef ALLOW_CFC
160 # include "cfc_ad_check_lev2_dir.h"
161 #endif
162
163 #ifdef ALLOW_DIC
164 # include "dic_ad_check_lev2_dir.h"
165 #endif
166
167 #ifdef ALLOW_EBM
168 CADJ STORE fu = tapelev2, key = ilev_2
169 CADJ STORE fv = tapelev2, key = ilev_2
170 CADJ STORE qnet = tapelev2, key = ilev_2
171 CADJ STORE qsw = tapelev2, key = ilev_2
172 CADJ STORE sss = tapelev2, key = ilev_2
173 CADJ STORE empmr = tapelev2, key = ilev_2
174 # include "ebm_ad_check_lev2_dir.h"
175 #endif /* ALLOW_EBM */
176
177 #ifdef ALLOW_COST
178 CADJ STORE cMeanTheta = tapelev2, key = ilev_2
179 CADJ STORE cMeanUVel = tapelev2, key = ilev_2
180 CADJ STORE cMeanVVel = tapelev2, key = ilev_2
181 CADJ STORE cMeanThetaUVel = tapelev2, key = ilev_2
182 CADJ STORE cMeanThetaVVel = tapelev2, key = ilev_2
183 #endif
184
185 #ifdef ALLOW_COST_TRACER
186 CADJ STORE objf_tracer = tapelev2, key = ilev_2
187 #endif
188
189 #ifdef ALLOW_COST_TRANSPORT
190 CADJ STORE objf_transport = tapelev2, key = ilev_2
191 #endif
192
193 #ifdef ALLOW_HFLUXM_CONTROL
194 CADJ STORE qnetm = tapelev2, key = ilev_2
195 #endif
196
197 #ifdef ALLOW_SEAICE
198 cph temporary for HD
199 # ifdef ANNUAL_BALANCE
200 CADJ STORE balance_itcount = tapelev2, key = ilev_2
201 CADJ STORE atmfw_tilesum = tapelev2, key = ilev_2
202 CADJ STORE qnet_tilesum = tapelev2, key = ilev_2
203 CADJ STORE empmr_corr = tapelev2, key = ilev_2
204 CADJ STORE qnet_corr = tapelev2, key = ilev_2
205 # endif /* ANNUAL_BALANCE */
206 #endif
  ViewVC Help
Powered by ViewVC 1.1.22