scale_atmos_aerosol.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
#include "scalelib.h"
module scale_atmos_aerosol
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_io
  use scale_prof
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: atmos_aerosol_setup
 
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  integer, public, parameter :: n_ae  = 7
  integer, public, parameter :: i_a01 = 1 ! Soil dust
  integer, public, parameter :: i_a02 = 2 ! Carbonacerous (BC/OC=0.3)
  integer, public, parameter :: i_a03 = 3 ! Carbonacerous (BC/OC=0.15)
  integer, public, parameter :: i_a04 = 4 ! Carbonacerous (BC/OC=0.)
  integer, public, parameter :: i_a05 = 5 ! Black carbon
  integer, public, parameter :: i_a06 = 6 ! Sulfate
  integer, public, parameter :: i_a07 = 7 ! Sea salt
 
  character(len=H_SHORT), public, parameter :: ae_name(n_ae) = &
       (/ "A01", "A02", "A03", "A04", "A05", "A06", "A07" /)
  character(len=H_MID),   public, parameter :: ae_desc(n_ae) = &
       (/ "Soil dust                 ", &  ! Soil dust
          "Carbonacerous (BC/OC=0.3) ", &  ! Carbonacerous (BC/OC=0.3)
          "Carbonacerous (BC/OC=0.15)", &  ! Carbonacerous (BC/OC=0.15)
          "Carbonacerous (BC/OC=0.)  ", &  ! Carbonacerous (BC/OC=0.)
          "Black carbon              ", &  ! Black carbon
          "Sulfate                   ", &  ! Sulfate
          "Sea salt                  "  /) ! Sea salt
 
  real(rp), public, parameter :: ae_dens(n_ae) = & ! aerosol density [kg/m3]
       (/ 2.50e+3_rp, &  ! Soil dust
          1.43e+3_rp, &  ! Carbonacerous (BC/OC=0.3)
          1.46e+3_rp, &  ! Carbonacerous (BC/OC=0.15)
          1.50e+3_rp, &  ! Carbonacerous (BC/OC=0.)
          1.25e+3_rp, &  ! Black carbon
          1.77e+3_rp, &  ! Sulfate
          2.20e+3_rp  /) ! Sea salt
 
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine atmos_aerosol_setup
    implicit none
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("ATMOS_AEROSOL_setup",*) 'Setup'
 
    return
  end subroutine atmos_aerosol_setup
 
end module scale_atmos_aerosol