/[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.4 - (show annotations) (download)
Thu Nov 14 22:37:39 2002 UTC (21 years, 7 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint47e_post, checkpoint47c_post, checkpoint48b_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint47a_post, checkpoint47i_post, checkpoint47d_post, checkpoint47g_post, checkpoint48a_post, checkpoint47j_post, branch-exfmods-tag, checkpoint47b_post, checkpoint47f_post, checkpoint47, checkpoint48, checkpoint47h_post
Branch point for: branch-exfmods-curt
Changes since 1.3: +17 -0 lines
File MIME type: text/plain 
Bringing differentiability up to date.
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 CADJ STORE pressure = tapelev2, key = ilev_2
19
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
74 #else /* INCLUDE_EXTERNAL_FORCING_PACKAGE undef */
75
76 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 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 #ifdef SHORTWAVE_HEATING
99 CADJ STORE Qsw0 = tapelev2, key = ilev_2
100 CADJ STORE Qsw1 = tapelev2, key = ilev_2
101 #endif
102 #ifdef ATMOSPHERIC_LOADING
103 CADJ STORE pload0 = tapelev2, key = ilev_2
104 CADJ STORE pload1 = tapelev2, key = ilev_2
105 #endif
106
107 #endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
108
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
  ViewVC Help
Powered by ViewVC 1.1.22