chem/module_data_mosaic_main.F

   1       module module_data_mosaic_main
   2 !-----------------------------------------------------------------------
   3 !
   4 ! 2015-06-09 r.c.easter - changes to the MOSAIC box model version for use in WRF-Chem
   5 !
   6 ! none so far
   7 !
   8 !-----------------------------------------------------------------------
   9
  10       use module_data_mosaic_kind, only:  r8
  11       use module_data_mosaic_constants, only:  &
  12           avogad, deg2rad, pi, piover4, piover6, third
  13
  14
  15       implicit none
  16
  17       integer, parameter ::   &
  18                 ngas_com = 40,   &
  19                 ngas_urb = 19,   &
  20                 ngas_bio =  7,   &
  21                 ngas_mar = 11
  22       !BSINGH - 05/28/2013(RCE updates)
  23       integer, parameter ::   &
  24                   naer_tot = 24                       ! total num of 3-D variables per bin
  25
  26       integer, save ::   &
  27                 naerbin  = -999888777         ! number of bins (set at run time)
  28       !BSINGH - 05/28/2013(RCE updates ENDS)
  29 !               naerbin  = 41760              ! ( 48 size)*(29 wbc)*(30 kappa)
  30 !               naerbin  = 3240               ! ( 24 size)*(15 wbc)*( 9 kappa)
  31 !               naerbin  = 90000              ! (100 size)*(30 wbc)*(30 kappa)
  32
  33       integer, parameter ::   &
  34                 ncld_tot = 13,             &  ! + 8 = total num of 3-D variables/bin
  35                 ncldbin  =  4,             &  ! num of cloud bins
  36                 ncld     = 22           ! num of dynamic cloud species/bin
  37
  38       integer, parameter :: ngas_max = ngas_com + ngas_urb + ngas_bio + ngas_mar
  39
  40       integer, parameter :: ncld_max = ncld_tot*ncldbin
  41       !BSINGH - 05/28/2013(RCE updates)
  42       integer, save :: naer_max = -999888777  ! set at run time to naer_tot*naerbin
  43
  44       integer, save :: ntot_max = -999888777  ! set at run time to (ngas_max + naer_max + ncld_max)
  45       !BSINGH - 05/28/2013(RCE updates ENDS)
  46
  47       integer, save ::   &
  48                 naerbin_used=0,   &   ! num of aerosol bins being used
  49                 ncldbin_used=0,   &   ! num of  cloud  bins being used
  50                 ntot_used=ngas_max    ! portion of cnn array being used
  51
  52       integer, save ::   &
  53                 ipmcmos = 0        ! if > 0, do emissions, dilution, air density,
  54                                    ! and relative humidity as in partmc_mosaic
  55
  56       real(r8), parameter :: press0_pa = 1.01325d5  ! pressure of 1 atm [Pa]
  57       real(r8), parameter :: mw_air = 28.966d0      ! dry-air mean molecular weight [g/mol]
  58
  59
  60 !-------------------------------------------------------------------------
  61
  62       integer, save ::  m_partmc_mosaic  ! >0 for partmc_mosaic, <=0 for mosaic box model!BSINGH - 05/28/2013(RCE updates)
  63
  64       integer, save ::  mgas, maer, mcld
  65
  66       integer, save ::  maeroptic, mshellcore
  67
  68       integer, save ::  msolar, mphoto
  69
  70
  71 !------------------------------------------------------------------------
  72
  73       end module module_data_mosaic_main