module ATMOSPHERE / Physics Aerosol Microphysics More...

Data Types
interface	er

Functions/Subroutines
subroutine, public	atmos_phy_ae_setup (AE_TYPE)
	Setup. More...

Variables
procedure(ae), pointer, public	atmos_phy_ae => NULL()

procedure(er), pointer, public	atmos_phy_ae_effectiveradius => NULL()

real(rp), dimension(:), pointer, public	ae_dens

Detailed Description

module ATMOSPHERE / Physics Aerosol Microphysics

Description: Aerosol Microphysics process

Author: Team SCALE

History

2013-12-06 (S.Nishizawa) [new]

Function/Subroutine Documentation

◆ atmos_phy_ae_setup()

subroutine, public scale_atmos_phy_ae::atmos_phy_ae_setup ( character(len=*), intent(in) AE_TYPE )

Setup.

Definition at line 95 of file scale_atmos_phy_ae.F90.

References atmos_phy_ae, scale_atmos_phy_ae_dummy::atmos_phy_ae_dummy(), scale_atmos_phy_ae_dummy::atmos_phy_ae_dummy_effectiveradius(), scale_atmos_phy_ae_dummy::atmos_phy_ae_dummy_setup(), atmos_phy_ae_effectiveradius, scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_effectiveradius(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_setup(), and scale_process::prc_mpistop().

Referenced by mod_atmos_phy_ae_driver::atmos_phy_ae_driver_setup().

     use scale_process, only: &
        prc_mpistop
 #define EXTM(pre, name, post) pre ## name ## post
 #define NAME(pre, name, post) EXTM(pre, name, post)
 #ifdef AE
     use name(scale_atmos_phy_ae_, ae,), only: &
        name(atmos_phy_ae_, ae, _setup), &
        name(atmos_phy_ae_, ae,)
        name(atmos_phy_ae_, ae, _effectiveradius)
 #else
     use scale_atmos_phy_ae_dummy, only: &
        atmos_phy_ae_dummy_setup, &
        atmos_phy_ae_dummy, &
        atmos_phy_ae_dummy_effectiveradius
     use scale_atmos_phy_ae_kajino13, only: &
        atmos_phy_ae_kajino13_setup, &
        atmos_phy_ae_kajino13, &
        atmos_phy_ae_kajino13_effectiveradius
 #endif
     implicit none
 
     character(len=*), intent(in) :: ae_type
     !---------------------------------------------------------------------------
 
     select case( ae_type )
     case ( 'DUMMY', 'NONE' )
        call atmos_phy_ae_dummy_setup( ae_type )
        atmos_phy_ae                 => atmos_phy_ae_dummy
        atmos_phy_ae_effectiveradius => atmos_phy_ae_dummy_effectiveradius
     case ( 'KAJINO13' )
        call atmos_phy_ae_kajino13_setup( ae_type )
        atmos_phy_ae                 => atmos_phy_ae_kajino13
        atmos_phy_ae_effectiveradius => atmos_phy_ae_kajino13_effectiveradius
        write(*,*) '### aerosol type(', ae_type, '). is not recommended in current version!'
     case default
        write(*,*) 'xxx invalid aerosol type(', ae_type, '). CHECK!'
        call prc_mpistop
     end select
 
     return