| 1 |
C $Header: /u/gcmpack/MITgcm/pkg/atm_phys/ATM_PHYS_PARAMS.h,v 1.2 2013/06/28 21:25:25 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 |
C atmPhys_mxldFile :: name of Mixed-Layer Depth file |
| 28 |
C atmPhys_albedoFile :: name of Albedo file |
| 29 |
CHARACTER*(MAX_LEN_FNAM) atmPhys_sstFile |
| 30 |
CHARACTER*(MAX_LEN_FNAM) atmPhys_qFlxFile |
| 31 |
CHARACTER*(MAX_LEN_FNAM) atmPhys_mxldFile |
| 32 |
CHARACTER*(MAX_LEN_FNAM) atmPhys_albedoFile |
| 33 |
|
| 34 |
COMMON /ATM_PHYS_PARAMS_L/ |
| 35 |
& atmPhys_addTendT, atmPhys_addTendS, |
| 36 |
& atmPhys_addTendU, atmPhys_addTendV, |
| 37 |
& atmPhys_stepSST |
| 38 |
COMMON /ATM_PHYS_PARAMS_R/ |
| 39 |
& atmPhys_tauDampUV, atmPhys_dampUVfac |
| 40 |
COMMON /ATM_PHYS_PARAMS_C/ |
| 41 |
& atmPhys_sstFile, atmPhys_qFlxFile, |
| 42 |
& atmPhys_mxldFile, atmPhys_albedoFile |
| 43 |
|
| 44 |
C-- from driver-atmosphere module: |
| 45 |
logical module_is_initialized |
| 46 |
logical turb |
| 47 |
logical ldry_convection |
| 48 |
logical do_virtual |
| 49 |
logical lwet_convection |
| 50 |
logical two_stream |
| 51 |
logical mixed_layer_bc |
| 52 |
COMMON /ATMOS_DRIVER_L/ |
| 53 |
& module_is_initialized, |
| 54 |
& turb, ldry_convection, do_virtual, |
| 55 |
& lwet_convection, two_stream, mixed_layer_bc |
| 56 |
|
| 57 |
_RL roughness_heat |
| 58 |
_RL roughness_moist |
| 59 |
_RL roughness_mom |
| 60 |
COMMON /ATMOS_DRIVER_RL/ |
| 61 |
& roughness_heat, roughness_moist, roughness_mom |
| 62 |
|
| 63 |
#endif /* ALLOW_ATM_PHYS */ |
| 64 |
|
| 65 |
CEH3 ;;; Local Variables: *** |
| 66 |
CEH3 ;;; mode:fortran *** |
| 67 |
CEH3 ;;; End: *** |
Parent Directory
| 
Revision Log
| 
Revision Graph