1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_BULK_FORCE |
5 |
C *==========================================================* |
6 |
C | BULK_PARAMS.h |
7 |
C | o Header file for BULK_FORC package parameters: |
8 |
C | - basic parameter ( I/O frequency, etc ...) |
9 |
C | - physical constants (not used in therm_seaice pkg) |
10 |
C *==========================================================* |
11 |
|
12 |
C-- COMMON / BULK_PAR_R / physical (real) parameter |
13 |
C.. densities |
14 |
C rhoa :: density of air (kg/m^3) |
15 |
C rhofw :: density of fresh water (kg/m^3) |
16 |
C.. specific heats |
17 |
C cpair :: specific heat of air (J/kg/K) |
18 |
C cpwv :: specific heat of water vapour (J/kg/KC) |
19 |
C .. latent heat |
20 |
C Lvap :: latent heat of vaporizn at 0 C (J/kg) |
21 |
C Lfresh :: latent heat of melting of pure ice (J/kg) |
22 |
C .. melting |
23 |
C Tf0kel :: Freezing temp of fresh ice in Kelvin = 273.15 |
24 |
C .. wind drag |
25 |
C drag_[n] :: n = 1,2,3 coefficients used to evaluate drag coefficient |
26 |
C .. constants |
27 |
C stefan :: Stefan-Boltzmann constant (W/m^2 K^4) |
28 |
C xkar :: Von Karman constant QQ units? |
29 |
C Rvap :: gas constant for H2O vapor (J/kg/K) |
30 |
C.. Miscellaneous |
31 |
C p0 :: surface pressure (mb) |
32 |
C.. Combinations used for efficiency |
33 |
C Qcoef :: another constant for latent heat flux |
34 |
C .. for bulk formula |
35 |
C humid_fac :: const. for the evaluation of the virtual temp. |
36 |
C saltsat :: reduction of sat. vapor pressure over salt water |
37 |
C gamma_blk :: adiabatic lapse rate |
38 |
C .. for Vince bulk formula QQ check units |
39 |
C Lvap_ice :: latent heat from sublimation |
40 |
C Rgas :: gas constant for dry air |
41 |
C Sha :: |
42 |
C .. emissivities |
43 |
C atm_emissivity :: |
44 |
C ocean_emissivity :: |
45 |
C snow_emissivity :: |
46 |
C ice_emissivity :: |
47 |
|
48 |
COMMON / BULK_PAR_R / |
49 |
& rhoa, rhosw, rhofw, |
50 |
& cpair, cpwv, |
51 |
& Lvap, Lfresh, |
52 |
& Tf0kel, |
53 |
& cdrag_1, cdrag_2, cdrag_3, |
54 |
& stefan, xkar, Rvap, |
55 |
& p0, Qcoef, |
56 |
& humid_fac, saltsat, gamma_blk, |
57 |
& Lvap_ice, Rgas, Sha, |
58 |
& atm_emissivity, ocean_emissivity, |
59 |
& snow_emissivity, ice_emissivity, |
60 |
& blk_taveFreq |
61 |
|
62 |
_RL rhoa |
63 |
_RL rhosw |
64 |
_RL rhofw |
65 |
_RL cpair |
66 |
_RL cpwv |
67 |
_RL Lvap |
68 |
_RL Lfresh |
69 |
_RL Tf0kel |
70 |
_RL cdrag_1, cdrag_2, cdrag_3 |
71 |
_RL stefan |
72 |
_RL xkar |
73 |
_RL Rvap |
74 |
_RL p0 |
75 |
_RL Qcoef |
76 |
_RL humid_fac |
77 |
_RL saltsat |
78 |
_RL gamma_blk |
79 |
_RL Lvap_ice |
80 |
_RL Rgas |
81 |
_RL Sha |
82 |
_RL atm_emissivity |
83 |
_RL ocean_emissivity |
84 |
_RL snow_emissivity |
85 |
_RL ice_emissivity |
86 |
_RL blk_taveFreq |
87 |
|
88 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
89 |
|
90 |
#endif /*ALLOW_BULK_FORCE*/ |