! radiation_constants.F90 - Constants used in radiation calculations

! (C) Copyright 2014- ECMWF.

! This software is licensed under the terms of the Apache Licence Version 2.0
! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.

! In applying this licence, ECMWF does not waive the privileges and immunities
! granted to it by virtue of its status as an intergovernmental organisation
! nor does it submit to any jurisdiction.

! Author:  Robin Hogan
! Email:   r.j.hogan@ecmwf.int
!

module radiation_constants

  use parkind1, only : jprb
!  use yomcst,   only : RPI, RSIGMA, RG, RD, RMV, RMO3, RHPLA

  implicit none
  public

  ! Rename some constants from their cryptic IFS names
  real(jprb), parameter :: Pi                 = 3.14159265358979323846_jprb
  real(jprb), parameter :: AccelDueToGravity  = 9.80665_jprb! m s-2
  real(jprb), parameter :: StefanBoltzmann    = 5.67037321e-8_jprb ! W m-2 K-4
  real(jprb), parameter :: DensityLiquidWater = 1000.0_jprb ! kg m-3
  real(jprb), parameter :: DensitySolidIce    = 916.7_jprb  ! kg m-3
  real(jprb), parameter :: GasConstantDryAir  = 287.058_jprb! J kg-1 K-1
  real(jprb), parameter :: PlanckConstant     = 6.6260695729e-34_jprb ! J s
  real(jprb), parameter :: BoltzmannConstant  = 1.380648813e-23_jprb ! J K-1
  real(jprb), parameter :: SpeedOfLight       = 299792458.0_jprb ! m s-1

end module radiation_constants