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

#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 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
CADJ STORE Qsw0    = tapelev2, key = ilev_2
CADJ STORE Qsw1    = tapelev2, key = ilev_2

#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	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
19	#ifdef INCLUDE_CD_CODE
20	CADJ STORE uveld = tapelev2, key = ilev_2
21	CADJ STORE vveld = tapelev2, key = ilev_2
22	CADJ STORE etanm1 = tapelev2, key = ilev_2
23	CADJ STORE unm1 = tapelev2, key = ilev_2
24	CADJ STORE vnm1 = tapelev2, key = ilev_2
25	CADJ STORE gucd = tapelev2, key = ilev_2
26	CADJ STORE gvcd = tapelev2, key = ilev_2
27	#endif
28
29	#ifdef ALLOW_PASSIVE_TRACER
30	CADJ STORE tr1 = tapelev2, key = ilev_2
31	CADJ STORE gtr1nm1 = tapelev2, key = ilev_2
32	#endif
33
34	#ifdef EXACT_CONSERV
35	CADJ STORE etaH = tapelev2, key = ilev_2
36	CADJ STORE hDivFlow = tapelev2, key = ilev_2
37	#endif
38
39	#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
40	# ifdef ALLOW_ATM_TEMP
41	CADJ STORE aqh0 = tapelev2, key = ilev_2
42	CADJ STORE aqh1 = tapelev2, key = ilev_2
43	CADJ STORE atemp0 = tapelev2, key = ilev_2
44	CADJ STORE atemp1 = tapelev2, key = ilev_2
45	CADJ STORE precip0 = tapelev2, key = ilev_2
46	CADJ STORE precip1 = tapelev2, key = ilev_2
47	CADJ STORE lwflux0 = tapelev2, key = ilev_2
48	CADJ STORE lwflux1 = tapelev2, key = ilev_2
49	CADJ STORE swflux0 = tapelev2, key = ilev_2
50	CADJ STORE swflux1 = tapelev2, key = ilev_2
51	# else
52	CADJ STORE hflux0 = tapelev2, key = ilev_2
53	CADJ STORE hflux1 = tapelev2, key = ilev_2
54	CADJ STORE sflux0 = tapelev2, key = ilev_2
55	CADJ STORE sflux1 = tapelev2, key = ilev_2
56	# ifdef ALLOW_KPP
57	CADJ STORE swflux0 = tapelev2, key = ilev_2
58	CADJ STORE swflux1 = tapelev2, key = ilev_2
59	# endif
60	# endif /* ALLOW_ATM_TEMP */
61	# ifdef ALLOW_ATM_WIND
62	CADJ STORE uwind0 = tapelev2, key = ilev_2
63	CADJ STORE uwind1 = tapelev2, key = ilev_2
64	CADJ STORE vwind0 = tapelev2, key = ilev_2
65	CADJ STORE vwind1 = tapelev2, key = ilev_2
66	# else
67	CADJ STORE ustress0 = tapelev2, key = ilev_2
68	CADJ STORE ustress1 = tapelev2, key = ilev_2
69	CADJ STORE vstress0 = tapelev2, key = ilev_2
70	CADJ STORE vstress1 = tapelev2, key = ilev_2
71	# endif /* ALLOW_ATM_WIND */
72
73	#else /* INCLUDE_EXTERNAL_FORCING_PACKAGE undef */
74
75	CADJ STORE taux0 = tapelev2, key = ilev_2
76	CADJ STORE taux1 = tapelev2, key = ilev_2
77	CADJ STORE tauy0 = tapelev2, key = ilev_2
78	CADJ STORE tauy1 = tapelev2, key = ilev_2
79	CADJ STORE Qnet0 = tapelev2, key = ilev_2
80	CADJ STORE Qnet1 = tapelev2, key = ilev_2
81	CADJ STORE EmPmR0 = tapelev2, key = ilev_2
82	CADJ STORE EmPmR1 = tapelev2, key = ilev_2
83	CADJ STORE SST0 = tapelev2, key = ilev_2
84	CADJ STORE SST1 = tapelev2, key = ilev_2
85	CADJ STORE SSS0 = tapelev2, key = ilev_2
86	CADJ STORE SSS1 = tapelev2, key = ilev_2
87	CADJ STORE Qsw0 = tapelev2, key = ilev_2
88	CADJ STORE Qsw1 = tapelev2, key = ilev_2
89
90	#endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
91
92	#ifdef ALLOW_OBCS
93	#ifdef ALLOW_OBCS_NORTH
94	CADJ STORE OBNu = tapelev2, key = ilev_2
95	CADJ STORE OBNv = tapelev2, key = ilev_2
96	CADJ STORE OBNt = tapelev2, key = ilev_2
97	CADJ STORE OBNs = tapelev2, key = ilev_2
98	#endif /* ALLOW_OBCS_NORTH */
99	#ifdef ALLOW_OBCS_SOUTH
100	CADJ STORE OBSu = tapelev2, key = ilev_2
101	CADJ STORE OBSv = tapelev2, key = ilev_2
102	CADJ STORE OBSt = tapelev2, key = ilev_2
103	CADJ STORE OBSs = tapelev2, key = ilev_2
104	#endif /* ALLOW_OBCS_SOUTH */
105	#ifdef ALLOW_OBCS_EAST
106	CADJ STORE OBEu = tapelev2, key = ilev_2
107	CADJ STORE OBEv = tapelev2, key = ilev_2
108	CADJ STORE OBEt = tapelev2, key = ilev_2
109	CADJ STORE OBEs = tapelev2, key = ilev_2
110	#endif /* ALLOW_OBCS_EAST */
111	#ifdef ALLOW_OBCS_WEST
112	CADJ STORE OBWu = tapelev2, key = ilev_2
113	CADJ STORE OBWv = tapelev2, key = ilev_2
114	CADJ STORE OBWt = tapelev2, key = ilev_2
115	CADJ STORE OBWs = tapelev2, key = ilev_2
116	#endif /* ALLOW_OBCS_WEST */
117	#endif /* ALLOW_OBCS */
118