module ATMOSPHERE / Physics Cloud Microphysics More...

Data Types
interface	er

interface	mr

interface	su

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

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

procedure(su), pointer, public	atmos_phy_mp_setup => 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()

integer, public	qa_mp = 0

integer, public	qs_mp = -1

integer, public	qe_mp = -1

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

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

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

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_config()

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

Setup Cloud Microphysics.

Definition at line 136 of file scale_atmos_phy_mp.F90.

Referenced by mod_atmos_phy_mp_driver::atmos_phy_mp_driver_config().

     use scale_process, only: &
        prc_mpistop
     use scale_atmos_phy_mp_dry, only: &
        atmos_phy_mp_dry_config, &
        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_name, &
        atmos_phy_mp_dry_desc, &
        atmos_phy_mp_dry_unit, &
        atmos_phy_mp_dry_dens
     use scale_atmos_phy_mp_kessler, only: &
        atmos_phy_mp_kessler_config, &
        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_name, &
        atmos_phy_mp_kessler_desc, &
        atmos_phy_mp_kessler_unit, &
        atmos_phy_mp_kessler_dens
     use scale_atmos_phy_mp_tomita08, only: &
        atmos_phy_mp_tomita08_config, &
        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_name, &
        atmos_phy_mp_tomita08_desc, &
        atmos_phy_mp_tomita08_unit, &
        atmos_phy_mp_tomita08_dens
     use scale_atmos_phy_mp_sn14, only: &
        atmos_phy_mp_sn14_config, &
        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_name, &
        atmos_phy_mp_sn14_desc, &
        atmos_phy_mp_sn14_unit, &
        atmos_phy_mp_sn14_dens
     use scale_atmos_phy_mp_suzuki10, only: &
        atmos_phy_mp_suzuki10_config, &
        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_name, &
        atmos_phy_mp_suzuki10_desc, &
        atmos_phy_mp_suzuki10_unit, &
        atmos_phy_mp_suzuki10_dens
     use scale_atmos_phy_mp_sdm, only: &
        atmos_phy_mp_sdm_config, &
        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_name, &
        atmos_phy_mp_sdm_desc, &
        atmos_phy_mp_sdm_unit, &
        atmos_phy_mp_sdm_dens
     implicit none
 
     character(len=*), intent(in) :: MP_TYPE
     !---------------------------------------------------------------------------
 
     if( io_l ) write(io_fid_log,*) '*** => ', trim(mp_type), ' is selected.'
 
     select case( mp_type )
     case( 'DRY' )
        call atmos_phy_mp_dry_config( &
             mp_type,     & ! (in)
             qa_mp, qs_mp ) ! (out)
        atmos_phy_mp                 => atmos_phy_mp_dry
        atmos_phy_mp_setup           => atmos_phy_mp_dry_setup
        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_name            => atmos_phy_mp_dry_name
        atmos_phy_mp_desc            => atmos_phy_mp_dry_desc
        atmos_phy_mp_unit            => atmos_phy_mp_dry_unit
        atmos_phy_mp_dens            => atmos_phy_mp_dry_dens
     case( 'KESSLER' )
        call atmos_phy_mp_kessler_config( &
             mp_type,     & ! (in)
             qa_mp, qs_mp ) ! (out)
        atmos_phy_mp                 => atmos_phy_mp_kessler
        atmos_phy_mp_setup           => atmos_phy_mp_kessler_setup
        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_name            => atmos_phy_mp_kessler_name
        atmos_phy_mp_desc            => atmos_phy_mp_kessler_desc
        atmos_phy_mp_unit            => atmos_phy_mp_kessler_unit
        atmos_phy_mp_dens            => atmos_phy_mp_kessler_dens
     case( 'TOMITA08' )
        call atmos_phy_mp_tomita08_config( &
             mp_type,     & ! (in)
             qa_mp, qs_mp ) ! (out)
        atmos_phy_mp                 => atmos_phy_mp_tomita08
        atmos_phy_mp_setup           => atmos_phy_mp_tomita08_setup
        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_name            => atmos_phy_mp_tomita08_name
        atmos_phy_mp_desc            => atmos_phy_mp_tomita08_desc
        atmos_phy_mp_unit            => atmos_phy_mp_tomita08_unit
        atmos_phy_mp_dens            => atmos_phy_mp_tomita08_dens
     case( 'SN14' )
        call atmos_phy_mp_sn14_config( &
             mp_type,     & ! (in)
             qa_mp, qs_mp ) ! (out)
        atmos_phy_mp                 => atmos_phy_mp_sn14
        atmos_phy_mp_setup           => atmos_phy_mp_sn14_setup
        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_name            => atmos_phy_mp_sn14_name
        atmos_phy_mp_desc            => atmos_phy_mp_sn14_desc
        atmos_phy_mp_unit            => atmos_phy_mp_sn14_unit
        atmos_phy_mp_dens            => atmos_phy_mp_sn14_dens
     case( 'SUZUKI10' )
        call atmos_phy_mp_suzuki10_config( &
             mp_type,     & ! (in)
             qa_mp, qs_mp ) ! (out)
        atmos_phy_mp                 => atmos_phy_mp_suzuki10
        atmos_phy_mp_setup           => atmos_phy_mp_suzuki10_setup
        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_name            => atmos_phy_mp_suzuki10_name
        atmos_phy_mp_desc            => atmos_phy_mp_suzuki10_desc
        atmos_phy_mp_unit            => atmos_phy_mp_suzuki10_unit
        atmos_phy_mp_dens            => atmos_phy_mp_suzuki10_dens
     case( 'SDM' )
        call atmos_phy_mp_sdm_config( &
             mp_type,     & ! (in)
             qa_mp, qs_mp ) ! (out)
        atmos_phy_mp                 => atmos_phy_mp_sdm
        atmos_phy_mp_setup           => atmos_phy_mp_sdm_setup
        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_name            => atmos_phy_mp_sdm_name
        atmos_phy_mp_desc            => atmos_phy_mp_sdm_desc
        atmos_phy_mp_unit            => atmos_phy_mp_sdm_unit
        atmos_phy_mp_dens            => atmos_phy_mp_sdm_dens
     end select
 
     qe_mp = qs_mp + qa_mp - 1
 
     return