module ATMOSPHERE / Physics Aerosol Microphysics More...

Data Types
interface	su

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

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

procedure(su), pointer, public	atmos_phy_ae_setup => NULL()

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

integer, public	qa_ae

integer, public	qs_ae

integer, public	qe_ae

character(len=h_short), dimension(:), pointer, public	atmos_phy_ae_name

character(len=h_mid), dimension(:), pointer, public	atmos_phy_ae_desc

character(len=h_short), dimension(:), pointer, public	atmos_phy_ae_unit

real(rp), dimension(:), pointer, public	atmos_phy_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_config()

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

Setup.

Definition at line 110 of file scale_atmos_phy_ae.F90.

Referenced by mod_atmos_phy_ae_driver::atmos_phy_ae_driver_config().

     use scale_process, only: &
        prc_mpistop
     use scale_atmos_phy_ae_dummy, only: &
        atmos_phy_ae_dummy_config, &
        atmos_phy_ae_dummy_setup, &
        atmos_phy_ae_dummy, &
        atmos_phy_ae_dummy_effectiveradius, &
        atmos_phy_ae_dummy_name, &
        atmos_phy_ae_dummy_unit, &
        atmos_phy_ae_dummy_desc, &
        atmos_phy_ae_dummy_dens
     use scale_atmos_phy_ae_kajino13, only: &
        atmos_phy_ae_kajino13_config, &
        atmos_phy_ae_kajino13_setup, &
        atmos_phy_ae_kajino13, &
        atmos_phy_ae_kajino13_effectiveradius, &
        atmos_phy_ae_kajino13_name, &
        atmos_phy_ae_kajino13_unit, &
        atmos_phy_ae_kajino13_desc, &
        atmos_phy_ae_kajino13_dens
     implicit none
 
     character(len=*), intent(in) :: AE_TYPE
     !---------------------------------------------------------------------------
 
     if( io_l ) write(io_fid_log,*) '*** => ', trim(ae_type), ' is selected.'
 
     select case( ae_type )
     case('DUMMY','NONE')
        call atmos_phy_ae_dummy_config( &
             ae_type, &
             qa_ae, qs_ae ) ! (out)
        atmos_phy_ae_setup           => atmos_phy_ae_dummy_setup
        atmos_phy_ae                 => atmos_phy_ae_dummy
        atmos_phy_ae_effectiveradius => atmos_phy_ae_dummy_effectiveradius
        atmos_phy_ae_name            => atmos_phy_ae_dummy_name
        atmos_phy_ae_desc            => atmos_phy_ae_dummy_desc
        atmos_phy_ae_unit            => atmos_phy_ae_dummy_unit
        atmos_phy_ae_dens            => atmos_phy_ae_dummy_dens
     case('KAJINO13')
        call atmos_phy_ae_kajino13_config( &
             ae_type, &
             qa_ae, qs_ae ) ! (out)
        atmos_phy_ae_setup           => atmos_phy_ae_kajino13_setup
        atmos_phy_ae                 => atmos_phy_ae_kajino13
        atmos_phy_ae_effectiveradius => atmos_phy_ae_kajino13_effectiveradius
        atmos_phy_ae_name            => atmos_phy_ae_kajino13_name
        atmos_phy_ae_desc            => atmos_phy_ae_kajino13_desc
        atmos_phy_ae_unit            => atmos_phy_ae_kajino13_unit
        atmos_phy_ae_dens            => atmos_phy_ae_kajino13_dens
        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
 
     qe_ae = qs_ae + qa_ae - 1
 
     return