module ATMOSPHERE / Physics Cloud Microphysics More...

Data Types
interface	cf

interface	er

interface	mr

Functions/Subroutines
subroutine, public	atmos_phy_mp_setup (MP_TYPE)
	Setup Cloud Microphysics. More...

Variables
procedure(mp), pointer, public	atmos_phy_mp => NULL()

procedure(cf), pointer, public	atmos_phy_mp_cloudfraction => NULL()

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

procedure(mr), pointer, public	atmos_phy_mp_mixingratio => NULL()

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

Detailed Description

module ATMOSPHERE / Physics Cloud Microphysics

Description: Cloud Microphysics

Author: Team SCALE

History

2013-12-06 (S.Nishizawa) [new]
2015-09-08 (Y.Sato) [mod] Add evaporated cloud number concentration

Function/Subroutine Documentation

◆ atmos_phy_mp_setup()

subroutine, public scale_atmos_phy_mp::atmos_phy_mp_setup ( character(len=*), intent(in) MP_TYPE )

Setup Cloud Microphysics.

Definition at line 123 of file scale_atmos_phy_mp.F90.

Referenced by mod_atmos_phy_mp_driver::atmos_phy_mp_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 MP
     use name(scale_atmos_phy_mp_, mp,), only: &
        name(atmos_phy_mp_, mp, _setup), &
        name(atmos_phy_mp_, mp,), &
        name(atmos_phy_mp_, mp, _cloudfraction), &
        name(atmos_phy_mp_, mp, _effectiveradius), &
        name(atmos_phy_mp_, mp, _mixingratio), &
        name(atmos_phy_mp_, mp, _dens) => atmos_phy_mp_dens
 #else
     use scale_atmos_phy_mp_dry, only: &
        atmos_phy_mp_dry_setup, &
        atmos_phy_mp_dry, &
        atmos_phy_mp_dry_cloudfraction, &
        atmos_phy_mp_dry_effectiveradius, &
        atmos_phy_mp_dry_mixingratio, &
        atmos_phy_mp_dry_dens => atmos_phy_mp_dens
     use scale_atmos_phy_mp_kessler, only: &
        atmos_phy_mp_kessler_setup, &
        atmos_phy_mp_kessler, &
        atmos_phy_mp_kessler_cloudfraction, &
        atmos_phy_mp_kessler_effectiveradius, &
        atmos_phy_mp_kessler_mixingratio, &
        atmos_phy_mp_kessler_dens => atmos_phy_mp_dens
     use scale_atmos_phy_mp_tomita08, only: &
        atmos_phy_mp_tomita08_setup, &
        atmos_phy_mp_tomita08, &
        atmos_phy_mp_tomita08_cloudfraction, &
        atmos_phy_mp_tomita08_effectiveradius, &
        atmos_phy_mp_tomita08_mixingratio, &
        atmos_phy_mp_tomita08_dens => atmos_phy_mp_dens
     use scale_atmos_phy_mp_sn14, only: &
        atmos_phy_mp_sn14_setup, &
        atmos_phy_mp_sn14, &
        atmos_phy_mp_sn14_cloudfraction, &
        atmos_phy_mp_sn14_effectiveradius, &
        atmos_phy_mp_sn14_mixingratio, &
        atmos_phy_mp_sn14_dens => atmos_phy_mp_dens
     use scale_atmos_phy_mp_suzuki10, only: &
        atmos_phy_mp_suzuki10_setup, &
        atmos_phy_mp_suzuki10, &
        atmos_phy_mp_suzuki10_cloudfraction, &
        atmos_phy_mp_suzuki10_effectiveradius, &
        atmos_phy_mp_suzuki10_mixingratio, &
        atmos_phy_mp_suzuki10_dens => atmos_phy_mp_dens
     use scale_atmos_phy_mp_sdm, only: &
        atmos_phy_mp_sdm_setup, &
        atmos_phy_mp_sdm, &
        atmos_phy_mp_sdm_cloudfraction, &
        atmos_phy_mp_sdm_effectiveradius, &
        atmos_phy_mp_sdm_mixingratio, &
        atmos_phy_mp_sdm_dens => atmos_phy_mp_dens
 #endif
     implicit none
 
     character(len=*), intent(in) :: mp_type
     !---------------------------------------------------------------------------
 
 #ifdef MP
     call name(atmos_phy_mp_, mp, _setup)( mp_type )
     atmos_phy_mp                 => name(atmos_phy_mp_, mp,)
     atmos_phy_mp_cloudfraction   => name(atmos_phy_mp_, mp, _cloudfraction)
     atmos_phy_mp_effectiveradius => name(atmos_phy_mp_, mp, _effectiveradius)
     atmos_phy_mp_mixingratio     => name(atmos_phy_mp_, mp, _mixingratio)
     atmos_phy_mp_dens            => name(atmos_phy_mp_, mp, _dens)
 #else
     select case ( mp_type )
     case ( 'DRY' )
        call atmos_phy_mp_dry_setup( mp_type )
        atmos_phy_mp                 => atmos_phy_mp_dry
        atmos_phy_mp_cloudfraction   => atmos_phy_mp_dry_cloudfraction
        atmos_phy_mp_effectiveradius => atmos_phy_mp_dry_effectiveradius
        atmos_phy_mp_mixingratio     => atmos_phy_mp_dry_mixingratio
        atmos_phy_mp_dens            => atmos_phy_mp_dry_dens
     case ( 'KESSLER' )
        call atmos_phy_mp_kessler_setup( mp_type )
        atmos_phy_mp                 => atmos_phy_mp_kessler
        atmos_phy_mp_cloudfraction   => atmos_phy_mp_kessler_cloudfraction
        atmos_phy_mp_effectiveradius => atmos_phy_mp_kessler_effectiveradius
        atmos_phy_mp_mixingratio     => atmos_phy_mp_kessler_mixingratio
        atmos_phy_mp_dens            => atmos_phy_mp_kessler_dens
     case ( 'TOMITA08' )
        call atmos_phy_mp_tomita08_setup( mp_type )
        atmos_phy_mp                 => atmos_phy_mp_tomita08
        atmos_phy_mp_cloudfraction   => atmos_phy_mp_tomita08_cloudfraction
        atmos_phy_mp_effectiveradius => atmos_phy_mp_tomita08_effectiveradius
        atmos_phy_mp_mixingratio     => atmos_phy_mp_tomita08_mixingratio
        atmos_phy_mp_dens            => atmos_phy_mp_tomita08_dens
     case ( 'SN14' )
        call atmos_phy_mp_sn14_setup( mp_type )
        atmos_phy_mp                 => atmos_phy_mp_sn14
        atmos_phy_mp_cloudfraction   => atmos_phy_mp_sn14_cloudfraction
        atmos_phy_mp_effectiveradius => atmos_phy_mp_sn14_effectiveradius
        atmos_phy_mp_mixingratio     => atmos_phy_mp_sn14_mixingratio
        atmos_phy_mp_dens            => atmos_phy_mp_sn14_dens
     case ( 'SUZUKI10' )
        call atmos_phy_mp_suzuki10_setup( mp_type )
        atmos_phy_mp                 => atmos_phy_mp_suzuki10
        atmos_phy_mp_cloudfraction   => atmos_phy_mp_suzuki10_cloudfraction
        atmos_phy_mp_effectiveradius => atmos_phy_mp_suzuki10_effectiveradius
        atmos_phy_mp_mixingratio     => atmos_phy_mp_suzuki10_mixingratio
        atmos_phy_mp_dens            => atmos_phy_mp_suzuki10_dens
     case ( 'SDM' )
        call atmos_phy_mp_sdm_setup( mp_type )
        atmos_phy_mp                 => atmos_phy_mp_sdm
        atmos_phy_mp_cloudfraction   => atmos_phy_mp_sdm_cloudfraction
        atmos_phy_mp_effectiveradius => atmos_phy_mp_sdm_effectiveradius
        atmos_phy_mp_mixingratio     => atmos_phy_mp_sdm_mixingratio
        atmos_phy_mp_dens            => atmos_phy_mp_sdm_dens
     end select
 #endif
 
     return