chem/params.mod.F

   1       module module_params
   2
   3       implicit none
   4
   5 ! BROADLY USED PARAMETERS:
   6 !_________________________________________________
   7 ! i/o file unit numbers
   8 ! output
   9       INTEGER, PARAMETER :: kout=53
  10 ! input
  11       INTEGER, PARAMETER :: kin=12
  12 !_________________________________________________
  13 ! altitude, wavelength, time (or solar zenith angle) grids
  14 ! altitude
  15       integer, PARAMETER :: kz=125
  16 ! wavelength
  17       integer, PARAMETER :: kw=1000
  18 ! time/sza
  19       integer, PARAMETER :: kt=100
  20 !_________________________________________________
  21 ! number of weighting functions
  22 !  wavelength dependent
  23       integer, PARAMETER :: ks=60
  24 !  wavelength and altitude dependent
  25       integer, PARAMETER :: kj=150
  26 !  wavelength dependent DOM (dissolved organic matter) spectra
  27       integer, PARAMETER :: kdom=200
  28 ! delta for adding points at beginning or end of data grids
  29       real, PARAMETER :: deltax = 1.E-5
  30
  31 ! some constants...
  32
  33 ! pi:
  34       real, PARAMETER :: pi=3.1415926535898
  35
  36 ! radius of the earth, km:
  37       real, PARAMETER :: radius=6.371E+3
  38
  39 ! Planck constant x speed of light, J m
  40       real, PARAMETER :: hc = 6.626068E-34 * 2.99792458E8
  41
  42 ! largest number of the machine:
  43       real, PARAMETER :: largest=1.E+36
  44
  45 ! small numbers (positive and negative)
  46       real, PARAMETER :: pzero = +10./largest
  47       real, PARAMETER :: nzero = -10./largest
  48
  49 ! machine precision
  50       real, PARAMETER :: precis = 1.e-7
  51
  52       end module module_params