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

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

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

Revision 1.10 - (hide annotations) (download)
Thu May 25 18:32:55 2006 UTC (18 years, 1 month ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint58n_post, checkpoint58h_post, checkpoint58q_post, checkpoint58j_post, checkpoint58f_post, checkpoint58i_post, checkpoint58g_post, checkpoint58o_post, checkpoint58k_post, checkpoint58p_post, checkpoint58m_post
Changes since 1.9: +2 -0 lines
File MIME type: text/plain 
o add new fields wspeed, snowprecip (to be able to couple to thsice)
o correct Stefan-Boltzmann constant
o new parameter for longwave surface emittance
o separate some stuff from exf_bulkformulae into new routines
  exf_radiation, exf_wind
1 edhill 1.2 #ifdef ALLOW_EXF
2 heimbach 1.3
3 heimbach 1.5 CADJ STORE hflux0 = tapelev3, key = ilev_3
4     CADJ STORE hflux1 = tapelev3, key = ilev_3
5     CADJ STORE sflux0 = tapelev3, key = ilev_3
6     CADJ STORE sflux1 = tapelev3, key = ilev_3
7     CADJ STORE ustress0 = tapelev3, key = ilev_3
8     CADJ STORE ustress1 = tapelev3, key = ilev_3
9     CADJ STORE vstress0 = tapelev3, key = ilev_3
10     CADJ STORE vstress1 = tapelev3, key = ilev_3
11 heimbach 1.10 CADJ STORE wspeed0 = tapelev3, key = ilev_3
12     CADJ STORE wspeed1 = tapelev3, key = ilev_3
13 heimbach 1.5
14 heimbach 1.1 # ifdef ALLOW_ATM_TEMP
15 heimbach 1.3
16 heimbach 1.1 CADJ STORE aqh0 = tapelev3, key = ilev_3
17     CADJ STORE aqh1 = tapelev3, key = ilev_3
18     CADJ STORE atemp0 = tapelev3, key = ilev_3
19     CADJ STORE atemp1 = tapelev3, key = ilev_3
20     CADJ STORE precip0 = tapelev3, key = ilev_3
21     CADJ STORE precip1 = tapelev3, key = ilev_3
22     CADJ STORE lwflux0 = tapelev3, key = ilev_3
23     CADJ STORE lwflux1 = tapelev3, key = ilev_3
24     CADJ STORE swflux0 = tapelev3, key = ilev_3
25     CADJ STORE swflux1 = tapelev3, key = ilev_3
26     # ifdef EXF_READ_EVAP
27     CADJ STORE evap0 = tapelev3, key = ilev_3
28     CADJ STORE evap1 = tapelev3, key = ilev_3
29     # else
30     CADJ STORE evap = tapelev3, key = ilev_3
31     # endif /* EXF_READ_EVAP */
32     # ifdef ALLOW_DOWNWARD_RADIATION
33     CADJ STORE swdown0 = tapelev3, key = ilev_3
34     CADJ STORE swdown1 = tapelev3, key = ilev_3
35     CADJ STORE lwdown0 = tapelev3, key = ilev_3
36     CADJ STORE lwdown1 = tapelev3, key = ilev_3
37     # endif
38 heimbach 1.3
39 heimbach 1.1 # else /* ALLOW_ATM_TEMP undef */
40 heimbach 1.3
41 heimbach 1.1 # ifdef SHORTWAVE_HEATING
42     CADJ STORE swflux0 = tapelev3, key = ilev_3
43     CADJ STORE swflux1 = tapelev3, key = ilev_3
44     # endif
45 heimbach 1.3
46 heimbach 1.1 # endif /* ALLOW_ATM_TEMP */
47 heimbach 1.3
48 heimbach 1.1 # ifdef ALLOW_ATM_WIND
49 heimbach 1.3
50 heimbach 1.1 CADJ STORE uwind0 = tapelev3, key = ilev_3
51     CADJ STORE uwind1 = tapelev3, key = ilev_3
52     CADJ STORE vwind0 = tapelev3, key = ilev_3
53     CADJ STORE vwind1 = tapelev3, key = ilev_3
54 heimbach 1.3
55 heimbach 1.1 # else /* ALLOW_ATM_WIND undef */
56 heimbach 1.3
57 heimbach 1.1 # endif /* ALLOW_ATM_WIND */
58 heimbach 1.3
59 heimbach 1.1 # ifdef ALLOW_CLIMSSS_RELAXATION
60     CADJ STORE climsss0 = tapelev3, key = ilev_3
61     CADJ STORE climsss1 = tapelev3, key = ilev_3
62     # endif
63     # ifdef ALLOW_CLIMSST_RELAXATION
64     CADJ STORE climsst0 = tapelev3, key = ilev_3
65     CADJ STORE climsst1 = tapelev3, key = ilev_3
66     # endif
67     # ifdef ALLOW_CLIMSALT_RELAXATION
68     cph not used so far
69     cphCADJ STORE climsalt0 = tapelev3, key = ilev_3
70     cphCADJ STORE climsalt1 = tapelev3, key = ilev_3
71     # endif
72     # ifdef ALLOW_CLIMTEMP_RELAXATION
73     cph not used so far
74     cphCADJ STORE climtemp0 = tapelev3, key = ilev_3
75     cphCADJ STORE climtemp1 = tapelev3, key = ilev_3
76     # endif
77     # ifdef ATMOSPHERIC_LOADING
78     CADJ STORE apressure0 = tapelev3, key = ilev_3
79     CADJ STORE apressure1 = tapelev3, key = ilev_3
80     # endif
81    
82     # ifdef ALLOW_HFLUX_CONTROL
83     CADJ STORE xx_hflux0 = tapelev3, key = ilev_3
84     CADJ STORE xx_hflux1 = tapelev3, key = ilev_3
85     # endif
86     # ifdef ALLOW_SFLUX_CONTROL
87     CADJ STORE xx_sflux0 = tapelev3, key = ilev_3
88     CADJ STORE xx_sflux1 = tapelev3, key = ilev_3
89     # endif
90     # ifdef ALLOW_USTRESS_CONTROL
91     CADJ STORE xx_tauu0 = tapelev3, key = ilev_3
92     CADJ STORE xx_tauu1 = tapelev3, key = ilev_3
93     # endif
94     # ifdef ALLOW_VSTRESS_CONTROL
95     CADJ STORE xx_tauv0 = tapelev3, key = ilev_3
96     CADJ STORE xx_tauv1 = tapelev3, key = ilev_3
97     # endif
98     # ifdef ALLOW_UWIND_CONTROL
99     CADJ STORE xx_uwind0 = tapelev3, key = ilev_3
100     CADJ STORE xx_uwind1 = tapelev3, key = ilev_3
101     # endif
102     # ifdef ALLOW_VWIND_CONTROL
103     CADJ STORE xx_vwind0 = tapelev3, key = ilev_3
104     CADJ STORE xx_vwind1 = tapelev3, key = ilev_3
105     # endif
106     # ifdef ALLOW_ATEMP_CONTROL
107     CADJ STORE xx_atemp0 = tapelev3, key = ilev_3
108     CADJ STORE xx_atemp1 = tapelev3, key = ilev_3
109     # endif
110     # ifdef ALLOW_AQH_CONTROL
111     CADJ STORE xx_aqh0 = tapelev3, key = ilev_3
112     CADJ STORE xx_aqh1 = tapelev3, key = ilev_3
113     # endif
114 heimbach 1.6 # ifdef ALLOW_PRECIP_CONTROL
115     CADJ STORE xx_precip0 = tapelev3, key = ilev_3
116     CADJ STORE xx_precip1 = tapelev3, key = ilev_3
117     # endif
118 heimbach 1.7 # ifdef ALLOW_SWFLUX_CONTROL
119     CADJ STORE xx_swflux0 = tapelev3, key = ilev_3
120     CADJ STORE xx_swflux1 = tapelev3, key = ilev_3
121     # endif
122 heimbach 1.8 # ifdef ALLOW_SWDOWN_CONTROL
123     CADJ STORE xx_swdown0 = tapelev3, key = ilev_3
124     CADJ STORE xx_swdown1 = tapelev3, key = ilev_3
125     # endif
126 heimbach 1.9 # ifdef ALLOW_SST_CONTROL
127     CADJ STORE xx_sst0 = tapelev3, key = ilev_3
128     CADJ STORE xx_sst1 = tapelev3, key = ilev_3
129     # endif
130     # ifdef ALLOW_SSS_CONTROL
131     CADJ STORE xx_sss0 = tapelev3, key = ilev_3
132     CADJ STORE xx_sss1 = tapelev3, key = ilev_3
133     # endif
134 heimbach 1.3
135 edhill 1.2 #endif /* ALLOW_EXF */
  ViewVC Help
Powered by ViewVC 1.1.22