pkg/autodiff/checkpoint_lev2_directives.h

c
c     store directives for checkpoint level 2
c
c     created: heimbach@mit.edu 10-Jan-2002
c
CADJ STORE gsnm1     = tapelev2, key = ilev_2
CADJ STORE gtnm1     = tapelev2, key = ilev_2
CADJ STORE gunm1     = tapelev2, key = ilev_2
CADJ STORE gvnm1     = tapelev2, key = ilev_2
CADJ STORE theta     = tapelev2, key = ilev_2
CADJ STORE salt      = tapelev2, key = ilev_2
CADJ STORE uvel      = tapelev2, key = ilev_2
CADJ STORE vvel      = tapelev2, key = ilev_2
CADJ STORE wvel      = tapelev2, key = ilev_2
CADJ STORE etan      = tapelev2, key = ilev_2
CADJ STORE gu        = tapelev2, key = ilev_2
CADJ STORE gv        = tapelev2, key = ilev_2
CADJ STORE pressure  = tapelev2, key = ilev_2

#ifdef INCLUDE_CD_CODE
CADJ STORE uveld     = tapelev2, key = ilev_2
CADJ STORE vveld     = tapelev2, key = ilev_2
CADJ STORE etanm1    = tapelev2, key = ilev_2
CADJ STORE unm1      = tapelev2, key = ilev_2
CADJ STORE vnm1      = tapelev2, key = ilev_2
CADJ STORE gucd      = tapelev2, key = ilev_2
CADJ STORE gvcd      = tapelev2, key = ilev_2
#endif

#ifdef ALLOW_PASSIVE_TRACER
CADJ STORE tr1       = tapelev2, key = ilev_2
CADJ STORE gtr1nm1   = tapelev2, key = ilev_2
#endif

#ifdef EXACT_CONSERV
CADJ STORE etaH      = tapelev2, key = ilev_2
CADJ STORE hDivFlow  = tapelev2, key = ilev_2
#endif

#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
# ifdef ALLOW_ATM_TEMP
CADJ STORE aqh0      = tapelev2, key = ilev_2
CADJ STORE aqh1      = tapelev2, key = ilev_2
CADJ STORE atemp0    = tapelev2, key = ilev_2
CADJ STORE atemp1    = tapelev2, key = ilev_2
CADJ STORE precip0   = tapelev2, key = ilev_2
CADJ STORE precip1   = tapelev2, key = ilev_2
CADJ STORE lwflux0   = tapelev2, key = ilev_2
CADJ STORE lwflux1   = tapelev2, key = ilev_2
CADJ STORE swflux0   = tapelev2, key = ilev_2
CADJ STORE swflux1   = tapelev2, key = ilev_2
# else
CADJ STORE hflux0    = tapelev2, key = ilev_2
CADJ STORE hflux1    = tapelev2, key = ilev_2
CADJ STORE sflux0    = tapelev2, key = ilev_2
CADJ STORE sflux1    = tapelev2, key = ilev_2
#  ifdef ALLOW_KPP
CADJ STORE swflux0   = tapelev2, key = ilev_2
CADJ STORE swflux1   = tapelev2, key = ilev_2
#  endif
# endif /* ALLOW_ATM_TEMP */
# ifdef ALLOW_ATM_WIND
CADJ STORE uwind0    = tapelev2, key = ilev_2
CADJ STORE uwind1    = tapelev2, key = ilev_2
CADJ STORE vwind0    = tapelev2, key = ilev_2
CADJ STORE vwind1    = tapelev2, key = ilev_2
# else
CADJ STORE ustress0  = tapelev2, key = ilev_2
CADJ STORE ustress1  = tapelev2, key = ilev_2
CADJ STORE vstress0  = tapelev2, key = ilev_2
CADJ STORE vstress1  = tapelev2, key = ilev_2
# endif  /* ALLOW_ATM_WIND */

#else /* INCLUDE_EXTERNAL_FORCING_PACKAGE undef */

CADJ STORE empmr   = tapelev2, key = ilev_2
CADJ STORE fu      = tapelev2, key = ilev_2
CADJ STORE fv      = tapelev2, key = ilev_2
CADJ STORE qnet    = tapelev2, key = ilev_2
CADJ STORE sss     = tapelev2, key = ilev_2
CADJ STORE sst     = tapelev2, key = ilev_2
#ifdef ATMOSPHERIC_LOADING
CADJ STORE pload   = tapelev2, key = ilev_2
#endif
c
CADJ STORE taux0   = tapelev2, key = ilev_2
CADJ STORE taux1   = tapelev2, key = ilev_2
CADJ STORE tauy0   = tapelev2, key = ilev_2
CADJ STORE tauy1   = tapelev2, key = ilev_2
CADJ STORE Qnet0   = tapelev2, key = ilev_2
CADJ STORE Qnet1   = tapelev2, key = ilev_2
CADJ STORE EmPmR0  = tapelev2, key = ilev_2
CADJ STORE EmPmR1  = tapelev2, key = ilev_2
CADJ STORE SST0    = tapelev2, key = ilev_2
CADJ STORE SST1    = tapelev2, key = ilev_2
CADJ STORE SSS0    = tapelev2, key = ilev_2
CADJ STORE SSS1    = tapelev2, key = ilev_2
#ifdef SHORTWAVE_HEATING
CADJ STORE Qsw0    = tapelev2, key = ilev_2
CADJ STORE Qsw1    = tapelev2, key = ilev_2
#endif
#ifdef ATMOSPHERIC_LOADING
CADJ STORE pload0  = tapelev2, key = ilev_2
CADJ STORE pload1  = tapelev2, key = ilev_2
#endif

#endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */

#ifdef ALLOW_OBCS
#ifdef ALLOW_OBCS_NORTH
CADJ STORE OBNu    = tapelev2, key = ilev_2
CADJ STORE OBNv    = tapelev2, key = ilev_2
CADJ STORE OBNt    = tapelev2, key = ilev_2
CADJ STORE OBNs    = tapelev2, key = ilev_2
#endif /* ALLOW_OBCS_NORTH */
#ifdef ALLOW_OBCS_SOUTH
CADJ STORE OBSu    = tapelev2, key = ilev_2
CADJ STORE OBSv    = tapelev2, key = ilev_2
CADJ STORE OBSt    = tapelev2, key = ilev_2
CADJ STORE OBSs    = tapelev2, key = ilev_2
#endif /* ALLOW_OBCS_SOUTH */
#ifdef ALLOW_OBCS_EAST
CADJ STORE OBEu    = tapelev2, key = ilev_2
CADJ STORE OBEv    = tapelev2, key = ilev_2
CADJ STORE OBEt    = tapelev2, key = ilev_2
CADJ STORE OBEs    = tapelev2, key = ilev_2
#endif /* ALLOW_OBCS_EAST */
#ifdef ALLOW_OBCS_WEST
CADJ STORE OBWu    = tapelev2, key = ilev_2
CADJ STORE OBWv    = tapelev2, key = ilev_2
CADJ STORE OBWt    = tapelev2, key = ilev_2
CADJ STORE OBWs    = tapelev2, key = ilev_2
#endif /* ALLOW_OBCS_WEST */
#endif  /* ALLOW_OBCS */

1	heimbach	1.1	c
2			c store directives for checkpoint level 2
3			c
4			c created: heimbach@mit.edu 10-Jan-2002
5			c
6			CADJ STORE gsnm1 = tapelev2, key = ilev_2
7			CADJ STORE gtnm1 = tapelev2, key = ilev_2
8			CADJ STORE gunm1 = tapelev2, key = ilev_2
9			CADJ STORE gvnm1 = tapelev2, key = ilev_2
10			CADJ STORE theta = tapelev2, key = ilev_2
11			CADJ STORE salt = tapelev2, key = ilev_2
12			CADJ STORE uvel = tapelev2, key = ilev_2
13			CADJ STORE vvel = tapelev2, key = ilev_2
14			CADJ STORE wvel = tapelev2, key = ilev_2
15			CADJ STORE etan = tapelev2, key = ilev_2
16			CADJ STORE gu = tapelev2, key = ilev_2
17			CADJ STORE gv = tapelev2, key = ilev_2
18	heimbach	1.4	CADJ STORE pressure = tapelev2, key = ilev_2
19	heimbach	1.1
20			#ifdef INCLUDE_CD_CODE
21			CADJ STORE uveld = tapelev2, key = ilev_2
22			CADJ STORE vveld = tapelev2, key = ilev_2
23			CADJ STORE etanm1 = tapelev2, key = ilev_2
24			CADJ STORE unm1 = tapelev2, key = ilev_2
25			CADJ STORE vnm1 = tapelev2, key = ilev_2
26			CADJ STORE gucd = tapelev2, key = ilev_2
27			CADJ STORE gvcd = tapelev2, key = ilev_2
28			#endif
29
30			#ifdef ALLOW_PASSIVE_TRACER
31			CADJ STORE tr1 = tapelev2, key = ilev_2
32			CADJ STORE gtr1nm1 = tapelev2, key = ilev_2
33			#endif
34
35			#ifdef EXACT_CONSERV
36			CADJ STORE etaH = tapelev2, key = ilev_2
37			CADJ STORE hDivFlow = tapelev2, key = ilev_2
38			#endif
39
40			#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
41			# ifdef ALLOW_ATM_TEMP
42			CADJ STORE aqh0 = tapelev2, key = ilev_2
43			CADJ STORE aqh1 = tapelev2, key = ilev_2
44			CADJ STORE atemp0 = tapelev2, key = ilev_2
45			CADJ STORE atemp1 = tapelev2, key = ilev_2
46			CADJ STORE precip0 = tapelev2, key = ilev_2
47			CADJ STORE precip1 = tapelev2, key = ilev_2
48			CADJ STORE lwflux0 = tapelev2, key = ilev_2
49			CADJ STORE lwflux1 = tapelev2, key = ilev_2
50			CADJ STORE swflux0 = tapelev2, key = ilev_2
51			CADJ STORE swflux1 = tapelev2, key = ilev_2
52			# else
53			CADJ STORE hflux0 = tapelev2, key = ilev_2
54			CADJ STORE hflux1 = tapelev2, key = ilev_2
55			CADJ STORE sflux0 = tapelev2, key = ilev_2
56			CADJ STORE sflux1 = tapelev2, key = ilev_2
57			# ifdef ALLOW_KPP
58			CADJ STORE swflux0 = tapelev2, key = ilev_2
59			CADJ STORE swflux1 = tapelev2, key = ilev_2
60			# endif
61			# endif /* ALLOW_ATM_TEMP */
62			# ifdef ALLOW_ATM_WIND
63			CADJ STORE uwind0 = tapelev2, key = ilev_2
64			CADJ STORE uwind1 = tapelev2, key = ilev_2
65			CADJ STORE vwind0 = tapelev2, key = ilev_2
66			CADJ STORE vwind1 = tapelev2, key = ilev_2
67			# else
68			CADJ STORE ustress0 = tapelev2, key = ilev_2
69			CADJ STORE ustress1 = tapelev2, key = ilev_2
70			CADJ STORE vstress0 = tapelev2, key = ilev_2
71			CADJ STORE vstress1 = tapelev2, key = ilev_2
72			# endif /* ALLOW_ATM_WIND */
73	heimbach	1.3
74			#else /* INCLUDE_EXTERNAL_FORCING_PACKAGE undef */
75
76	heimbach	1.4	CADJ STORE empmr = tapelev2, key = ilev_2
77			CADJ STORE fu = tapelev2, key = ilev_2
78			CADJ STORE fv = tapelev2, key = ilev_2
79			CADJ STORE qnet = tapelev2, key = ilev_2
80			CADJ STORE sss = tapelev2, key = ilev_2
81			CADJ STORE sst = tapelev2, key = ilev_2
82			#ifdef ATMOSPHERIC_LOADING
83			CADJ STORE pload = tapelev2, key = ilev_2
84			#endif
85			c
86	heimbach	1.3	CADJ STORE taux0 = tapelev2, key = ilev_2
87			CADJ STORE taux1 = tapelev2, key = ilev_2
88			CADJ STORE tauy0 = tapelev2, key = ilev_2
89			CADJ STORE tauy1 = tapelev2, key = ilev_2
90			CADJ STORE Qnet0 = tapelev2, key = ilev_2
91			CADJ STORE Qnet1 = tapelev2, key = ilev_2
92			CADJ STORE EmPmR0 = tapelev2, key = ilev_2
93			CADJ STORE EmPmR1 = tapelev2, key = ilev_2
94			CADJ STORE SST0 = tapelev2, key = ilev_2
95			CADJ STORE SST1 = tapelev2, key = ilev_2
96			CADJ STORE SSS0 = tapelev2, key = ilev_2
97			CADJ STORE SSS1 = tapelev2, key = ilev_2
98	heimbach	1.4	#ifdef SHORTWAVE_HEATING
99	heimbach	1.3	CADJ STORE Qsw0 = tapelev2, key = ilev_2
100			CADJ STORE Qsw1 = tapelev2, key = ilev_2
101	heimbach	1.4	#endif
102			#ifdef ATMOSPHERIC_LOADING
103			CADJ STORE pload0 = tapelev2, key = ilev_2
104			CADJ STORE pload1 = tapelev2, key = ilev_2
105			#endif
106	heimbach	1.3
107	heimbach	1.1	#endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
108	heimbach	1.2
109			#ifdef ALLOW_OBCS
110			#ifdef ALLOW_OBCS_NORTH
111			CADJ STORE OBNu = tapelev2, key = ilev_2
112			CADJ STORE OBNv = tapelev2, key = ilev_2
113			CADJ STORE OBNt = tapelev2, key = ilev_2
114			CADJ STORE OBNs = tapelev2, key = ilev_2
115			#endif /* ALLOW_OBCS_NORTH */
116			#ifdef ALLOW_OBCS_SOUTH
117			CADJ STORE OBSu = tapelev2, key = ilev_2
118			CADJ STORE OBSv = tapelev2, key = ilev_2
119			CADJ STORE OBSt = tapelev2, key = ilev_2
120			CADJ STORE OBSs = tapelev2, key = ilev_2
121			#endif /* ALLOW_OBCS_SOUTH */
122			#ifdef ALLOW_OBCS_EAST
123			CADJ STORE OBEu = tapelev2, key = ilev_2
124			CADJ STORE OBEv = tapelev2, key = ilev_2
125			CADJ STORE OBEt = tapelev2, key = ilev_2
126			CADJ STORE OBEs = tapelev2, key = ilev_2
127			#endif /* ALLOW_OBCS_EAST */
128			#ifdef ALLOW_OBCS_WEST
129			CADJ STORE OBWu = tapelev2, key = ilev_2
130			CADJ STORE OBWv = tapelev2, key = ilev_2
131			CADJ STORE OBWt = tapelev2, key = ilev_2
132			CADJ STORE OBWs = tapelev2, key = ilev_2
133			#endif /* ALLOW_OBCS_WEST */
134			#endif /* ALLOW_OBCS */
135