| [4773] | 1 | ! radiation_constants.F90 - Constants used in radiation calculations |
|---|
| 2 | ! |
|---|
| 3 | ! (C) Copyright 2014- ECMWF. |
|---|
| 4 | ! |
|---|
| 5 | ! This software is licensed under the terms of the Apache Licence Version 2.0 |
|---|
| 6 | ! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. |
|---|
| 7 | ! |
|---|
| 8 | ! In applying this licence, ECMWF does not waive the privileges and immunities |
|---|
| 9 | ! granted to it by virtue of its status as an intergovernmental organisation |
|---|
| 10 | ! nor does it submit to any jurisdiction. |
|---|
| 11 | ! |
|---|
| 12 | ! Author: Robin Hogan |
|---|
| 13 | ! Email: r.j.hogan@ecmwf.int |
|---|
| 14 | ! |
|---|
| 15 | |
|---|
| 16 | module radiation_constants |
|---|
| 17 | |
|---|
| 18 | use parkind1, only : jprb |
|---|
| 19 | ! use yomcst, only : RPI, RSIGMA, RG, RD, RMV, RMO3, RHPLA |
|---|
| 20 | |
|---|
| 21 | implicit none |
|---|
| 22 | public |
|---|
| 23 | |
|---|
| 24 | ! Rename some constants from their cryptic IFS names |
|---|
| 25 | real(jprb), parameter :: Pi = 3.14159265358979323846_jprb |
|---|
| 26 | real(jprb), parameter :: AccelDueToGravity = 9.80665_jprb! m s-2 |
|---|
| 27 | real(jprb), parameter :: StefanBoltzmann = 5.67037321e-8_jprb ! W m-2 K-4 |
|---|
| 28 | real(jprb), parameter :: DensityLiquidWater = 1000.0_jprb ! kg m-3 |
|---|
| 29 | real(jprb), parameter :: DensitySolidIce = 916.7_jprb ! kg m-3 |
|---|
| 30 | real(jprb), parameter :: GasConstantDryAir = 287.058_jprb! J kg-1 K-1 |
|---|
| 31 | real(jprb), parameter :: PlanckConstant = 6.6260695729e-34_jprb ! J s |
|---|
| 32 | real(jprb), parameter :: BoltzmannConstant = 1.380648813e-23_jprb ! J K-1 |
|---|
| 33 | real(jprb), parameter :: SpeedOfLight = 299792458.0_jprb ! m s-1 |
|---|
| 34 | |
|---|
| 35 | end module radiation_constants |
|---|
