chem/params_mod.F

   1       module PARAMS_MOD
   2
   3       implicit none
   4
   5       integer, parameter :: dp = selected_real_kind(14,300)
   6
   7       real, parameter :: m2km = .001                          ! meters to km
   8       real, parameter :: ppm2vmr = 1.e-6                      ! ppm to vmr
   9       real, parameter :: o2vmr = .2095                        ! o2 vmr
  10       real, parameter :: km2cm = 1.e5                         ! km to centimeters
  11       real, parameter :: m2s   = 60.                          ! minutes to seconds
  12
  13       REAL, PARAMETER :: pi = 3.1415926535898
  14       REAL, PARAMETER :: radius = 6.371E+3                    ! km
  15       REAL, PARAMETER :: hc = 6.626068E-34 * 2.99792458E8
  16       REAL, PARAMETER :: largest=1.E+36
  17
  18       REAL, PARAMETER :: pzero = +10./largest
  19       REAL, PARAMETER :: nzero = -10./largest
  20
  21       REAL, PARAMETER :: precis = 1.e-7
  22
  23       real :: lambda_cutoff                        ! nm
  24
  25       end module PARAMS_MOD