1 |
C $Header: /u/gcmpack/MITgcm/pkg/atm_phys/ATM_PHYS_PARAMS.h,v 1.1 2013/05/08 22:14:14 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_ATM_PHYS |
5 |
|
6 |
C-- ATM_PHYS parameters |
7 |
C atmPhys_addTendT :: apply ATM_PHYS tendency to temperature |
8 |
C atmPhys_addTendS :: apply ATM_PHYS tendency to Specific Humid |
9 |
C atmPhys_addTendU :: apply ATM_PHYS tendency to U-component wind |
10 |
C atmPhys_addTendV :: apply ATM_PHYS tendency to V-component wind |
11 |
C atmPhys_stepSST :: step forward SST |
12 |
LOGICAL atmPhys_addTendT |
13 |
LOGICAL atmPhys_addTendS |
14 |
LOGICAL atmPhys_addTendU |
15 |
LOGICAL atmPhys_addTendV |
16 |
LOGICAL atmPhys_stepSST |
17 |
|
18 |
C- horizontal momentum damping (e.g., stratospheric drag) |
19 |
C atmPhys_tauDampUV :: damping time-scale (s) |
20 |
C atmPhys_dampUVfac :: damping coefficient for each level |
21 |
_RL atmPhys_tauDampUV |
22 |
_RL atmPhys_dampUVfac(Nr) |
23 |
|
24 |
C- file names for initial conditions: |
25 |
C atmPhys_SSTFile :: name of initial SST [in K] file |
26 |
C atmPhys_QflxFile :: name of Q-flux file |
27 |
CHARACTER*(MAX_LEN_FNAM) atmPhys_SSTFile |
28 |
CHARACTER*(MAX_LEN_FNAM) atmPhys_QflxFile |
29 |
|
30 |
COMMON /ATM_PHYS_PARAMS_L/ |
31 |
& atmPhys_addTendT, atmPhys_addTendS, |
32 |
& atmPhys_addTendU, atmPhys_addTendV, |
33 |
& atmPhys_stepSST |
34 |
COMMON /ATM_PHYS_PARAMS_R/ |
35 |
& atmPhys_tauDampUV, atmPhys_dampUVfac |
36 |
COMMON /ATM_PHYS_PARAMS_C/ |
37 |
& atmPhys_SSTFile, atmPhys_QflxFile |
38 |
|
39 |
C-- from driver-atmosphere module: |
40 |
logical module_is_initialized |
41 |
logical turb |
42 |
logical ldry_convection |
43 |
logical do_virtual |
44 |
logical lwet_convection |
45 |
logical two_stream |
46 |
logical mixed_layer_bc |
47 |
COMMON /ATMOS_DRIVER_L/ |
48 |
& module_is_initialized, |
49 |
& turb, ldry_convection, do_virtual, |
50 |
& lwet_convection, two_stream, mixed_layer_bc |
51 |
|
52 |
_RL roughness_heat |
53 |
_RL roughness_moist |
54 |
_RL roughness_mom |
55 |
COMMON /ATMOS_DRIVER_RL/ |
56 |
& roughness_heat, roughness_moist, roughness_mom |
57 |
|
58 |
#endif /* ALLOW_ATM_PHYS */ |
59 |
|
60 |
CEH3 ;;; Local Variables: *** |
61 |
CEH3 ;;; mode:fortran *** |
62 |
CEH3 ;;; End: *** |