pkg/autodiff/checkpoint_lev3_directives.h

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

#ifdef INCLUDE_CD_CODE
CADJ STORE uveld     = tapelev3, key = ilev_3
CADJ STORE vveld     = tapelev3, key = ilev_3
CADJ STORE etanm1    = tapelev3, key = ilev_3
CADJ STORE unm1      = tapelev3, key = ilev_3
CADJ STORE vnm1      = tapelev3, key = ilev_3
CADJ STORE gucd      = tapelev3, key = ilev_3
CADJ STORE gvcd      = tapelev3, key = ilev_3
#endif /* INCLUDE_CD_CODE */

#ifdef ALLOW_PASSIVE_TRACER
CADJ STORE tr1       = tapelev3, key = ilev_3
CADJ STORE gtr1nm1   = tapelev3, key = ilev_3
#endif /*  */

#ifdef EXACT_CONSERV
CADJ STORE etaH      = tapelev3, key = ilev_3
CADJ STORE hDivFlow  = tapelev3, key = ilev_3
#endif /*  */

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

#else /* INCLUDE_EXTERNAL_FORCING_PACKAGE undef */

CADJ STORE empmr   = tapelev3, key = ilev_3
c
CADJ STORE taux0   = tapelev3, key = ilev_3
CADJ STORE taux1   = tapelev3, key = ilev_3
CADJ STORE tauy0   = tapelev3, key = ilev_3
CADJ STORE tauy1   = tapelev3, key = ilev_3
CADJ STORE Qnet0   = tapelev3, key = ilev_3
CADJ STORE Qnet1   = tapelev3, key = ilev_3
CADJ STORE EmPmR0  = tapelev3, key = ilev_3
CADJ STORE EmPmR1  = tapelev3, key = ilev_3
CADJ STORE SST0    = tapelev3, key = ilev_3
CADJ STORE SST1    = tapelev3, key = ilev_3
CADJ STORE SSS0    = tapelev3, key = ilev_3
CADJ STORE SSS1    = tapelev3, key = ilev_3
#ifdef SHORTWAVE_HEATING
CADJ STORE Qsw0    = tapelev3, key = ilev_3
CADJ STORE Qsw1    = tapelev3, key = ilev_3
#endif
#ifdef ATMOSPHERIC_LOADING
CADJ STORE pload0  = tapelev3, key = ilev_3
CADJ STORE pload1  = tapelev3, key = ilev_3
#endif

#endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */

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

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	CADJ STORE pressure = tapelev3, key = ilev_3
19
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	#endif /* INCLUDE_CD_CODE */
29
30	#ifdef ALLOW_PASSIVE_TRACER
31	CADJ STORE tr1 = tapelev3, key = ilev_3
32	CADJ STORE gtr1nm1 = tapelev3, key = ilev_3
33	#endif /* */
34
35	#ifdef EXACT_CONSERV
36	CADJ STORE etaH = tapelev3, key = ilev_3
37	CADJ STORE hDivFlow = tapelev3, key = ilev_3
38	#endif /* */
39
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	# else
53	CADJ STORE hflux0 = tapelev3, key = ilev_3
54	CADJ STORE hflux1 = tapelev3, key = ilev_3
55	CADJ STORE sflux0 = tapelev3, key = ilev_3
56	CADJ STORE sflux1 = tapelev3, key = ilev_3
57	# ifdef ALLOW_KPP
58	CADJ STORE swflux0 = tapelev3, key = ilev_3
59	CADJ STORE swflux1 = tapelev3, key = ilev_3
60	# endif
61	# endif /* ALLOW_ATM_TEMP */
62	# ifdef ALLOW_ATM_WIND
63	CADJ STORE uwind0 = tapelev3, key = ilev_3
64	CADJ STORE uwind1 = tapelev3, key = ilev_3
65	CADJ STORE vwind0 = tapelev3, key = ilev_3
66	CADJ STORE vwind1 = tapelev3, key = ilev_3
67	# else
68	CADJ STORE ustress0 = tapelev3, key = ilev_3
69	CADJ STORE ustress1 = tapelev3, key = ilev_3
70	CADJ STORE vstress0 = tapelev3, key = ilev_3
71	CADJ STORE vstress1 = tapelev3, key = ilev_3
72	# endif /* ALLOW_ATM_WIND */
73
74	#else /* INCLUDE_EXTERNAL_FORCING_PACKAGE undef */
75
76	CADJ STORE empmr = tapelev3, key = ilev_3
77	c
78	CADJ STORE taux0 = tapelev3, key = ilev_3
79	CADJ STORE taux1 = tapelev3, key = ilev_3
80	CADJ STORE tauy0 = tapelev3, key = ilev_3
81	CADJ STORE tauy1 = tapelev3, key = ilev_3
82	CADJ STORE Qnet0 = tapelev3, key = ilev_3
83	CADJ STORE Qnet1 = tapelev3, key = ilev_3
84	CADJ STORE EmPmR0 = tapelev3, key = ilev_3
85	CADJ STORE EmPmR1 = tapelev3, key = ilev_3
86	CADJ STORE SST0 = tapelev3, key = ilev_3
87	CADJ STORE SST1 = tapelev3, key = ilev_3
88	CADJ STORE SSS0 = tapelev3, key = ilev_3
89	CADJ STORE SSS1 = tapelev3, key = ilev_3
90	#ifdef SHORTWAVE_HEATING
91	CADJ STORE Qsw0 = tapelev3, key = ilev_3
92	CADJ STORE Qsw1 = tapelev3, key = ilev_3
93	#endif
94	#ifdef ATMOSPHERIC_LOADING
95	CADJ STORE pload0 = tapelev3, key = ilev_3
96	CADJ STORE pload1 = tapelev3, key = ilev_3
97	#endif
98
99	#endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
100
101	#ifdef ALLOW_OBCS
102	#ifdef ALLOW_OBCS_NORTH
103	CADJ STORE OBNu = tapelev3, key = ilev_3
104	CADJ STORE OBNv = tapelev3, key = ilev_3
105	CADJ STORE OBNt = tapelev3, key = ilev_3
106	CADJ STORE OBNs = tapelev3, key = ilev_3
107	#endif /* ALLOW_OBCS_NORTH */
108	#ifdef ALLOW_OBCS_SOUTH
109	CADJ STORE OBSu = tapelev3, key = ilev_3
110	CADJ STORE OBSv = tapelev3, key = ilev_3
111	CADJ STORE OBSt = tapelev3, key = ilev_3
112	CADJ STORE OBSs = tapelev3, key = ilev_3
113	#endif /* ALLOW_OBCS_SOUTH */
114	#ifdef ALLOW_OBCS_EAST
115	CADJ STORE OBEu = tapelev3, key = ilev_3
116	CADJ STORE OBEv = tapelev3, key = ilev_3
117	CADJ STORE OBEt = tapelev3, key = ilev_3
118	CADJ STORE OBEs = tapelev3, key = ilev_3
119	#endif /* ALLOW_OBCS_EAST */
120	#ifdef ALLOW_OBCS_WEST
121	CADJ STORE OBWu = tapelev3, key = ilev_3
122	CADJ STORE OBWv = tapelev3, key = ilev_3
123	CADJ STORE OBWt = tapelev3, key = ilev_3
124	CADJ STORE OBWs = tapelev3, key = ilev_3
125	#endif /* ALLOW_OBCS_WEST */
126	#endif /* ALLOW_OBCS */
127