module CONSTANT More...

Functions/Subroutines
subroutine, public	const_setup
	Setup. More...

Variables
real(rp), public	const_pi = 3.14159265358979_RP
	pi More...

real(rp), public	const_d2r
	degree to radian More...

real(rp), public	const_eps = 1.E-16_RP
	small number More...

real(rp), public	const_eps1 = 0.99999999999999_RP
	small number More...

real(rp), public	const_huge = 1.E+30_RP
	huge number More...

integer, parameter, public	const_undef2 = -32768
	undefined value (INT2) More...

real(sp), parameter, public	const_undef4 = -9.9999E30
	undefined value (REAL4) More...

real(dp), parameter, public	const_undef8 = -9.9999D30
	undefined value (REAL8) More...

real(rp), public	const_undef

real(rp), public	const_radius = 6.37122E+6_RP
	radius of the planet [m] More...

real(rp), public	const_ohm = 7.2920E-5_RP
	angular velocity of the planet [1/s] More...

real(rp), public	const_grav = 9.80665_RP
	standard acceleration of gravity [m/s2] More...

real(rp), parameter, public	const_stb = 5.670373E-8_RP
	Stefan-Boltzman constant [W/m2/K4]. More...

real(rp), parameter, public	const_karman = 0.4_RP
	von Karman constant More...

real(rp), parameter, public	const_r = 8.3144621_RP
	universal gas constant [J/mol/K] More...

real(rp), public	const_mdry = 28.97_RP
	mass weight (dry air) [g/mol] More...

real(rp), public	const_rdry = 287.04_RP
	specific gas constant (dry air) [J/kg/K] More...

real(rp), public	const_cpdry = 1004.64_RP
	specific heat (dry air,constant pressure) [J/kg/K] More...

real(rp), public	const_cvdry
	specific heat (dry air,constant volume) [J/kg/K] More...

real(rp), public	const_laps = 6.5E-3_RP
	lapse rate of ISA [K/m] More...

real(rp), public	const_lapsdry
	dry adiabatic lapse rate [K/m] More...

real(rp), public	const_mvap = 18.02_RP
	mass weight (water vapor) [g/mol] More...

real(rp), parameter, public	const_rvap = 461.46_RP
	specific gas constant (water vapor) [J/kg/K] More...

real(rp), parameter, public	const_cpvap = 1845.60_RP
	specific heat (water vapor, constant pressure) [J/kg/K] More...

real(rp), public	const_cvvap
	specific heat (water vapor, constant volume) [J/kg/K] More...

real(rp), parameter, public	const_cl = 4218.0_RP
	specific heat (liquid water) [J/kg/K] More...

real(rp), parameter, public	const_ci = 2006.0_RP
	specific heat (ice) [J/kg/K] More...

real(rp), public	const_epsvap
	Rdry / Rvap. More...

real(rp), public	const_epstvap
	1 / epsilon - 1 More...

real(rp), parameter, public	const_emelt = 3.4E5_RP

real(rp), parameter, public	const_tmelt = 273.15_RP

real(rp), public	const_lhv
	latent heat of vaporizaion for use More...

real(rp), public	const_lhs
	latent heat of sublimation for use More...

real(rp), public	const_lhf
	latent heat of fusion for use More...

real(rp), parameter, public	const_lhv0 = 2.5008E6_RP
	latent heat of vaporizaion at 0C [J/kg] More...

real(rp), public	const_lhv00
	latent heat of vaporizaion at 0K [J/kg] More...

real(rp), parameter, public	const_lhs0 = 2.8342E6_RP
	latent heat of sublimation at 0C [J/kg] More...

real(rp), public	const_lhs00
	latent heat of sublimation at 0K [J/kg] More...

real(rp), public	const_lhf0
	latent heat of fusion at 0C [J/kg] More...

real(rp), public	const_lhf00
	latent heat of fusion at 0K [J/kg] More...

real(rp), parameter, public	const_psat0 = 610.7_RP
	saturate pressure of water vapor at 0C [Pa] More...

real(rp), parameter, public	const_dwatr = 1000.0_RP
	density of water [kg/m3] More...

real(rp), parameter, public	const_dice = 916.8_RP
	density of ice [kg/m3] More...

real(rp), public	const_sound
	speed of sound (dry air at 0C) [m/s] More...

real(rp), public	const_pstd = 101325.0_RP
	standard pressure [Pa] More...

real(rp), public	const_pre00 = 100000.0_RP
	pressure reference [Pa] More...

real(rp), public	const_tstd = 288.15_RP
	standard temperature (15C) [K] More...

real(rp), parameter, public	const_tem00 = 273.15_RP
	temperature reference (0C) [K] More...

real(rp), parameter, public	const_ppm = 1.E-6_RP
	parts par million More...

integer, public	const_i_lw = 1
	long-wave radiation index More...

integer, public	const_i_sw = 2
	short-wave radiation index More...

character(len=h_short), public	const_thermodyn_type = 'EXACT'
	internal energy type More...

Detailed Description

module CONSTANT

Description: Physical constants module

Author: Team SCALE

History

2011-11-11 (H.Yashiro) [new]
2013-08-31 (T.Yamaura) [add] Stefan-Boltzman constant

Function/Subroutine Documentation

◆ const_setup()

subroutine, public scale_const::const_setup ( )

Setup.

Definition at line 116 of file scale_const.F90.

References const_ci, const_cl, const_cpdry, const_cpvap, const_cvdry, const_cvvap, const_d2r, const_dice, const_dwatr, const_eps, const_eps1, const_epstvap, const_epsvap, const_grav, const_huge, const_karman, const_laps, const_lapsdry, const_lhf, const_lhf0, const_lhf00, const_lhs, const_lhs0, const_lhs00, const_lhv, const_lhv0, const_lhv00, const_mdry, const_ohm, const_pi, const_pre00, const_psat0, const_pstd, const_r, const_radius, const_rdry, const_rvap, const_sound, const_stb, const_tem00, const_thermodyn_type, const_tstd, const_undef, const_undef2, const_undef4, const_undef8, dc_types::dp, scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_l, scale_stdio::io_lnml, scale_process::prc_mpistop(), scale_precision::rp, and dc_types::sp.

Referenced by mod_rm_driver::scalerm(), and mod_rm_prep::scalerm_prep().

     use scale_process, only: &
        prc_mpistop
     implicit none
 
     real(RP) :: const_smallplanetfactor = 1.0_rp 
 
     namelist / param_const / &
        const_radius,           &
        const_ohm,              &
        const_grav,             &
        const_rdry,             &
        const_cpdry,            &
        const_laps,             &
        const_pstd,             &
        const_pre00,            &
        const_tstd,             &
        const_thermodyn_type,   &
        const_smallplanetfactor
 
     integer :: ierr
     !---------------------------------------------------------------------------
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '++++++ Module[CONST] / Categ[COMMON] / Origin[SCALElib]'
 
     !--- read namelist
     rewind(io_fid_conf)
     read(io_fid_conf,nml=param_const,iostat=ierr)
     if( ierr < 0 ) then !--- missing
        if( io_l ) write(io_fid_log,*) '*** Not found namelist. Default used.'
     elseif( ierr > 0 ) then !--- fatal error
        write(*,*) 'xxx Not appropriate names in namelist PARAM_CONST. Check!'
        call prc_mpistop
     endif
     if( io_lnml ) write(io_fid_log,nml=param_const)
 
     if    ( rp == sp ) then
        const_undef = real(const_undef4,kind=rp)
     elseif( rp == dp ) then
        const_undef = real(const_undef8,kind=rp)
     else
        write(*,*) 'xxx unsupported precision: ', rp
        call prc_mpistop
     endif
 
     const_pi      = 4.e0_rp * atan( 1.0_rp )
     const_d2r     = const_pi / 180.0_rp
     const_eps     =          epsilon(0.0_rp)
     const_eps1    = 1.0_rp - epsilon(0.0_rp)
     const_huge    =             huge(0.0_rp)
 
     const_radius  = const_radius / const_smallplanetfactor
     const_ohm     = const_ohm    * const_smallplanetfactor
 
     const_cvdry   = const_cpdry - const_rdry
     const_lapsdry = const_grav / const_cpdry
 
     const_cvvap   = const_cpvap - const_rvap
     const_epsvap  = const_rdry / const_rvap
     const_epstvap = 1.e0_rp / const_epsvap - 1.e0_rp
 
     const_lhf0    = const_lhs0 - const_lhv0
 
     const_lhv00   = const_lhv0 - ( const_cpvap - const_cl ) * const_tem00
     const_lhs00   = const_lhs0 - ( const_cpvap - const_ci ) * const_tem00
     const_lhf00   = const_lhf0 - ( const_cl    - const_ci ) * const_tem00
 
     if ( const_thermodyn_type == 'EXACT' ) then
        const_lhv = const_lhv00
        const_lhs = const_lhs00
        const_lhf = const_lhf00
     elseif( const_thermodyn_type == 'SIMPLE' ) then
        const_lhv = const_lhv0
        const_lhs = const_lhs0
        const_lhf = const_lhf0
     else
        write(*,*) 'xxx Not appropriate ATMOS_THERMODYN_ENERGY_TYPE. Check!', trim(const_thermodyn_type)
        call prc_mpistop
     endif
 
     const_sound = sqrt( const_cpdry * const_rdry / ( const_cpdry - const_rdry ) * const_tem00 )
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '*** List of constants ***'
     if( io_l ) write(io_fid_log,*) '*** PI                                                : PI      = ', const_pi
     if( io_l ) write(io_fid_log,*) '*** Small number                                      : EPS     = ', const_eps
     if( io_l ) write(io_fid_log,*) '*** Small number (1-EPS)                              : EPS1    = ', const_eps1
     if( io_l ) write(io_fid_log,*) '*** Huge  number                                      : HUGE    = ', const_huge
     if( io_l ) write(io_fid_log,*) '*** undefined number (INT2)                           : UNDEF2  = ', const_undef2
     if( io_l ) write(io_fid_log,*) '*** undefined number (REAL,general use)               : UNDEF   = ', const_undef
     if( io_l ) write(io_fid_log,*) '*** undefined number (REAL4)                          : UNDEF4  = ', const_undef4
     if( io_l ) write(io_fid_log,*) '*** undefined number (REAL8)                          : UNDEF8  = ', const_undef8
 
     if( io_l ) write(io_fid_log,*) '*** radius of the planet                          [m] : RADIUS  = ', const_radius
     if( io_l ) write(io_fid_log,*) '*** angular velocity of the planet              [1/s] : OHM     = ', const_ohm
     if( io_l ) write(io_fid_log,*) '*** standard acceleration of gravity           [m/s2] : GRAV    = ', const_grav
 
     if( io_l ) write(io_fid_log,*) '*** Stefan-Boltzman constant                [W/m2/K4] : STB     = ', const_stb
     if( io_l ) write(io_fid_log,*) '*** von Karman constant                               : KARMAN  = ', const_karman
     if( io_l ) write(io_fid_log,*) '*** universal gas constant                  [J/mol/K] : R       = ', const_r
 
     if( io_l ) write(io_fid_log,*) '*** mass weight (dry air)                     [g/mol] : Mdry    = ', const_mdry
     if( io_l ) write(io_fid_log,*) '*** specific gas constant (dry air)          [J/kg/K] : Rdry    = ', const_rdry
     if( io_l ) write(io_fid_log,*) '*** specific heat (dry air, const. pressure) [J/kg/K] : CPdry   = ', const_cpdry
     if( io_l ) write(io_fid_log,*) '*** specific heat (dry air, const. volume)   [J/kg/K] : Cvdry   = ', const_cvdry
     if( io_l ) write(io_fid_log,*) '*** lapse rate of ISA                           [K/m] : LAPS    = ', const_laps
     if( io_l ) write(io_fid_log,*) '*** dry adiabatic lapse rate                    [K/m] : LAPSdry = ', const_lapsdry
 
     if( io_l ) write(io_fid_log,*) '*** mass weight (water vapor)                 [g/mol] : Rvap    = ', const_rvap
     if( io_l ) write(io_fid_log,*) '*** specific gas constant (water vapor)      [J/kg/K] : Rvap    = ', const_rvap
     if( io_l ) write(io_fid_log,*) '*** specific heat (vapor, const. pressure)   [J/kg/K] : CPvap   = ', const_cpvap
     if( io_l ) write(io_fid_log,*) '*** specific heat (vapor, const. volume)     [J/kg/K] : CVvap   = ', const_cvvap
     if( io_l ) write(io_fid_log,*) '*** specific heat (liquid water)             [J/kg/K] : CL      = ', const_cl
     if( io_l ) write(io_fid_log,*) '*** specific heat (ice)                      [J/kg/K] : CI      = ', const_ci
     if( io_l ) write(io_fid_log,*) '*** Rdry / Rvap                                       : EPSvap  = ', const_epsvap
     if( io_l ) write(io_fid_log,*) '*** 1 / EPSvap - 1                                    : EPSTvap = ', const_epstvap
 
     if( io_l ) write(io_fid_log,*) '*** latent heat of vaporizaion at 0C           [J/kg] : LHV0    = ', const_lhv0
     if( io_l ) write(io_fid_log,*) '*** latent heat of sublimation at 0C           [J/kg] : LHS0    = ', const_lhs0
     if( io_l ) write(io_fid_log,*) '*** latent heat of fusion      at 0C           [J/kg] : LHF0    = ', const_lhf0
     if( io_l ) write(io_fid_log,*) '*** latent heat of vaporizaion at 0K           [J/kg] : LHV00   = ', const_lhv00
     if( io_l ) write(io_fid_log,*) '*** latent heat of sublimation at 0K           [J/kg] : LHS00   = ', const_lhs00
     if( io_l ) write(io_fid_log,*) '*** latent heat of fusion      at 0K           [J/kg] : LHF00   = ', const_lhf00
     if( io_l ) write(io_fid_log,*) '*** Thermodynamics calculation type : ', trim(const_thermodyn_type)
     if( io_l ) write(io_fid_log,*) '*** latent heat of vaporizaion (used)          [J/kg] : LHV     = ', const_lhv
     if( io_l ) write(io_fid_log,*) '*** latent heat of sublimation (used)          [J/kg] : LHS     = ', const_lhs
     if( io_l ) write(io_fid_log,*) '*** latent heat of fusion      (used)          [J/kg] : LHF     = ', const_lhf
     if( io_l ) write(io_fid_log,*) '*** saturate pressure of water vapor at 0C       [Pa] : PSAT0   = ', const_psat0
     if( io_l ) write(io_fid_log,*) '*** density of water                          [kg/m3] : DWATR   = ', const_dwatr
     if( io_l ) write(io_fid_log,*) '*** density of ice                            [kg/m3] : DICE    = ', const_dice
 
     if( io_l ) write(io_fid_log,*) '*** speed of sound (dry air at 0C)              [m/s] : SOUND   = ', const_sound
     if( io_l ) write(io_fid_log,*) '*** standard pressure                            [Pa] : Pstd    = ', const_pstd
     if( io_l ) write(io_fid_log,*) '*** pressure reference                           [Pa] : PRE00   = ', const_pre00
     if( io_l ) write(io_fid_log,*) '*** standard temperature (15C)                    [K] : Tstd    = ', const_tstd
     if( io_l ) write(io_fid_log,*) '*** temperature reference (0C)                    [K] : TEM00   = ', const_tem00
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

◆ const_pi

real(rp), public scale_const::const_pi = 3.14159265358979_RP

pi

Definition at line 34 of file scale_const.F90.

Referenced by scale_atmos_boundary::atmos_boundary_resume(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_setup(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), scale_atmos_phy_sf_bulkcoef::atmos_phy_sf_bulkcoef_setup(), scale_atmos_phy_sf_const::atmos_phy_sf_const(), scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn_setup(), scale_atmos_solarins::atmos_solarins_insolation_0d(), scale_atmos_solarins::atmos_solarins_insolation_2d(), scale_atmos_solarins::atmos_solarins_orbit(), mod_cnvtopo::cnvtopo(), const_setup(), mod_mkinit::diag_ds(), mod_mkinit::faero(), mod_mktopo::mktopo(), scale_mapproj::mprj_setup(), mod_mkinit::rect_setup(), mod_realinput::replace_misval_map(), scale_urban_phy_slc::urban_phy_slc(), scale_vector::vectr_triangle(), and mod_realinput_wrfarw::wrf_arwpost_calc_uvmet().

34 real(RP), public :: const_pi = 3.14159265358979_rp

◆ const_d2r

real(rp), public scale_const::const_d2r

degree to radian

Definition at line 35 of file scale_const.F90.

Referenced by scale_atmos_phy_rd_profile::atmos_phy_rd_profile_setup(), scale_atmos_solarins::atmos_solarins_orbit(), scale_atmos_solarins::atmos_solarins_setup(), mod_cnvlanduse::cnvlanduse(), mod_cnvlanduse::cnvlanduse_setup(), mod_cnvtopo::cnvtopo(), mod_cnvtopo::cnvtopo_setup(), const_setup(), mod_copytopo::copytopo(), scale_fileio::fileio_set_coordinates(), scale_history::hist_switch(), scale_interpolation_nest::intrpnest_domain_compatibility(), scale_mapproj::mprj_setup(), scale_grid_nest::nest_setup(), mod_realinput_grads::parentatominputgrads(), mod_realinput_nicam::parentatominputnicam(), mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput_nicam::parentatomopennicam(), mod_realinput_scale::parentatomopenscale(), mod_realinput_grads::parentlandinputgrads(), mod_realinput_nicam::parentlandinputnicam(), mod_realinput_scale::parentlandinputscale(), mod_realinput_wrfarw::parentlandinputwrfarw(), mod_realinput_grads::parentoceaninputgrads(), mod_realinput_nicam::parentoceaninputnicam(), mod_realinput_wrfarw::parentoceaninputwrfarw(), mod_realinput_nicam::parentoceanopennicam(), mod_realinput_scale::parentoceanopenscale(), scale_grid_real::real_update_z(), scale_atmos_phy_rd_mm5sw::swpara(), and mod_realinput_wrfarw::wrf_arwpost_calc_uvmet().

35 real(RP), public :: const_d2r

◆ const_eps

real(rp), public scale_const::const_eps = 1.E-16_RP

small number

Definition at line 36 of file scale_const.F90.

Referenced by scale_atmos_adiabat::atmos_adiabat_liftparcel(), scale_atmos_boundary::atmos_boundary_resume(), scale_atmos_dyn_common::atmos_dyn_fct(), scale_atmos_dyn_fvm_flux_ud3koren1993::atmos_dyn_fvm_fluxy_xvz_ud3koren1993(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), scale_atmos_hydrostatic::atmos_hydrostatic_setup(), scale_atmos_phy_mp_sdm::atmos_phy_mp_sdm_mixingratio(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_effectiveradius(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_mixingratio(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), scale_atmos_phy_sf_bulkcoef::atmos_phy_sf_bulkcoef_setup(), scale_atmos_phy_tb_d1980::atmos_phy_tb_d1980(), scale_atmos_phy_tb_smg::atmos_phy_tb_smg(), scale_atmos_solarins::atmos_solarins_insolation_0d(), scale_atmos_solarins::atmos_solarins_insolation_2d(), scale_atmos_phy_mp_sn14::aut_acc_slc_brk_kij(), scale_bulkflux::bulkflux_setup(), mod_cnvlanduse::cnvlanduse(), mod_cnvtopo::cnvtopo(), const_setup(), mod_copytopo::copytopo(), scale_atmos_phy_tb_mynn::get_length(), scale_interpolation_nest::intrpnest_interp_fact_llz(), scale_land_sfc_slab::land_sfc_slab(), mod_realinput::make_mask(), scale_grid_nest::nest_domain_relate(), mod_realinput_grads::parentatominputgrads(), mod_realinput_nicam::parentatominputnicam(), mod_realinput::parentatomsetup(), mod_realinput_grads::parentlandinputgrads(), mod_realinput_nicam::parentlandinputnicam(), mod_realinput_grads::parentoceaninputgrads(), mod_realinput_nicam::parentoceaninputnicam(), mod_realinput::replace_misval_const(), mod_realinput::replace_misval_map(), scale_atmos_refstate::smoothing(), scale_atmos_dyn_tstep_short_fvm_hevi::solve_direct(), scale_urban_phy_slc::urban_phy_slc(), scale_vector::vectr_anticlockwise(), scale_vector::vectr_intersec(), scale_vector::vectr_triangle(), and scale_vector::vectr_xyz2latlon().

36 real(RP), public :: const_eps = 1.e-16_rp

◆ const_eps1

real(rp), public scale_const::const_eps1 = 0.99999999999999_RP

small number

Definition at line 37 of file scale_const.F90.

Referenced by scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), and const_setup().

37 real(RP), public :: const_eps1 = 0.99999999999999_rp

◆ const_huge

real(rp), public scale_const::const_huge = 1.E+30_RP

huge number

Definition at line 38 of file scale_const.F90.

Referenced by scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), mod_cnvtopo::cnvtopo_setup(), scale_comm::comm_horizontal_max_2d(), scale_comm::comm_horizontal_min_2d(), and const_setup().

38 real(RP), public :: const_huge = 1.e+30_rp

◆ const_undef2

integer, parameter, public scale_const::const_undef2 = -32768

undefined value (INT2)

Definition at line 40 of file scale_const.F90.

Referenced by scale_atmos_dyn_common::atmos_dyn_fct(), const_setup(), and scale_rm_statistics::stat_detail().

40 integer, public, parameter :: const_undef2 = -32768

◆ const_undef4

real(sp), parameter, public scale_const::const_undef4 = -9.9999E30

undefined value (REAL4)

Definition at line 41 of file scale_const.F90.

Referenced by const_setup().

41 real(SP), public, parameter :: const_undef4 = -9.9999e30

◆ const_undef8

real(dp), parameter, public scale_const::const_undef8 = -9.9999D30

undefined value (REAL8)

Definition at line 42 of file scale_const.F90.

Referenced by mod_admin_time::admin_time_setup(), const_setup(), mod_mkinit::mkinit(), mod_mkinit::rect_setup(), and scale_rm_statistics::stat_detail().

42 real(DP), public, parameter :: const_undef8 = -9.9999d30

◆ const_undef

real(rp), public scale_const::const_undef

Definition at line 43 of file scale_const.F90.

Referenced by scale_atmos_boundary::atmos_boundary_setup(), scale_atmos_dyn_common::atmos_dyn_fct(), scale_atmos_dyn::atmos_dyn_setup(), scale_atmos_dyn_tinteg_large_euler::atmos_dyn_tinteg_large_euler_setup(), scale_atmos_dyn_tinteg_large_rk3::atmos_dyn_tinteg_large_rk3_setup(), scale_atmos_dyn_tinteg_short_rk3::atmos_dyn_tinteg_short_rk3_setup(), scale_atmos_dyn_tinteg_short_rk4::atmos_dyn_tinteg_short_rk4_setup(), scale_atmos_dyn_tinteg_tracer_euler::atmos_dyn_tinteg_tracer_euler_setup(), scale_atmos_dyn_tinteg_tracer_rk3::atmos_dyn_tinteg_tracer_rk3_setup(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve_setup(), mod_atmos_dyn_vars::atmos_dyn_vars_setup(), scale_atmos_phy_ae_dummy::atmos_phy_ae_dummy_effectiveradius(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_effectiveradius(), mod_atmos_phy_ae_vars::atmos_phy_ae_vars_setup(), mod_atmos_phy_ch_vars::atmos_phy_ch_vars_setup(), mod_atmos_phy_cp_vars::atmos_phy_cp_vars_setup(), mod_atmos_phy_mp_vars::atmos_phy_mp_vars_setup(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_setup(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_setup(), mod_atmos_phy_tb_vars::atmos_phy_tb_vars_setup(), scale_atmos_refstate::atmos_refstate_calc3d(), scale_debug::check(), scale_comm::comm_horizontal_mean(), const_setup(), mod_cpl_vars::cpl_vars_setup(), scale_external_input::extin_setup(), scale_atmos_phy_mp_sn14::freezing_water_kij(), scale_interpolation::interp_vertical_xi2z(), scale_interpolation::interp_vertical_z2xi(), mod_realinput::land_interporation(), mod_land_vars::land_vars_setup(), mod_realinput::make_mask(), mod_ocean_vars::ocean_vars_setup(), mod_realinput::parentatomsetup(), mod_realinput_grads::parentlandinputgrads(), mod_realinput_nicam::parentlandinputnicam(), mod_realinput_wrfarw::parentlandinputwrfarw(), mod_realinput_grads::parentoceaninputgrads(), mod_realinput_nicam::parentoceaninputnicam(), mod_realinput_wrfarw::parentoceaninputwrfarw(), mod_realinput::replace_misval_map(), and mod_urban_vars::urban_vars_setup().

43 real(RP), public :: const_undef

scale_const::const_undef

real(rp), public const_undef

Definition: scale_const.F90:43

◆ const_radius

real(rp), public scale_const::const_radius = 6.37122E+6_RP

radius of the planet [m]

Definition at line 46 of file scale_const.F90.

Referenced by mod_cnvlanduse::cnvlanduse(), mod_cnvtopo::cnvtopo(), const_setup(), mod_copytopo::copytopo(), scale_mapproj::mprj_setup(), and scale_grid_real::real_calc_areavol().

46 real(RP), public :: const_radius = 6.37122e+6_rp

◆ const_ohm

real(rp), public scale_const::const_ohm = 7.2920E-5_RP

angular velocity of the planet [1/s]

Definition at line 47 of file scale_const.F90.

Referenced by scale_atmos_dyn::atmos_dyn_setup(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve_setup(), and const_setup().

47 real(RP), public :: const_ohm = 7.2920e-5_rp

◆ const_grav

real(rp), public scale_const::const_grav = 9.80665_RP

standard acceleration of gravity [m/s2]

Definition at line 48 of file scale_const.F90.

Referenced by scale_atmos_adiabat::atmos_adiabat_cape(), scale_atmos_bottom::atmos_bottom_estimate(), scale_atmos_dyn_tstep_short_fvm_heve::atmos_dyn_tstep_short_fvm_heve(), scale_atmos_dyn_tstep_short_fvm_hivi::atmos_dyn_tstep_short_fvm_hivi(), scale_atmos_phy_mp_common::atmos_phy_mp_precipitation(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_setup(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), scale_atmos_phy_rd_profile::atmos_phy_rd_profile_read(), scale_atmos_phy_sf_bulkcoef::atmos_phy_sf_bulkcoef_setup(), scale_atmos_phy_tb_d1980::atmos_phy_tb_d1980(), scale_atmos_phy_tb_dns::atmos_phy_tb_dns(), scale_atmos_phy_tb_hybrid::atmos_phy_tb_hybrid(), scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn(), scale_atmos_phy_tb_smg::atmos_phy_tb_smg(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_monitor(), mod_atmos_vars::atmos_vars_restart_read(), mod_atmos_vars::atmos_vars_total(), scale_bulkflux::bulkflux_setup(), const_setup(), scale_atmos_phy_cp_kf::cp_kf_main(), scale_atmos_phy_tb_mynn::get_length(), scale_atmos_phy_cp_kf::kf_lutab(), mod_realinput_grads::parentatominputgrads(), mod_realinput_wrfarw::parentatominputwrfarw(), scale_grid_real::real_update_z(), scale_roughness::roughness_setup(), scale_atmos_dyn_tstep_short_fvm_hevi::solve_direct(), and scale_atmos_phy_rd_mm5sw::swrad().

48 real(RP), public :: const_grav = 9.80665_rp

◆ const_stb

real(rp), parameter, public scale_const::const_stb = 5.670373E-8_RP

Stefan-Boltzman constant [W/m2/K4].

Definition at line 51 of file scale_const.F90.

Referenced by const_setup(), scale_land_sfc_slab::land_sfc_slab(), and scale_ocean_sfc_slab::ocean_sfc_slab().

51 real(RP), public, parameter :: const_stb = 5.670373e-8_rp

◆ const_karman

real(rp), parameter, public scale_const::const_karman = 0.4_RP

von Karman constant

Definition at line 52 of file scale_const.F90.

Referenced by scale_atmos_phy_sf_bulkcoef::atmos_phy_sf_bulkcoef_setup(), scale_bulkflux::bulkflux_setup(), const_setup(), scale_atmos_phy_tb_mynn::get_length(), scale_atmos_phy_tb_smg::mixlen(), and scale_roughness::roughness_setup().

52 real(RP), public, parameter :: const_karman = 0.4_rp

◆ const_r

real(rp), parameter, public scale_const::const_r = 8.3144621_RP

universal gas constant [J/mol/K]

Definition at line 53 of file scale_const.F90.

Referenced by const_setup().

53 real(RP), public, parameter :: const_r = 8.3144621_rp

◆ const_mdry

real(rp), public scale_const::const_mdry = 28.97_RP

mass weight (dry air) [g/mol]

Definition at line 56 of file scale_const.F90.

Referenced by scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), scale_atmos_phy_rd_profile::atmos_phy_rd_profile_setup_zgrid(), and const_setup().

56 real(RP), public :: const_mdry = 28.97_rp

◆ const_rdry

real(rp), public scale_const::const_rdry = 287.04_RP

specific gas constant (dry air) [J/kg/K]

Definition at line 57 of file scale_const.F90.

Referenced by scale_atmos_adiabat::atmos_adiabat_liftparcel(), scale_atmos_dyn_tinteg_large_euler::atmos_dyn_tinteg_large_euler(), scale_atmos_dyn_tinteg_large_rk3::atmos_dyn_tinteg_large_rk3(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), scale_atmos_phy_sf_bulk::atmos_phy_sf_bulk(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver(), scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn(), scale_atmos_refstate::atmos_refstate_calc3d(), mod_atmos_vars::atmos_vars_history(), scale_bulkflux::bulkflux_setup(), const_setup(), scale_atmos_phy_cp_kf::cp_kf_main(), scale_land_sfc_slab::land_sfc_slab(), mod_realinput_grads::parentatominputgrads(), mod_realinput_nicam::parentatominputnicam(), mod_realinput_scale::parentatominputscale(), and mod_mkinit::rect_setup().

57 real(RP), public :: const_rdry = 287.04_rp

◆ const_cpdry

real(rp), public scale_const::const_cpdry = 1004.64_RP

specific heat (dry air,constant pressure) [J/kg/K]

Definition at line 58 of file scale_const.F90.

Referenced by scale_atmos_adiabat::atmos_adiabat_liftparcel(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver(), scale_atmos_phy_sf_bulk::atmos_phy_sf_bulk(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver(), scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn(), scale_atmos_refstate::atmos_refstate_calc3d(), mod_atmos_vars::atmos_vars_history(), scale_bulkflux::bulkflux_setup(), const_setup(), scale_atmos_phy_cp_kf::cp_kf_main(), scale_atmos_phy_tb_mynn::get_length(), scale_atmos_phy_cp_kf::kf_lutab(), scale_land_sfc_slab::land_sfc_slab(), scale_ocean_sfc_slab::ocean_sfc_slab(), mod_realinput_grads::parentatominputgrads(), mod_realinput_nicam::parentatominputnicam(), mod_realinput_scale::parentatominputscale(), and scale_urban_phy_slc::urban_phy_slc().

58 real(RP), public :: const_cpdry = 1004.64_rp

◆ const_cvdry

real(rp), public scale_const::const_cvdry

specific heat (dry air,constant volume) [J/kg/K]

Definition at line 59 of file scale_const.F90.

Referenced by scale_atmos_dyn_tinteg_large_euler::atmos_dyn_tinteg_large_euler(), scale_atmos_dyn_tinteg_large_rk3::atmos_dyn_tinteg_large_rk3(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_monitor(), mod_atmos_vars::atmos_vars_total(), const_setup(), and mod_mkinit::rect_setup().

59 real(RP), public :: const_cvdry

◆ const_laps

real(rp), public scale_const::const_laps = 6.5E-3_RP

lapse rate of ISA [K/m]

Definition at line 60 of file scale_const.F90.

Referenced by const_setup(), mod_realinput::land_interporation(), mod_realinput_grads::parentatominputgrads(), and mod_realinput_wrfarw::parentatominputwrfarw().

60 real(RP), public :: const_laps = 6.5e-3_rp

◆ const_lapsdry

real(rp), public scale_const::const_lapsdry

dry adiabatic lapse rate [K/m]

Definition at line 61 of file scale_const.F90.

Referenced by const_setup().

61 real(RP), public :: const_lapsdry

◆ const_mvap

real(rp), public scale_const::const_mvap = 18.02_RP

mass weight (water vapor) [g/mol]

Definition at line 64 of file scale_const.F90.

Referenced by mod_mkinit::aerosol_activation_kajino13(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), and scale_atmos_phy_rd_profile::atmos_phy_rd_profile_setup_zgrid().

64 real(RP), public :: const_mvap = 18.02_rp

◆ const_rvap

real(rp), parameter, public scale_const::const_rvap = 461.46_RP

specific gas constant (water vapor) [J/kg/K]

Definition at line 65 of file scale_const.F90.

Referenced by scale_atmos_adiabat::atmos_adiabat_liftparcel(), scale_atmos_dyn_tinteg_large_euler::atmos_dyn_tinteg_large_euler(), scale_atmos_dyn_tinteg_large_rk3::atmos_dyn_tinteg_large_rk3(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver(), scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn(), mod_atmos_vars::atmos_vars_history(), const_setup(), and mod_mkinit::rect_setup().

65 real(RP), public, parameter :: const_rvap = 461.46_rp

◆ const_cpvap

real(rp), parameter, public scale_const::const_cpvap = 1845.60_RP

specific heat (water vapor, constant pressure) [J/kg/K]

Definition at line 66 of file scale_const.F90.

Referenced by scale_atmos_adiabat::atmos_adiabat_liftparcel(), scale_atmos_thermodyn::atmos_thermodyn_setup(), and const_setup().

66 real(RP), public, parameter :: const_cpvap = 1845.60_rp

◆ const_cvvap

real(rp), public scale_const::const_cvvap

specific heat (water vapor, constant volume) [J/kg/K]

Definition at line 67 of file scale_const.F90.

Referenced by scale_atmos_thermodyn::atmos_thermodyn_setup(), and const_setup().

67 real(RP), public :: const_cvvap

◆ const_cl

real(rp), parameter, public scale_const::const_cl = 4218.0_RP

specific heat (liquid water) [J/kg/K]

Definition at line 68 of file scale_const.F90.

Referenced by scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08(), scale_atmos_thermodyn::atmos_thermodyn_setup(), const_setup(), scale_land_phy_slab::land_phy_slab_setup(), and scale_ocean_phy_slab::ocean_phy_slab_setup().

68 real(RP), public, parameter :: const_cl = 4218.0_rp

◆ const_ci

real(rp), parameter, public scale_const::const_ci = 2006.0_RP

specific heat (ice) [J/kg/K]

Definition at line 69 of file scale_const.F90.

Referenced by scale_atmos_thermodyn::atmos_thermodyn_setup(), and const_setup().

69 real(RP), public, parameter :: const_ci = 2006.0_rp

◆ const_epsvap

real(rp), public scale_const::const_epsvap

Rdry / Rvap.

Definition at line 71 of file scale_const.F90.

Referenced by scale_atmos_refstate::atmos_refstate_write(), const_setup(), and mod_realinput_grads::parentatominputgrads().

71 real(RP), public :: const_epsvap

◆ const_epstvap

real(rp), public scale_const::const_epstvap

1 / epsilon - 1

Definition at line 72 of file scale_const.F90.

Referenced by scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn(), and const_setup().

72 real(RP), public :: const_epstvap

◆ const_emelt

real(rp), parameter, public scale_const::const_emelt = 3.4E5_RP

Definition at line 74 of file scale_const.F90.

Referenced by scale_atmos_phy_cp_kf::cp_kf_main().

74 real(RP), public, parameter :: const_emelt = 3.4e5_rp

◆ const_tmelt

real(rp), parameter, public scale_const::const_tmelt = 273.15_RP

Definition at line 75 of file scale_const.F90.

75 real(RP), public, parameter :: const_tmelt = 273.15_rp

◆ const_lhv

real(rp), public scale_const::const_lhv

latent heat of vaporizaion for use

Definition at line 77 of file scale_const.F90.

Referenced by scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler(), scale_atmos_phy_mp_common::atmos_phy_mp_saturation_adjustment(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_monitor(), mod_atmos_vars::atmos_vars_total(), and const_setup().

77 real(RP), public :: const_lhv

◆ const_lhs

real(rp), public scale_const::const_lhs

latent heat of sublimation for use

Definition at line 78 of file scale_const.F90.

Referenced by const_setup().

78 real(RP), public :: const_lhs

◆ const_lhf

real(rp), public scale_const::const_lhf

latent heat of fusion for use

Definition at line 79 of file scale_const.F90.

Referenced by scale_atmos_phy_mp_common::atmos_phy_mp_saturation_adjustment(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_monitor(), mod_atmos_vars::atmos_vars_total(), and const_setup().

79 real(RP), public :: const_lhf

◆ const_lhv0

real(rp), parameter, public scale_const::const_lhv0 = 2.5008E6_RP

latent heat of vaporizaion at 0C [J/kg]

Definition at line 80 of file scale_const.F90.

Referenced by scale_atmos_adiabat::atmos_adiabat_liftparcel(), scale_atmos_saturation::atmos_saturation_dqsw_dtem_dpre(), scale_atmos_saturation::atmos_saturation_dqsw_dtem_rho(), and const_setup().

80 real(RP), public, parameter :: const_lhv0 = 2.5008e6_rp

◆ const_lhv00

real(rp), public scale_const::const_lhv00

latent heat of vaporizaion at 0K [J/kg]

Definition at line 81 of file scale_const.F90.

Referenced by const_setup().

81 real(RP), public :: const_lhv00

◆ const_lhs0

real(rp), parameter, public scale_const::const_lhs0 = 2.8342E6_RP

latent heat of sublimation at 0C [J/kg]

Definition at line 82 of file scale_const.F90.

Referenced by scale_atmos_saturation::atmos_saturation_dqsi_dtem_dpre(), scale_atmos_saturation::atmos_saturation_dqsi_dtem_rho(), and const_setup().

82 real(RP), public, parameter :: const_lhs0 = 2.8342e6_rp

◆ const_lhs00

real(rp), public scale_const::const_lhs00

latent heat of sublimation at 0K [J/kg]

Definition at line 83 of file scale_const.F90.

Referenced by const_setup().

83 real(RP), public :: const_lhs00

◆ const_lhf0

real(rp), public scale_const::const_lhf0

latent heat of fusion at 0C [J/kg]

Definition at line 84 of file scale_const.F90.

Referenced by const_setup().

84 real(RP), public :: const_lhf0

◆ const_lhf00

real(rp), public scale_const::const_lhf00

latent heat of fusion at 0K [J/kg]

Definition at line 85 of file scale_const.F90.

Referenced by const_setup().

85 real(RP), public :: const_lhf00

◆ const_psat0

real(rp), parameter, public scale_const::const_psat0 = 610.7_RP

saturate pressure of water vapor at 0C [Pa]

Definition at line 86 of file scale_const.F90.

Referenced by scale_atmos_adiabat::atmos_adiabat_liftparcel(), const_setup(), and scale_atmos_phy_mp_suzuki10::mp_suzuki10().

86 real(RP), public, parameter :: const_psat0 = 610.7_rp

◆ const_dwatr

real(rp), parameter, public scale_const::const_dwatr = 1000.0_RP

density of water [kg/m3]

Definition at line 87 of file scale_const.F90.

Referenced by scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler_setup(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_setup(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_setup(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_setup(), const_setup(), scale_land_phy_slab::land_phy_slab(), scale_land_phy_slab::land_phy_slab_setup(), and scale_ocean_phy_slab::ocean_phy_slab_setup().

87 real(RP), public, parameter :: const_dwatr = 1000.0_rp

◆ const_dice

real(rp), parameter, public scale_const::const_dice = 916.8_RP

density of ice [kg/m3]

Definition at line 88 of file scale_const.F90.

Referenced by scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_setup(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_setup(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_setup(), and const_setup().

88 real(RP), public, parameter :: const_dice = 916.8_rp

◆ const_sound

real(rp), public scale_const::const_sound

speed of sound (dry air at 0C) [m/s]

Definition at line 90 of file scale_const.F90.

Referenced by const_setup().

90 real(RP), public :: const_sound

◆ const_pstd

real(rp), public scale_const::const_pstd = 101325.0_RP

standard pressure [Pa]

Definition at line 92 of file scale_const.F90.

Referenced by scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), scale_atmos_refstate::atmos_refstate_write(), and const_setup().

92 real(RP), public :: const_pstd = 101325.0_rp

◆ const_pre00

real(rp), public scale_const::const_pre00 = 100000.0_RP

pressure reference [Pa]

Definition at line 93 of file scale_const.F90.

Referenced by scale_atmos_adiabat::atmos_adiabat_liftparcel(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), scale_atmos_dyn_tstep_short_fvm_heve::atmos_dyn_tstep_short_fvm_heve(), scale_atmos_dyn_tstep_short_fvm_hivi::atmos_dyn_tstep_short_fvm_hivi(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver(), scale_atmos_refstate::atmos_refstate_calc3d(), mod_atmos_vars::atmos_vars_history(), scale_bulkflux::bulkflux_setup(), const_setup(), scale_atmos_phy_cp_kf::cp_kf_main(), scale_atmos_phy_cp_kf::kf_lutab(), mod_realinput_grads::parentatominputgrads(), mod_realinput_nicam::parentatominputnicam(), mod_realinput_scale::parentatominputscale(), and mod_mkinit::rect_setup().

93 real(RP), public :: const_pre00 = 100000.0_rp

◆ const_tstd

real(rp), public scale_const::const_tstd = 288.15_RP

standard temperature (15C) [K]

Definition at line 94 of file scale_const.F90.

Referenced by const_setup().

94 real(RP), public :: const_tstd = 288.15_rp

◆ const_tem00

real(rp), parameter, public scale_const::const_tem00 = 273.15_RP

temperature reference (0C) [K]

Definition at line 95 of file scale_const.F90.

Referenced by scale_atmos_adiabat::atmos_adiabat_liftparcel(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_effectiveradius(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), const_setup(), scale_atmos_phy_cp_kf::cp_kf_main(), scale_atmos_phy_mp_suzuki10::mp_suzuki10(), mod_realinput_grads::parentlandinputgrads(), mod_realinput_nicam::parentlandinputnicam(), mod_realinput_grads::parentoceaninputgrads(), and mod_realinput_nicam::parentoceaninputnicam().

95 real(RP), public, parameter :: const_tem00 = 273.15_rp

◆ const_ppm

real(rp), parameter, public scale_const::const_ppm = 1.E-6_RP

parts par million

Definition at line 96 of file scale_const.F90.

Referenced by scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), and scale_atmos_phy_rd_profile::atmos_phy_rd_profile_setup_zgrid().

96 real(RP), public, parameter :: const_ppm = 1.e-6_rp

◆ const_i_lw

integer, public scale_const::const_i_lw = 1

long-wave radiation index

Definition at line 98 of file scale_const.F90.

Referenced by mod_atmos_phy_sf_vars::atmos_phy_sf_vars_external_in(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_fillhalo(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_create(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_read(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_write(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_write_var(), mod_realinput::land_interporation(), scale_ocean_sfc_slab::ocean_sfc_slab_simplealbedo(), mod_realinput::parentatomsetup(), mod_realinput_wrfarw::parentlandinputwrfarw(), mod_realinput_wrfarw::parentoceaninputwrfarw(), and mod_realinput::realinput_surface().

98 integer, public :: const_i_lw = 1

◆ const_i_sw

integer, public scale_const::const_i_sw = 2

short-wave radiation index

Definition at line 99 of file scale_const.F90.

Referenced by mod_atmos_phy_sf_vars::atmos_phy_sf_vars_external_in(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_fillhalo(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_create(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_read(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_write(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_write_var(), mod_realinput::land_interporation(), scale_ocean_sfc_slab::ocean_sfc_slab_simplealbedo(), mod_realinput::parentatomsetup(), mod_realinput_wrfarw::parentlandinputwrfarw(), mod_realinput_wrfarw::parentoceaninputwrfarw(), and mod_realinput::realinput_surface().

99 integer, public :: const_i_sw = 2

◆ const_thermodyn_type

character(len=h_short), public scale_const::const_thermodyn_type = 'EXACT'

internal energy type

Definition at line 101 of file scale_const.F90.

Referenced by scale_atmos_saturation::atmos_saturation_setup(), scale_atmos_thermodyn::atmos_thermodyn_setup(), and const_setup().

101 character(len=H_SHORT), public :: const_thermodyn_type = 'EXACT'

Functions/Subroutines

Variables

Detailed Description

Function/Subroutine Documentation

◆ const_setup()

Variable Documentation

◆ const_pi

◆ const_d2r

◆ const_eps

◆ const_eps1

◆ const_huge

◆ const_undef2

◆ const_undef4

◆ const_undef8

◆ const_undef

◆ const_radius

◆ const_ohm

◆ const_grav

◆ const_stb

◆ const_karman

◆ const_r

◆ const_mdry

◆ const_rdry

◆ const_cpdry

◆ const_cvdry

◆ const_laps

◆ const_lapsdry

◆ const_mvap

◆ const_rvap

◆ const_cpvap

◆ const_cvvap

◆ const_cl

◆ const_ci

◆ const_epsvap

◆ const_epstvap

◆ const_emelt

◆ const_tmelt

◆ const_lhv

◆ const_lhs

◆ const_lhf

◆ const_lhv0

◆ const_lhv00

◆ const_lhs0

◆ const_lhs00

◆ const_lhf0

◆ const_lhf00

◆ const_psat0

◆ const_dwatr

◆ const_dice

◆ const_sound

◆ const_pstd

◆ const_pre00

◆ const_tstd

◆ const_tem00

◆ const_ppm

◆ const_i_lw

◆ const_i_sw

◆ const_thermodyn_type