| 1 | ! (C) Copyright 2014- ECMWF. |
|---|
| 2 | ! |
|---|
| 3 | ! This software is licensed under the terms of the Apache Licence Version 2.0 |
|---|
| 4 | ! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. |
|---|
| 5 | ! |
|---|
| 6 | ! In applying this licence, ECMWF does not waive the privileges and immunities |
|---|
| 7 | ! granted to it by virtue of its status as an intergovernmental organisation |
|---|
| 8 | ! nor does it submit to any jurisdiction. |
|---|
| 9 | |
|---|
| 10 | MODULE YOMCST |
|---|
| 11 | |
|---|
| 12 | USE PARKIND1 ,ONLY : JPRB |
|---|
| 13 | |
|---|
| 14 | IMPLICIT NONE |
|---|
| 15 | |
|---|
| 16 | PUBLIC |
|---|
| 17 | |
|---|
| 18 | SAVE |
|---|
| 19 | |
|---|
| 20 | ! * RPI : number Pi |
|---|
| 21 | REAL(KIND=JPRB), PARAMETER :: RPI = 3.14159265358979323846_JPRB |
|---|
| 22 | ! * RCLUM : light velocity |
|---|
| 23 | REAL(KIND=JPRB), PARAMETER :: RCLUM = 299792458._JPRB |
|---|
| 24 | ! * RHPLA : Planck constant |
|---|
| 25 | REAL(KIND=JPRB), PARAMETER :: RHPLA = 6.6260755E-34_JPRB |
|---|
| 26 | ! * RKBOL : Bolzmann constant |
|---|
| 27 | REAL(KIND=JPRB), PARAMETER :: RKBOL = 1.380658E-23_JPRB |
|---|
| 28 | ! * RNAVO : Avogadro number |
|---|
| 29 | REAL(KIND=JPRB), PARAMETER :: RNAVO = 6.0221367E+23_JPRB |
|---|
| 30 | ! * RSIGMA : Stefan-Bolzman constant |
|---|
| 31 | REAL(KIND=JPRB), PARAMETER :: RSIGMA = 5.67037321e-8_JPRB ! W m-2 K-4 |
|---|
| 32 | ! * RG : gravity constant |
|---|
| 33 | REAL(KIND=JPRB), PARAMETER :: RG = 9.80665_JPRB ! m s-2 |
|---|
| 34 | ! * RMD : dry air molar mass |
|---|
| 35 | REAL(KIND=JPRB), PARAMETER :: RMD = 28.9644_JPRB |
|---|
| 36 | ! * RMV : vapour water molar mass |
|---|
| 37 | REAL(KIND=JPRB), PARAMETER :: RMV = 18.0153_JPRB |
|---|
| 38 | ! * R : perfect gas constant |
|---|
| 39 | REAL(KIND=JPRB), PARAMETER :: R = RNAVO*RKBOL |
|---|
| 40 | ! * RD : R_dry (dry air constant) |
|---|
| 41 | REAL(KIND=JPRB), PARAMETER :: RD = 287.058_JPRB! J kg-1 K-1 |
|---|
| 42 | ! * RV : R_vap (vapour water constant) |
|---|
| 43 | REAL(KIND=JPRB), PARAMETER :: RV = 1000._JPRB*R/RMV |
|---|
| 44 | ! * RMO3 : ozone molar mass |
|---|
| 45 | REAL(KIND=JPRB), PARAMETER :: RMO3 = 47.9942_JPRB |
|---|
| 46 | ! * RTT : Tt = temperature of water fusion at "pre_n" |
|---|
| 47 | REAL(KIND=JPRB), PARAMETER :: RTT = 273.16_JPRB |
|---|
| 48 | ! * RLVTT : RLvTt = vaporisation latent heat at T=Tt |
|---|
| 49 | REAL(KIND=JPRB), PARAMETER :: RLVTT = 2.5008E+6_JPRB |
|---|
| 50 | ! * RLSTT : RLsTt = sublimation latent heat at T=Tt |
|---|
| 51 | REAL(KIND=JPRB), PARAMETER :: RLSTT = 2.8345E+6_JPRB |
|---|
| 52 | ! * RI0 : solar constant |
|---|
| 53 | REAL(KIND=JPRB), PARAMETER :: RI0 = 1366.0_JPRB |
|---|
| 54 | ! * RETV : R_vap/R_dry - 1 |
|---|
| 55 | REAL(KIND=JPRB), PARAMETER :: RETV = RV/RD-1.0_JPRB |
|---|
| 56 | ! * RMCO2 : CO2 (carbon dioxide) molar mass |
|---|
| 57 | REAL(KIND=JPRB), PARAMETER :: RMCO2 = 44.0095_JPRB |
|---|
| 58 | ! * RMCH4 : CH4 (methane) molar mass |
|---|
| 59 | REAL(KIND=JPRB), PARAMETER :: RMCH4 = 16.04_JPRB |
|---|
| 60 | ! * RMN2O : N2O molar mass |
|---|
| 61 | REAL(KIND=JPRB), PARAMETER :: RMN2O = 44.013_JPRB |
|---|
| 62 | ! * RMNO2 : NO2 (nitrogen dioxide) molar mass |
|---|
| 63 | REAL(KIND=JPRB), PARAMETER :: RMNO2 = 46.01_JPRB |
|---|
| 64 | ! * RMCFC11 : CFC11 molar mass |
|---|
| 65 | REAL(KIND=JPRB), PARAMETER :: RMCFC11 = 137.3686_JPRB |
|---|
| 66 | ! * RMCFC12 : CFC12 molar mass |
|---|
| 67 | REAL(KIND=JPRB), PARAMETER :: RMCFC12 = 120.914_JPRB |
|---|
| 68 | ! * RMHCFC12 : HCFC22 molar mass |
|---|
| 69 | REAL(KIND=JPRB), PARAMETER :: RMHCFC22 = 86.469_JPRB |
|---|
| 70 | ! * RMCCL4 : CCl4 molar mass |
|---|
| 71 | REAL(KIND=JPRB), PARAMETER :: RMCCL4 = 153.823_JPRB |
|---|
| 72 | |
|---|
| 73 | REAL(KIND=JPRB), PARAMETER :: RCPD = 3.5_JPRB*RD |
|---|
| 74 | REAL(KIND=JPRB), PARAMETER :: RLMLT = RLSTT-RLVTT |
|---|
| 75 | |
|---|
| 76 | END MODULE YOMCST |
|---|
