Sola/GEOS-Chem-adjoint-v35-note
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add files via upload

Browse Source
This commit is contained in:
Xuesong (Steve)
2018-08-28 00:43:47 -04:00
committed by GitHub
parent b9acb75507
commit e17feeaad3
96 changed files with 68216 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
code/CMN_GCTM Normal file
View File

@ -0,0 +1,39 @@
! $Id: CMN_GCTM,v 1.1 2009/06/09 21:51:50 daven Exp $
!=================================================================
! CMN_GCTM contains GEOS-CHEM specific PHYSICAL CONSTANTS
! and DERIVED QUANTITIES (bmy, 6/25/02, 6/23/03)
!
! NOTES:
! (1 ) Changed RCS ID tag comment character from "C" to "!$" to
! allow freeform compilation. Also convert PARAMETERS to F90
! syntax. Updated comments, cosmetic changes. (bmy, 6/25/02)
! (2 ) Added atmospheric scale height (7.6 km) (bmy, 6/23/03)
!=================================================================
! AIRMW : Molecular weight of air [28.97 g/mole]
REAL*8, PARAMETER :: AIRMW = 28.97d0
! g0 : Gravity at Surface of Earth [9.8 m/s^2]
REAL*8, PARAMETER :: g0 = 9.8d0
! PI : Double-Precision value of PI
REAL*8, PARAMETER :: PI = 3.14159265358979323d0
! Re : Radius of Earth [m]
REAL*8, PARAMETER :: Re = 6.375d6
! Rd : Gas Constant (R) in Dry Air [287 J/K/kg]
REAL*8, PARAMETER :: Rd = 287.0d0
! g0_100 = 100.0 / g0
REAL*8, PARAMETER :: g0_100 = 100d0 / g0
! PI_180 = PI / 180.0
REAL*8, PARAMETER :: PI_180 = PI / 180d0
! Rdg0 = Rd / g0
REAL*8, PARAMETER :: Rdg0 = Rd / g0
! Scale height of atmosphere (7.6 km = 7600m)
REAL*8, PARAMETER :: SCALE_HEIGHT = 7600d0