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

Contents 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.5 - (show annotations) (download)
Fri Jul 2 00:48:23 2004 UTC (19 years, 11 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint54a_pre, checkpoint57m_post, checkpoint55c_post, checkpoint54e_post, checkpoint54a_post, checkpoint57k_post, checkpoint55d_pre, checkpoint57d_post, checkpoint57g_post, checkpoint57b_post, checkpoint57c_pre, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57e_post, checkpoint55h_post, checkpoint57g_pre, checkpoint54b_post, checkpoint55b_post, checkpoint54d_post, checkpoint56c_post, checkpoint55, checkpoint57f_pre, checkpoint57a_post, checkpoint54, checkpoint54f_post, checkpoint55g_post, checkpoint55f_post, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, eckpoint57e_pre, checkpoint57h_done, checkpoint53g_post, checkpoint57f_post, checkpoint57c_post, checkpoint55e_post, checkpoint55a_post, checkpoint54c_post, checkpoint57j_post, checkpoint57h_pre, checkpoint57l_post, checkpoint57h_post, checkpoint56a_post, checkpoint55d_post
Changes since 1.4: +9 -13 lines
File MIME type: text/plain 
o Modified logic for ALLOW_ATM_[TEMP/WIND]
o temporary field for function calls
1 #ifdef ALLOW_EXF
2
3 CADJ STORE hflux0 = tapelev2, key = ilev_2
4 CADJ STORE hflux1 = tapelev2, key = ilev_2
5 CADJ STORE sflux0 = tapelev2, key = ilev_2
6 CADJ STORE sflux1 = tapelev2, key = ilev_2
7 CADJ STORE ustress0 = tapelev2, key = ilev_2
8 CADJ STORE ustress1 = tapelev2, key = ilev_2
9 CADJ STORE vstress0 = tapelev2, key = ilev_2
10 CADJ STORE vstress1 = tapelev2, key = ilev_2
11
12 # ifdef ALLOW_ATM_TEMP
13
14 CADJ STORE aqh0 = tapelev2, key = ilev_2
15 CADJ STORE aqh1 = tapelev2, key = ilev_2
16 CADJ STORE atemp0 = tapelev2, key = ilev_2
17 CADJ STORE atemp1 = tapelev2, key = ilev_2
18 CADJ STORE precip0 = tapelev2, key = ilev_2
19 CADJ STORE precip1 = tapelev2, key = ilev_2
20 CADJ STORE lwflux0 = tapelev2, key = ilev_2
21 CADJ STORE lwflux1 = tapelev2, key = ilev_2
22 CADJ STORE swflux0 = tapelev2, key = ilev_2
23 CADJ STORE swflux1 = tapelev2, key = ilev_2
24 # ifdef EXF_READ_EVAP
25 CADJ STORE evap0 = tapelev2, key = ilev_2
26 CADJ STORE evap1 = tapelev2, key = ilev_2
27 # else
28 CADJ STORE evap = tapelev2, key = ilev_2
29 # endif /* EXF_READ_EVAP */
30 # ifdef ALLOW_DOWNWARD_RADIATION
31 CADJ STORE swdown0 = tapelev2, key = ilev_2
32 CADJ STORE swdown1 = tapelev2, key = ilev_2
33 CADJ STORE lwdown0 = tapelev2, key = ilev_2
34 CADJ STORE lwdown1 = tapelev2, key = ilev_2
35 # endif
36
37 # else /* ALLOW_ATM_TEMP undef */
38
39 # ifdef SHORTWAVE_HEATING
40 CADJ STORE swflux0 = tapelev2, key = ilev_2
41 CADJ STORE swflux1 = tapelev2, key = ilev_2
42 # endif
43
44 # endif /* ALLOW_ATM_TEMP */
45
46 # ifdef ALLOW_ATM_WIND
47
48 CADJ STORE uwind0 = tapelev2, key = ilev_2
49 CADJ STORE uwind1 = tapelev2, key = ilev_2
50 CADJ STORE vwind0 = tapelev2, key = ilev_2
51 CADJ STORE vwind1 = tapelev2, key = ilev_2
52
53 # else /* ALLOW_ATM_WIND undef */
54
55 # endif /* ALLOW_ATM_WIND */
56
57 # 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
113 #endif /* ALLOW_EXF */
  ViewVC Help
Powered by ViewVC 1.1.22