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

Annotation of /MITgcm/pkg/autodiff/checkpoint_lev3_directives.h

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

Revision 1.6 - (hide annotations) (download)
Fri Feb 28 02:20:52 2003 UTC (21 years, 3 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint48i_post
Changes since 1.5: +1 -1 lines
File MIME type: text/plain 
Changes to restore differentiability of code w.r.t. previous tag
(mostly adding new routines to make list and replacing
pressure by totPhiHyd).
1 heimbach 1.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 heimbach 1.6 CADJ STORE totphihyd = tapelev3, key = ilev_3
19 heimbach 1.1
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 heimbach 1.2 #endif /* INCLUDE_CD_CODE */
29 heimbach 1.1
30     #ifdef ALLOW_PASSIVE_TRACER
31     CADJ STORE tr1 = tapelev3, key = ilev_3
32     CADJ STORE gtr1nm1 = tapelev3, key = ilev_3
33 heimbach 1.2 #endif /* */
34 heimbach 1.1
35     #ifdef EXACT_CONSERV
36     CADJ STORE etaH = tapelev3, key = ilev_3
37     CADJ STORE hDivFlow = tapelev3, key = ilev_3
38 heimbach 1.2 #endif /* */
39 heimbach 1.1
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 heimbach 1.3
74     #else /* INCLUDE_EXTERNAL_FORCING_PACKAGE undef */
75    
76 heimbach 1.4 CADJ STORE empmr = tapelev3, key = ilev_3
77     c
78 heimbach 1.3 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 heimbach 1.4 #ifdef SHORTWAVE_HEATING
91 heimbach 1.3 CADJ STORE Qsw0 = tapelev3, key = ilev_3
92     CADJ STORE Qsw1 = tapelev3, key = ilev_3
93 heimbach 1.4 #endif
94     #ifdef ATMOSPHERIC_LOADING
95     CADJ STORE pload0 = tapelev3, key = ilev_3
96     CADJ STORE pload1 = tapelev3, key = ilev_3
97     #endif
98 heimbach 1.3
99 heimbach 1.1 #endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
100 heimbach 1.2
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    
  ViewVC Help
Powered by ViewVC 1.1.22