/[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.3 - (hide annotations) (download)
Tue Nov 12 20:39:46 2002 UTC (21 years, 7 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46n_post
Changes since 1.2: +18 -0 lines
File MIME type: text/plain 
Merging from release1_p8 branch:
o external_fields_load:
  - added this routine to TAF list
  - needed to make some common blocks global and additional storing
    along the same lines as exf package (checkpoint_lev?_directives.h)
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    
19     #ifdef INCLUDE_CD_CODE
20     CADJ STORE uveld = tapelev3, key = ilev_3
21     CADJ STORE vveld = tapelev3, key = ilev_3
22     CADJ STORE etanm1 = tapelev3, key = ilev_3
23     CADJ STORE unm1 = tapelev3, key = ilev_3
24     CADJ STORE vnm1 = tapelev3, key = ilev_3
25     CADJ STORE gucd = tapelev3, key = ilev_3
26     CADJ STORE gvcd = tapelev3, key = ilev_3
27 heimbach 1.2 #endif /* INCLUDE_CD_CODE */
28 heimbach 1.1
29     #ifdef ALLOW_PASSIVE_TRACER
30     CADJ STORE tr1 = tapelev3, key = ilev_3
31     CADJ STORE gtr1nm1 = tapelev3, key = ilev_3
32 heimbach 1.2 #endif /* */
33 heimbach 1.1
34     #ifdef EXACT_CONSERV
35     CADJ STORE etaH = tapelev3, key = ilev_3
36     CADJ STORE hDivFlow = tapelev3, key = ilev_3
37 heimbach 1.2 #endif /* */
38 heimbach 1.1
39     #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
40     # ifdef ALLOW_ATM_TEMP
41     CADJ STORE aqh0 = tapelev3, key = ilev_3
42     CADJ STORE aqh1 = tapelev3, key = ilev_3
43     CADJ STORE atemp0 = tapelev3, key = ilev_3
44     CADJ STORE atemp1 = tapelev3, key = ilev_3
45     CADJ STORE precip0 = tapelev3, key = ilev_3
46     CADJ STORE precip1 = tapelev3, key = ilev_3
47     CADJ STORE lwflux0 = tapelev3, key = ilev_3
48     CADJ STORE lwflux1 = tapelev3, key = ilev_3
49     CADJ STORE swflux0 = tapelev3, key = ilev_3
50     CADJ STORE swflux1 = tapelev3, key = ilev_3
51     # else
52     CADJ STORE hflux0 = tapelev3, key = ilev_3
53     CADJ STORE hflux1 = tapelev3, key = ilev_3
54     CADJ STORE sflux0 = tapelev3, key = ilev_3
55     CADJ STORE sflux1 = tapelev3, key = ilev_3
56     # ifdef ALLOW_KPP
57     CADJ STORE swflux0 = tapelev3, key = ilev_3
58     CADJ STORE swflux1 = tapelev3, key = ilev_3
59     # endif
60     # endif /* ALLOW_ATM_TEMP */
61     # ifdef ALLOW_ATM_WIND
62     CADJ STORE uwind0 = tapelev3, key = ilev_3
63     CADJ STORE uwind1 = tapelev3, key = ilev_3
64     CADJ STORE vwind0 = tapelev3, key = ilev_3
65     CADJ STORE vwind1 = tapelev3, key = ilev_3
66     # else
67     CADJ STORE ustress0 = tapelev3, key = ilev_3
68     CADJ STORE ustress1 = tapelev3, key = ilev_3
69     CADJ STORE vstress0 = tapelev3, key = ilev_3
70     CADJ STORE vstress1 = tapelev3, key = ilev_3
71     # endif /* ALLOW_ATM_WIND */
72 heimbach 1.3
73     #else /* INCLUDE_EXTERNAL_FORCING_PACKAGE undef */
74    
75     CADJ STORE taux0 = tapelev3, key = ilev_3
76     CADJ STORE taux1 = tapelev3, key = ilev_3
77     CADJ STORE tauy0 = tapelev3, key = ilev_3
78     CADJ STORE tauy1 = tapelev3, key = ilev_3
79     CADJ STORE Qnet0 = tapelev3, key = ilev_3
80     CADJ STORE Qnet1 = tapelev3, key = ilev_3
81     CADJ STORE EmPmR0 = tapelev3, key = ilev_3
82     CADJ STORE EmPmR1 = tapelev3, key = ilev_3
83     CADJ STORE SST0 = tapelev3, key = ilev_3
84     CADJ STORE SST1 = tapelev3, key = ilev_3
85     CADJ STORE SSS0 = tapelev3, key = ilev_3
86     CADJ STORE SSS1 = tapelev3, key = ilev_3
87     CADJ STORE Qsw0 = tapelev3, key = ilev_3
88     CADJ STORE Qsw1 = tapelev3, key = ilev_3
89    
90 heimbach 1.1 #endif /* INCLUDE_EXTERNAL_FORCING_PACKAGE */
91 heimbach 1.2
92     #ifdef ALLOW_OBCS
93     #ifdef ALLOW_OBCS_NORTH
94     CADJ STORE OBNu = tapelev3, key = ilev_3
95     CADJ STORE OBNv = tapelev3, key = ilev_3
96     CADJ STORE OBNt = tapelev3, key = ilev_3
97     CADJ STORE OBNs = tapelev3, key = ilev_3
98     #endif /* ALLOW_OBCS_NORTH */
99     #ifdef ALLOW_OBCS_SOUTH
100     CADJ STORE OBSu = tapelev3, key = ilev_3
101     CADJ STORE OBSv = tapelev3, key = ilev_3
102     CADJ STORE OBSt = tapelev3, key = ilev_3
103     CADJ STORE OBSs = tapelev3, key = ilev_3
104     #endif /* ALLOW_OBCS_SOUTH */
105     #ifdef ALLOW_OBCS_EAST
106     CADJ STORE OBEu = tapelev3, key = ilev_3
107     CADJ STORE OBEv = tapelev3, key = ilev_3
108     CADJ STORE OBEt = tapelev3, key = ilev_3
109     CADJ STORE OBEs = tapelev3, key = ilev_3
110     #endif /* ALLOW_OBCS_EAST */
111     #ifdef ALLOW_OBCS_WEST
112     CADJ STORE OBWu = tapelev3, key = ilev_3
113     CADJ STORE OBWv = tapelev3, key = ilev_3
114     CADJ STORE OBWt = tapelev3, key = ilev_3
115     CADJ STORE OBWs = tapelev3, key = ilev_3
116     #endif /* ALLOW_OBCS_WEST */
117     #endif /* ALLOW_OBCS */
118    
  ViewVC Help
Powered by ViewVC 1.1.22