MAPL_Constants.F90

Go to the documentation of this file.

module mapl_constantsmod

implicit none
private

integer,parameter, public :: mapl_r8 = selected_real_kind(12) ! 8 byte real
integer,parameter, public :: mapl_r4 = selected_real_kind( 6) ! 4 byte real
integer,parameter, public :: mapl_rn = kind(1.0)              ! native real
integer,parameter, public :: mapl_i8 = selected_int_kind (13) ! 8 byte integer
integer,parameter, public :: mapl_i4 = selected_int_kind ( 6) ! 4 byte integer
integer,parameter, public :: mapl_in = kind(1)                ! native integer

real(kind=MAPL_R8), parameter, public :: mapl_pi_r8 = 3.14159265358979323846_mapl_r8
real(kind=MAPL_R4), parameter, public :: mapl_pi    = mapl_pi_r8

real(kind=MAPL_R8), parameter, public :: mapl_psdry = 98305.0_mapl_r8

real, parameter, public :: mapl_grav   = 9.80665                ! m^2/s
real, parameter, public :: mapl_radius = 6371.0e3               ! m
real, parameter, public :: mapl_omega  = 2.0*mapl_pi/86164.0    ! 1/s
real, parameter, public :: mapl_stfbol = 5.6734e-8              ! W/(m^2 K^4)
real, parameter, public :: mapl_airmw  = 28.965                 ! kg/Kmole
real, parameter, public :: mapl_h2omw  = 18.015                 ! kg/Kmole
real, parameter, public :: mapl_o3mw   = 47.9982                ! kg/Kmole
real, parameter, public :: mapl_runiv  = 8314.47                ! J/(Kmole K)
real, parameter, public :: mapl_alhl   = 2.4665e6               ! J/kg @15C
real, parameter, public :: mapl_alhf   = 3.3370e5               ! J/kg
real, parameter, public :: mapl_alhs   = mapl_alhl+mapl_alhf    ! J/kg

real, parameter, public :: mapl_rdry   = mapl_runiv/mapl_airmw  ! J/(kg K)
real, parameter, public :: mapl_cpdry  = 3.5*mapl_rdry          ! J/(kg K)
real, parameter, public :: mapl_cvdry  = mapl_cpdry-mapl_rdry   ! J/(kg K)

real, parameter, public :: mapl_rvap   = mapl_runiv/mapl_h2omw  ! J/(kg K)
real, parameter, public :: mapl_cpvap  = 4.*mapl_rvap           ! J/(kg K)
real, parameter, public :: mapl_cvvap  = mapl_cpvap-mapl_rvap   ! J/(kg K)

real, parameter, public :: mapl_kappa  = mapl_rdry/mapl_cpdry   ! (2.0/7.0)

real, parameter, public :: mapl_epsilon= mapl_h2omw/mapl_airmw  ! --
real, parameter, public :: mapl_deltap = mapl_cpvap/mapl_cpdry  ! --
real, parameter, public :: mapl_deltav = mapl_cvvap/mapl_cvdry  ! --
real, parameter, public :: mapl_gammad = mapl_cpdry/mapl_cvdry  ! --

real, parameter, public :: mapl_rgas   = mapl_rdry              ! J/(kg K) (DEPRECATED)
real, parameter, public :: mapl_cp     = mapl_rgas/mapl_kappa   ! J/(kg K) (DEPRECATED)
real, parameter, public :: mapl_vireps = 1.0/mapl_epsilon-1.0   !          (DEPRECATED)

real, parameter, public :: mapl_p00    = 100000.0               ! Pa
real, parameter, public :: mapl_capice = 2000.                  ! J/(K kg)
real, parameter, public :: mapl_capwtr = 4218.                  ! J/(K kg)
real, parameter, public :: mapl_rhowtr = 1000.                  ! kg/m^3
real, parameter, public :: mapl_nuair  = 1.533e-5               ! m^2/S (@ 18C)
real, parameter, public :: mapl_tice   = 273.16                 ! K
real, parameter, public :: mapl_srfprs = 98470                  ! Pa
real, parameter, public :: mapl_karman = 0.40                   ! --
real, parameter, public :: mapl_usmin  = 1.00                   ! m/s
real, parameter, public :: mapl_avogad = 6.023e26               ! 1/kmol

real, parameter, public :: mapl_rho_seawater  = 1026.0          ! sea water density [kg/m^3]. SA: should it be = 1026 kg/m^3?
real, parameter, public :: mapl_rho_seaice    = 917.0           ! sea ice   density [kg/m^3]. SA: should it be = 917  kg/m^3?
real, parameter, public :: mapl_rho_snow      = 330.0           ! snow density      [kg/m^3]. SA: should it be = 330  kg/m^3?

end module mapl_constantsmod