scale_atmos_sub_aerosol.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
module scale_atmos_aerosol
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_stdio
  use scale_grid_index
  !-----------------------------------------------------------------------------
  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

  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine atmos_aerosol_setup
    implicit none
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '++++++ Module[AEROSOL] / Categ[ATMOS SHARE] / Origin[SCALElib]'

    return
  end subroutine atmos_aerosol_setup

end module scale_atmos_aerosol