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

Annotation of /MITgcm/pkg/autodiff/checkpoint_lev2_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 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 heimbach 1.3
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 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 = 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    
  ViewVC Help
Powered by ViewVC 1.1.22