wrfv2_fire/chem/KPP/module_wkppc_constants.F

   1 MODULE module_wkppc_constants
   2
   3
   4 ! A few constants
   5
   6      REAL, PARAMETER  ::  navgdro = 6.022e23   ! molecules/mol
   7
   8      REAL, PARAMETER  ::   &   !molecular weights
   9            mwh = 1.0079,  mwo = 15.9994,  mwair = 28.97
  10
  11
  12      REAL, PARAMETER :: mwh2o = 2*mwh + mwo
  13
  14
  15 !dens2con air
  16       REAL, PARAMETER ::          dens2con_a = 1.e-3     &! kg/m3 -> g/cm3
  17                                    * (1./mwair)          &! -> mole/cm3
  18                                    * navgdro              ! -> molec/cm3
  19
  20
  21
  22 !dens2con water
  23       REAL, PARAMETER ::          dens2con_w = 1.e-3     &! kg/m3 -> g/cm3
  24                                     * (1./mwh2o)         &! -> mole/cm3
  25                                     * navgdro             ! -> molec/cm3
  26
  27
  28
  29
  30
  31
  32
  33 ! constants for KPP
  34 ! should be moved to namelist input in the future
  35
  36
  37
  38      REAL, PARAMETER ::  rtols=1.E-3 ! 1e-2 means two digits
  39      REAL, PARAMETER ::  atols=1.
  40
  41
  42
  43
  44
  45 END MODULE module_wkppc_constants