C $Header: /u/gcmpack/MITgcm/pkg/atm_phys/ATM_PHYS_PARAMS.h,v 1.3 2015/12/21 20:04:57 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 C atmPhys_mxldFile :: name of Mixed-Layer Depth file C atmPhys_albedoFile :: name of Albedo file CHARACTER*(MAX_LEN_FNAM) atmPhys_sstFile CHARACTER*(MAX_LEN_FNAM) atmPhys_qFlxFile CHARACTER*(MAX_LEN_FNAM) atmPhys_mxldFile CHARACTER*(MAX_LEN_FNAM) atmPhys_albedoFile 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, & atmPhys_mxldFile, atmPhys_albedoFile 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: ***