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