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 = 9
  integer, public, parameter :: i_ad  = 1
  integer, public, parameter :: i_aso = 2
  integer, public, parameter :: i_ava = 3
  integer, public, parameter :: i_as  = 4
  integer, public, parameter :: i_ar  = 5
  integer, public, parameter :: i_ass = 6
  integer, public, parameter :: i_au  = 7
  integer, public, parameter :: i_at  = 8
  integer, public, parameter :: i_aoc = 9

  character(len=H_SHORT), public, parameter :: ae_name(n_ae) = &
       (/ "AD ", "ASO", "AVA", "AS ", "AR ", "ASS", "AU ", "AT ", "AOC" /)
  character(len=H_MID),   public, parameter :: ae_desc(n_ae) = &
       (/ "dust-like      ", &
          "soot           ", &
          "volcanic ash   ", &
          "sulfate (H2SO4)", &
          "rural          ", &
          "sea salt       ", &
          "urban          ", &
          "tropo          ", &
          "yellow dust    " /)

  real(RP), parameter, private :: rhod_ae = 1.83_rp ! particle density [g/cm3] sulfate assumed
  real(RP), parameter, public :: ae_dens(n_ae) = (/ rhod_ae, rhod_ae, rhod_ae, rhod_ae, rhod_ae, rhod_ae, rhod_ae, rhod_ae, rhod_ae /)


  !-----------------------------------------------------------------------------
  !
  !++ 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