/[MITgcm]/MITgcm/pkg/exf/exf_ad_check_lev2_dir.h
ViewVC logotype

Annotation of /MITgcm/pkg/exf/exf_ad_check_lev2_dir.h

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


Revision 1.3 - (hide annotations) (download)
Fri Feb 13 20:32:54 2004 UTC (20 years, 4 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint52l_pre, checkpoint52j_post, checkpoint52l_post, checkpoint52k_post, checkpoint52m_post, hrcube5, checkpoint52j_pre
Changes since 1.2: +12 -12 lines
File MIME type: text/plain
Removed non-standard syntax (problem e.g. on IBM SP4)

1 edhill 1.2 #ifdef ALLOW_EXF
2 heimbach 1.3
3 heimbach 1.1 # ifdef ALLOW_ATM_TEMP
4 heimbach 1.3
5 heimbach 1.1 CADJ STORE aqh0 = tapelev2, key = ilev_2
6     CADJ STORE aqh1 = tapelev2, key = ilev_2
7     CADJ STORE atemp0 = tapelev2, key = ilev_2
8     CADJ STORE atemp1 = tapelev2, key = ilev_2
9     CADJ STORE precip0 = tapelev2, key = ilev_2
10     CADJ STORE precip1 = tapelev2, key = ilev_2
11     CADJ STORE lwflux0 = tapelev2, key = ilev_2
12     CADJ STORE lwflux1 = tapelev2, key = ilev_2
13     CADJ STORE swflux0 = tapelev2, key = ilev_2
14     CADJ STORE swflux1 = tapelev2, key = ilev_2
15     # ifdef EXF_READ_EVAP
16     CADJ STORE evap0 = tapelev2, key = ilev_2
17     CADJ STORE evap1 = tapelev2, key = ilev_2
18     # else
19     CADJ STORE evap = tapelev2, key = ilev_2
20     # endif /* EXF_READ_EVAP */
21     # ifdef ALLOW_DOWNWARD_RADIATION
22     CADJ STORE swdown0 = tapelev2, key = ilev_2
23     CADJ STORE swdown1 = tapelev2, key = ilev_2
24     CADJ STORE lwdown0 = tapelev2, key = ilev_2
25     CADJ STORE lwdown1 = tapelev2, key = ilev_2
26     # endif
27 heimbach 1.3
28 heimbach 1.1 # else /* ALLOW_ATM_TEMP undef */
29 heimbach 1.3
30 heimbach 1.1 CADJ STORE hflux0 = tapelev2, key = ilev_2
31     CADJ STORE hflux1 = tapelev2, key = ilev_2
32     CADJ STORE sflux0 = tapelev2, key = ilev_2
33     CADJ STORE sflux1 = tapelev2, key = ilev_2
34     # ifdef SHORTWAVE_HEATING
35     CADJ STORE swflux0 = tapelev2, key = ilev_2
36     CADJ STORE swflux1 = tapelev2, key = ilev_2
37     # endif
38 heimbach 1.3
39 heimbach 1.1 # endif /* ALLOW_ATM_TEMP */
40 heimbach 1.3
41 heimbach 1.1 # ifdef ALLOW_ATM_WIND
42 heimbach 1.3
43 heimbach 1.1 CADJ STORE uwind0 = tapelev2, key = ilev_2
44     CADJ STORE uwind1 = tapelev2, key = ilev_2
45     CADJ STORE vwind0 = tapelev2, key = ilev_2
46     CADJ STORE vwind1 = tapelev2, key = ilev_2
47 heimbach 1.3
48 heimbach 1.1 # else /* ALLOW_ATM_WIND undef */
49 heimbach 1.3
50 heimbach 1.1 CADJ STORE ustress0 = tapelev2, key = ilev_2
51     CADJ STORE ustress1 = tapelev2, key = ilev_2
52     CADJ STORE vstress0 = tapelev2, key = ilev_2
53     CADJ STORE vstress1 = tapelev2, key = ilev_2
54 heimbach 1.3
55 heimbach 1.1 # endif /* ALLOW_ATM_WIND */
56 heimbach 1.3
57 heimbach 1.1 # ifdef ALLOW_CLIMSSS_RELAXATION
58     CADJ STORE climsss0 = tapelev2, key = ilev_2
59     CADJ STORE climsss1 = tapelev2, key = ilev_2
60     # endif
61     # ifdef ALLOW_CLIMSST_RELAXATION
62     CADJ STORE climsst0 = tapelev2, key = ilev_2
63     CADJ STORE climsst1 = tapelev2, key = ilev_2
64     # endif
65     # ifdef ALLOW_CLIMSALT_RELAXATION
66     cph not used so far
67     cphCADJ STORE climsalt0 = tapelev2, key = ilev_2
68     cphCADJ STORE climsalt1 = tapelev2, key = ilev_2
69     # endif
70     # ifdef ALLOW_CLIMTEMP_RELAXATION
71     cph not used so far
72     cphCADJ STORE climtemp0 = tapelev2, key = ilev_2
73     cphCADJ STORE climtemp1 = tapelev2, key = ilev_2
74     # endif
75     # ifdef ATMOSPHERIC_LOADING
76     CADJ STORE apressure0 = tapelev2, key = ilev_2
77     CADJ STORE apressure1 = tapelev2, key = ilev_2
78     # endif
79    
80     # ifdef ALLOW_HFLUX_CONTROL
81     CADJ STORE xx_hflux0 = tapelev2, key = ilev_2
82     CADJ STORE xx_hflux1 = tapelev2, key = ilev_2
83     # endif
84     # ifdef ALLOW_SFLUX_CONTROL
85     CADJ STORE xx_sflux0 = tapelev2, key = ilev_2
86     CADJ STORE xx_sflux1 = tapelev2, key = ilev_2
87     # endif
88     # ifdef ALLOW_USTRESS_CONTROL
89     CADJ STORE xx_tauu0 = tapelev2, key = ilev_2
90     CADJ STORE xx_tauu1 = tapelev2, key = ilev_2
91     # endif
92     # ifdef ALLOW_VSTRESS_CONTROL
93     CADJ STORE xx_tauv0 = tapelev2, key = ilev_2
94     CADJ STORE xx_tauv1 = tapelev2, key = ilev_2
95     # endif
96     # ifdef ALLOW_UWIND_CONTROL
97     CADJ STORE xx_uwind0 = tapelev2, key = ilev_2
98     CADJ STORE xx_uwind1 = tapelev2, key = ilev_2
99     # endif
100     # ifdef ALLOW_VWIND_CONTROL
101     CADJ STORE xx_vwind0 = tapelev2, key = ilev_2
102     CADJ STORE xx_vwind1 = tapelev2, key = ilev_2
103     # endif
104     # ifdef ALLOW_ATEMP_CONTROL
105     CADJ STORE xx_atemp0 = tapelev2, key = ilev_2
106     CADJ STORE xx_atemp1 = tapelev2, key = ilev_2
107     # endif
108     # ifdef ALLOW_AQH_CONTROL
109     CADJ STORE xx_aqh0 = tapelev2, key = ilev_2
110     CADJ STORE xx_aqh1 = tapelev2, key = ilev_2
111     # endif
112 heimbach 1.3
113 edhill 1.2 #endif /* ALLOW_EXF */

  ViewVC Help
Powered by ViewVC 1.1.22