/[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.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 = 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 heimbach 1.10 CADJ STORE wspeed0 = tapelev2, key = ilev_2
12     CADJ STORE wspeed1 = tapelev2, key = ilev_2
13 heimbach 1.5
14 heimbach 1.1 # ifdef ALLOW_ATM_TEMP
15 heimbach 1.3
16 heimbach 1.1 CADJ STORE aqh0 = tapelev2, key = ilev_2
17     CADJ STORE aqh1 = tapelev2, key = ilev_2
18     CADJ STORE atemp0 = tapelev2, key = ilev_2
19     CADJ STORE atemp1 = tapelev2, key = ilev_2
20     CADJ STORE precip0 = tapelev2, key = ilev_2
21     CADJ STORE precip1 = tapelev2, key = ilev_2
22     CADJ STORE lwflux0 = tapelev2, key = ilev_2
23     CADJ STORE lwflux1 = tapelev2, key = ilev_2
24     CADJ STORE swflux0 = tapelev2, key = ilev_2
25     CADJ STORE swflux1 = tapelev2, key = ilev_2
26     # ifdef EXF_READ_EVAP
27     CADJ STORE evap0 = tapelev2, key = ilev_2
28     CADJ STORE evap1 = tapelev2, key = ilev_2
29     # else
30     CADJ STORE evap = tapelev2, key = ilev_2
31     # endif /* EXF_READ_EVAP */
32     # ifdef ALLOW_DOWNWARD_RADIATION
33     CADJ STORE swdown0 = tapelev2, key = ilev_2
34     CADJ STORE swdown1 = tapelev2, key = ilev_2
35     CADJ STORE lwdown0 = tapelev2, key = ilev_2
36     CADJ STORE lwdown1 = tapelev2, key = ilev_2
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 = tapelev2, key = ilev_2
43     CADJ STORE swflux1 = tapelev2, key = ilev_2
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 = tapelev2, key = ilev_2
51     CADJ STORE uwind1 = tapelev2, key = ilev_2
52     CADJ STORE vwind0 = tapelev2, key = ilev_2
53     CADJ STORE vwind1 = tapelev2, key = ilev_2
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 = tapelev2, key = ilev_2
61     CADJ STORE climsss1 = tapelev2, key = ilev_2
62     # endif
63     # ifdef ALLOW_CLIMSST_RELAXATION
64     CADJ STORE climsst0 = tapelev2, key = ilev_2
65     CADJ STORE climsst1 = tapelev2, key = ilev_2
66     # endif
67     # ifdef ALLOW_CLIMSALT_RELAXATION
68     cph not used so far
69     cphCADJ STORE climsalt0 = tapelev2, key = ilev_2
70     cphCADJ STORE climsalt1 = tapelev2, key = ilev_2
71     # endif
72     # ifdef ALLOW_CLIMTEMP_RELAXATION
73     cph not used so far
74     cphCADJ STORE climtemp0 = tapelev2, key = ilev_2
75     cphCADJ STORE climtemp1 = tapelev2, key = ilev_2
76     # endif
77     # ifdef ATMOSPHERIC_LOADING
78     CADJ STORE apressure0 = tapelev2, key = ilev_2
79     CADJ STORE apressure1 = tapelev2, key = ilev_2
80     # endif
81    
82     # ifdef ALLOW_HFLUX_CONTROL
83     CADJ STORE xx_hflux0 = tapelev2, key = ilev_2
84     CADJ STORE xx_hflux1 = tapelev2, key = ilev_2
85     # endif
86     # ifdef ALLOW_SFLUX_CONTROL
87     CADJ STORE xx_sflux0 = tapelev2, key = ilev_2
88     CADJ STORE xx_sflux1 = tapelev2, key = ilev_2
89     # endif
90     # ifdef ALLOW_USTRESS_CONTROL
91     CADJ STORE xx_tauu0 = tapelev2, key = ilev_2
92     CADJ STORE xx_tauu1 = tapelev2, key = ilev_2
93     # endif
94     # ifdef ALLOW_VSTRESS_CONTROL
95     CADJ STORE xx_tauv0 = tapelev2, key = ilev_2
96     CADJ STORE xx_tauv1 = tapelev2, key = ilev_2
97     # endif
98     # ifdef ALLOW_UWIND_CONTROL
99     CADJ STORE xx_uwind0 = tapelev2, key = ilev_2
100     CADJ STORE xx_uwind1 = tapelev2, key = ilev_2
101     # endif
102     # ifdef ALLOW_VWIND_CONTROL
103     CADJ STORE xx_vwind0 = tapelev2, key = ilev_2
104     CADJ STORE xx_vwind1 = tapelev2, key = ilev_2
105     # endif
106     # ifdef ALLOW_ATEMP_CONTROL
107     CADJ STORE xx_atemp0 = tapelev2, key = ilev_2
108     CADJ STORE xx_atemp1 = tapelev2, key = ilev_2
109     # endif
110     # ifdef ALLOW_AQH_CONTROL
111     CADJ STORE xx_aqh0 = tapelev2, key = ilev_2
112     CADJ STORE xx_aqh1 = tapelev2, key = ilev_2
113     # endif
114 heimbach 1.6 # ifdef ALLOW_PRECIP_CONTROL
115     CADJ STORE xx_precip0 = tapelev2, key = ilev_2
116     CADJ STORE xx_precip1 = tapelev2, key = ilev_2
117     # endif
118 heimbach 1.7 # ifdef ALLOW_SWFLUX_CONTROL
119     CADJ STORE xx_swflux0 = tapelev2, key = ilev_2
120     CADJ STORE xx_swflux1 = tapelev2, key = ilev_2
121     # endif
122 heimbach 1.8 # ifdef ALLOW_SWDOWN_CONTROL
123     CADJ STORE xx_swdown0 = tapelev2, key = ilev_2
124     CADJ STORE xx_swdown1 = tapelev2, key = ilev_2
125     # endif
126 heimbach 1.9 # ifdef ALLOW_SST_CONTROL
127     CADJ STORE xx_sst0 = tapelev2, key = ilev_2
128     CADJ STORE xx_sst1 = tapelev2, key = ilev_2
129     # endif
130     # ifdef ALLOW_SSS_CONTROL
131     CADJ STORE xx_sss0 = tapelev2, key = ilev_2
132     CADJ STORE xx_sss1 = tapelev2, key = ilev_2
133     # endif
134 heimbach 1.3
135 edhill 1.2 #endif /* ALLOW_EXF */
  ViewVC Help
Powered by ViewVC 1.1.22