1 |
jmc |
1.4 |
C $Header: /u/gcmpack/MITgcm/pkg/bulk_force/BULKF_PARAMS.h,v 1.3 2006/03/14 15:57:31 jmc Exp $ |
2 |
jmc |
1.1 |
C $Name: $ |
3 |
|
|
|
4 |
|
|
#ifdef ALLOW_BULK_FORCE |
5 |
|
|
C *==========================================================* |
6 |
|
|
C | BULK_PARAMS.h |
7 |
jmc |
1.4 |
C | o Header file for BULK_FORCE package parameters: |
8 |
jmc |
1.1 |
C | - basic parameter ( I/O frequency, etc ...) |
9 |
jmc |
1.4 |
C | - physical constants |
10 |
jmc |
1.1 |
C *==========================================================* |
11 |
|
|
|
12 |
jmc |
1.2 |
C-- COMMON / BULK_PHYS_CONST / physical constants |
13 |
jmc |
1.1 |
C.. densities |
14 |
jmc |
1.4 |
C rhoA :: density of air [kg/m^3] |
15 |
|
|
C rhoFW :: density of fresh water [kg/m^3] |
16 |
|
|
C rhoSW :: density of sea water [kg/m^3] |
17 |
jmc |
1.1 |
C.. specific heats |
18 |
jmc |
1.4 |
C cpAir :: specific heat of air [J/kg/K] |
19 |
|
|
C cpwv :: specific heat of water vapour [J/kg/K] |
20 |
|
|
C.. latent heat |
21 |
|
|
C Lvap :: latent heat of vaporization at 0.oC [J/kg] |
22 |
|
|
C Lfresh :: latent heat of melting of pure ice [J/kg] |
23 |
|
|
C Lvap_ice :: latent heat from sublimation [J/kg] |
24 |
|
|
C.. constants |
25 |
|
|
C Tf0kel :: Freezing temp of fresh water in Kelvin = 273.15 |
26 |
|
|
C Rgas :: gas constant for dry air [J/kg/K] |
27 |
|
|
C Rvap :: gas constant for H2O vapor [J/kg/K] |
28 |
|
|
C xkar :: von Karman constant [-] |
29 |
|
|
C stefan :: Stefan-Boltzmann constant [W/m^2/K^4] |
30 |
|
|
C.. for transfer coefficient |
31 |
|
|
C zref :: reference height [m] for transfer coefficient |
32 |
|
|
C zwd :: height [m] of near-surface wind-speed input data |
33 |
|
|
C zth :: height [m] of near-surface air-temp. & air-humid. input |
34 |
|
|
C cDrag_[n] :: n = 1,2,3 coefficients used to evaluate drag coefficient |
35 |
|
|
C cStantonS,U :: coefficients used to evaluate Stanton number (for |
36 |
|
|
C sensib. Heat Flx), under Stable / Unstable stratification |
37 |
|
|
C cDalton :: coefficient used to evaluate Dalton number (for Evap) |
38 |
|
|
C.. for bulk formula |
39 |
|
|
C umin :: minimum wind speed used in bulk-formulae [m/s] |
40 |
|
|
C humid_fac :: dry-air - water-vapor molecular mass ratio (minus one) |
41 |
|
|
C (used to calculate virtual temp.) |
42 |
|
|
C saltQsFac :: reduction of sat. vapor pressure over salty water |
43 |
|
|
C gamma_blk :: adiabatic lapse rate |
44 |
|
|
C.. for Long-Wave Radiation |
45 |
|
|
C atm_emissivity :: |
46 |
|
|
C ocean_emissivity :: |
47 |
|
|
C snow_emissivity :: |
48 |
|
|
C ice_emissivity :: |
49 |
|
|
C.. for BULKF_FORMULA_AIM |
50 |
jmc |
1.2 |
C FWIND0 :: ratio of near-sfc wind to lowest-level wind |
51 |
|
|
C CHS :: heat exchange coefficient over sea |
52 |
|
|
C VGUST :: wind speed for sub-grid-scale gusts |
53 |
|
|
C DTHETA :: Potential temp. gradient for stability correction |
54 |
|
|
C dTstab :: potential temp. increment for stability function derivative |
55 |
|
|
C FSTAB :: Amplitude of stability correction (fraction) |
56 |
jmc |
1.4 |
C.. Albedo |
57 |
|
|
C ocean_albedo :: ocean surface albedo [0-1] |
58 |
jmc |
1.1 |
|
59 |
jmc |
1.4 |
_RL rhoA |
60 |
|
|
c _RL rhoSW |
61 |
|
|
_RL rhoFW |
62 |
|
|
_RL cpAir |
63 |
|
|
c _RL cpwv |
64 |
jmc |
1.1 |
_RL Lvap |
65 |
|
|
_RL Lfresh |
66 |
jmc |
1.4 |
c _RL Lvap_ice |
67 |
jmc |
1.1 |
_RL Tf0kel |
68 |
jmc |
1.4 |
_RL Rgas |
69 |
|
|
c _RL Rvap |
70 |
|
|
_RL xkar |
71 |
jmc |
1.1 |
_RL stefan |
72 |
jmc |
1.4 |
_RL zref, zwd, zth |
73 |
|
|
_RL cDrag_1, cDrag_2, cDrag_3 |
74 |
|
|
_RL cStantonS, cStantonU |
75 |
|
|
_RL cDalton |
76 |
|
|
_RL umin |
77 |
jmc |
1.1 |
_RL humid_fac |
78 |
jmc |
1.4 |
_RL saltQsFac |
79 |
jmc |
1.1 |
_RL gamma_blk |
80 |
|
|
_RL atm_emissivity |
81 |
|
|
_RL ocean_emissivity |
82 |
|
|
_RL snow_emissivity |
83 |
|
|
_RL ice_emissivity |
84 |
jmc |
1.2 |
#ifdef ALLOW_FORMULA_AIM |
85 |
|
|
_RL FWIND0, CHS, VGUST, DTHETA, dTstab, FSTAB |
86 |
|
|
#endif |
87 |
|
|
_RL ocean_albedo |
88 |
|
|
COMMON / BULK_PHYS_CONST / |
89 |
jmc |
1.4 |
& rhoA, rhoFW, |
90 |
|
|
& cpAir, Lvap, Lfresh, |
91 |
|
|
& Tf0kel, Rgas, |
92 |
|
|
& xkar, stefan, |
93 |
|
|
& zref, zwd, zth, |
94 |
|
|
& cDrag_1, cDrag_2, cDrag_3, |
95 |
|
|
& cStantonS, cStantonU, cDalton, |
96 |
|
|
& umin, humid_fac, saltQsFac, gamma_blk, |
97 |
jmc |
1.2 |
& atm_emissivity, ocean_emissivity, |
98 |
|
|
& snow_emissivity, ice_emissivity, |
99 |
|
|
#ifdef ALLOW_FORMULA_AIM |
100 |
|
|
& FWIND0, CHS, VGUST, DTHETA, dTstab, FSTAB, |
101 |
|
|
#endif |
102 |
|
|
& ocean_albedo |
103 |
|
|
|
104 |
jmc |
1.4 |
C-- COMMON / BULK_PAR_I / Integer parameters |
105 |
|
|
C blk_nIter :: Number of iterations to find turbulent transfer coeff. |
106 |
|
|
|
107 |
|
|
INTEGER blk_nIter |
108 |
|
|
COMMON / BULK_PAR_I / |
109 |
|
|
& blk_nIter |
110 |
|
|
|
111 |
jmc |
1.2 |
C-- COMMON / BULK_PAR_R / real parameter |
112 |
jmc |
1.4 |
C blk_taveFreq :: time-average output frequency [s] |
113 |
jmc |
1.2 |
|
114 |
jmc |
1.1 |
_RL blk_taveFreq |
115 |
jmc |
1.2 |
COMMON / BULK_PAR_R / |
116 |
|
|
& blk_taveFreq |
117 |
|
|
|
118 |
|
|
C-- COMMON / BULK_PAR_L / Logical parameters |
119 |
|
|
C .. for BULKF_FORMULA_AIM |
120 |
|
|
C calcWindStress :: True to calculate Wind-Stress from surface wind |
121 |
|
|
C useFluxFormula_AIM :: set to T when using AIM flux formula rather |
122 |
|
|
C than the default formula (LANL) |
123 |
|
|
|
124 |
|
|
LOGICAL calcWindStress |
125 |
|
|
LOGICAL useFluxFormula_AIM |
126 |
jmc |
1.3 |
LOGICAL useQnetch, useEmPch |
127 |
jmc |
1.2 |
COMMON / BULK_PAR_L / |
128 |
|
|
& calcWindStress, |
129 |
jmc |
1.3 |
& useFluxFormula_AIM, |
130 |
|
|
& useQnetch, useEmPch |
131 |
jmc |
1.2 |
|
132 |
|
|
C-- COMMON / BULK_PAR_C / Character string parameters |
133 |
jmc |
1.4 |
|
134 |
jmc |
1.2 |
CHARACTER*(MAX_LEN_FNAM) AirTempFile |
135 |
|
|
CHARACTER*(MAX_LEN_FNAM) AirHumidityFile |
136 |
|
|
CHARACTER*(MAX_LEN_FNAM) RainFile |
137 |
|
|
CHARACTER*(MAX_LEN_FNAM) SolarFile |
138 |
|
|
CHARACTER*(MAX_LEN_FNAM) LongwaveFile |
139 |
|
|
CHARACTER*(MAX_LEN_FNAM) UWindFile |
140 |
|
|
CHARACTER*(MAX_LEN_FNAM) VWindFile |
141 |
|
|
CHARACTER*(MAX_LEN_FNAM) WSpeedFile |
142 |
|
|
CHARACTER*(MAX_LEN_FNAM) RunoffFile |
143 |
|
|
CHARACTER*(MAX_LEN_FNAM) QnetFile |
144 |
|
|
CHARACTER*(MAX_LEN_FNAM) EmPFile |
145 |
|
|
CHARACTER*(MAX_LEN_FNAM) CloudFile |
146 |
|
|
CHARACTER*(MAX_LEN_FNAM) SnowFile |
147 |
|
|
CHARACTER*(MAX_LEN_FNAM) airPotTempFile |
148 |
|
|
COMMON / BULK_PAR_C / |
149 |
|
|
& AirTempFile, AirHumidityFile, RainFile, |
150 |
|
|
& SolarFile, LongwaveFile, UWindFile, VWindFile, |
151 |
|
|
& WSpeedFile, RunoffFile, |
152 |
|
|
& QnetFile, EmPFile, CloudFile, SnowFile, |
153 |
|
|
& airPotTempFile |
154 |
|
|
|
155 |
jmc |
1.1 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
156 |
|
|
|
157 |
|
|
#endif /*ALLOW_BULK_FORCE*/ |