module ATMOSPHERE / Physics Cloud Microphysics More...

Functions/Subroutines
subroutine, public	atmos_phy_mp_sdm_config (MP_TYPE, QA, QS)
	Confif. More...

subroutine, public	atmos_phy_mp_sdm_setup
	Setup Cloud Microphysics. More...

subroutine, public	atmos_phy_mp_sdm (DENS, MOMZ, MOMX, MOMY, RHOT, QTRC, CCN, EVAPORATE, SFLX_rain, SFLX_snow)
	Cloud Microphysics. More...

subroutine, public	atmos_phy_mp_sdm_cloudfraction (cldfrac, QTRC, mask_criterion)
	Calculate Cloud Fraction. More...

subroutine, public	atmos_phy_mp_sdm_effectiveradius (Re, QTRC0, DENS0, TEMP0)
	Calculate Effective Radius. More...

subroutine, public	atmos_phy_mp_sdm_mixingratio (Qe, QTRC0)
	Calculate mixing ratio of each category. More...

Variables
character(len=h_short), dimension(qa_mp), target, public	atmos_phy_mp_sdm_name

character(len=h_mid), dimension(qa_mp), target, public	atmos_phy_mp_sdm_desc

character(len=h_short), dimension(qa_mp), target, public	atmos_phy_mp_sdm_unit

real(rp), dimension(n_hyd), target, public	atmos_phy_mp_sdm_dens

Detailed Description

module ATMOSPHERE / Physics Cloud Microphysics

Description: Cloud Microphysics by Super Droplet Method (SDM), dummy interface

Author: Team SCALE

History

2012-10-18 (S.Nishizawa) [new]
2015-09-08 (Y.Sato) [mod] update for version SCALE 0.2.4

Function/Subroutine Documentation

◆ atmos_phy_mp_sdm_config()

subroutine, public scale_atmos_phy_mp_sdm::atmos_phy_mp_sdm_config	(	character(len=*), intent(in)	MP_TYPE,
		integer, intent(out)	QA,
		integer, intent(out)	QS
	)

Confif.

Definition at line 80 of file scale_atmos_phy_mp_sdm.F90.

References scale_process::prc_mpistop().

Referenced by scale_atmos_phy_mp::atmos_phy_mp_config().

     use scale_process, only: &
        prc_mpistop
     implicit none
 
     character(len=*), intent(in)  :: MP_TYPE
     integer,          intent(out) :: QA
     integer,          intent(out) :: QS
     !---------------------------------------------------------------------------
 
     write(*,*) '*** SDM not supported.'
     write(*,*) '*** Please contact SCALE developers'
     call prc_mpistop
 
     qa = 0
     qs = 0
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ atmos_phy_mp_sdm_setup()

subroutine, public scale_atmos_phy_mp_sdm::atmos_phy_mp_sdm_setup ( )

Setup Cloud Microphysics.

Definition at line 103 of file scale_atmos_phy_mp_sdm.F90.

References atmos_phy_mp_sdm_dens, scale_const::const_undef, and scale_process::prc_mpistop().

Referenced by scale_atmos_phy_mp::atmos_phy_mp_config().

     use scale_process, only: &
        prc_mpistop
     use scale_const, only: &
        undef => const_undef
     implicit none
     !---------------------------------------------------------------------------
 
     write(*,*) '*** SDM not supported.'
     write(*,*) '*** Please contact SCALE developers'
     call prc_mpistop
 
     atmos_phy_mp_sdm_dens(:) = undef
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ atmos_phy_mp_sdm()

subroutine, public scale_atmos_phy_mp_sdm::atmos_phy_mp_sdm	(	real(rp), dimension(ka,ia,ja), intent(inout)	DENS,
		real(rp), dimension(ka,ia,ja), intent(inout)	MOMZ,
		real(rp), dimension(ka,ia,ja), intent(inout)	MOMX,
		real(rp), dimension(ka,ia,ja), intent(inout)	MOMY,
		real(rp), dimension(ka,ia,ja), intent(inout)	RHOT,
		real(rp), dimension(ka,ia,ja,qa), intent(inout)	QTRC,
		real(rp), dimension (ka,ia,ja), intent(in)	CCN,
		real(rp), dimension(ka,ia,ja), intent(out)	EVAPORATE,
		real(rp), dimension(ia,ja), intent(out)	SFLX_rain,
		real(rp), dimension(ia,ja), intent(out)	SFLX_snow
	)

Cloud Microphysics.

Definition at line 133 of file scale_atmos_phy_mp_sdm.F90.

References scale_const::const_undef, scale_process::prc_mpistop(), and scale_tracer::qa.

Referenced by scale_atmos_phy_mp::atmos_phy_mp_config().

     use scale_grid_index
     use scale_const, only: &
        undef => const_undef
     use scale_tracer, only: &
        qa
     use scale_process, only: &
        prc_mpistop
     implicit none
 
     real(RP), intent(inout) :: DENS(KA,IA,JA)
     real(RP), intent(inout) :: MOMZ(KA,IA,JA)
     real(RP), intent(inout) :: MOMX(KA,IA,JA)
     real(RP), intent(inout) :: MOMY(KA,IA,JA)
     real(RP), intent(inout) :: RHOT(KA,IA,JA)
     real(RP), intent(inout) :: QTRC(KA,IA,JA,QA)
     real(RP), intent(in)    :: CCN (KA,IA,JA)
     real(RP), intent(out)   :: EVAPORATE(KA,IA,JA)   !---- evaporated cloud number concentration [/m3]
     real(RP), intent(out)   :: SFLX_rain(IA,JA)
     real(RP), intent(out)   :: SFLX_snow(IA,JA)
     !---------------------------------------------------------------------------
 
     write(*,*) '*** SDM not supported.'
     write(*,*) '*** Please contact SCALE developers'
     call prc_mpistop
 
     evaporate = undef
     sflx_rain = undef
     sflx_snow = undef
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ atmos_phy_mp_sdm_cloudfraction()

subroutine, public scale_atmos_phy_mp_sdm::atmos_phy_mp_sdm_cloudfraction	(	real(rp), dimension(ka,ia,ja), intent(out)	cldfrac,
		real(rp), dimension (ka,ia,ja,qa), intent(in)	QTRC,
		real(rp), intent(in)	mask_criterion
	)

Calculate Cloud Fraction.

Definition at line 171 of file scale_atmos_phy_mp_sdm.F90.

References scale_tracer::qa.

Referenced by scale_atmos_phy_mp::atmos_phy_mp_config().

     use scale_grid_index
     use scale_tracer, only: &
        qa
     implicit none
 
     real(RP), intent(out) :: cldfrac(KA,IA,JA)
     real(RP), intent(in)  :: QTRC   (KA,IA,JA,QA)
     real(RP), intent(in)  :: mask_criterion ! not used
     !---------------------------------------------------------------------------
 
     cldfrac(:,:,:) = 0.0_rp ! dummy
 
     return

Here is the caller graph for this function:

◆ atmos_phy_mp_sdm_effectiveradius()

subroutine, public scale_atmos_phy_mp_sdm::atmos_phy_mp_sdm_effectiveradius	(	real(rp), dimension (ka,ia,ja,n_hyd), intent(out)	Re,
		real(rp), dimension(ka,ia,ja,qa), intent(in)	QTRC0,
		real(rp), dimension(ka,ia,ja), intent(in)	DENS0,
		real(rp), dimension(ka,ia,ja), intent(in)	TEMP0
	)

Calculate Effective Radius.

Definition at line 193 of file scale_atmos_phy_mp_sdm.F90.

References scale_atmos_hydrometeor::n_hyd, and scale_tracer::qa.

Referenced by scale_atmos_phy_mp::atmos_phy_mp_config().

     use scale_grid_index
     use scale_tracer, only: &
        qa
     use scale_atmos_hydrometeor, only: &
        n_hyd
     implicit none
 
     real(RP), intent(out) :: Re   (KA,IA,JA,N_HYD) ! effective radius
     real(RP), intent(in)  :: QTRC0(KA,IA,JA,QA)    ! tracer mass concentration [kg/kg]
     real(RP), intent(in)  :: DENS0(KA,IA,JA)       ! Density [kg/m3]
     real(RP), intent(in)  :: TEMP0(KA,IA,JA)       ! Temperatuer [K]
     !---------------------------------------------------------------------------
 
     re(:,:,:,:) = 8.e-6_rp ! dummy
 
     return

Here is the caller graph for this function:

◆ atmos_phy_mp_sdm_mixingratio()

subroutine, public scale_atmos_phy_mp_sdm::atmos_phy_mp_sdm_mixingratio	(	real(rp), dimension (ka,ia,ja,n_hyd), intent(out)	Qe,
		real(rp), dimension(ka,ia,ja,qa), intent(in)	QTRC0
	)

Calculate mixing ratio of each category.

Definition at line 215 of file scale_atmos_phy_mp_sdm.F90.

References scale_const::const_eps, scale_atmos_hydrometeor::n_hyd, and scale_tracer::qa.

Referenced by scale_atmos_phy_mp::atmos_phy_mp_config().

     use scale_const, only: &
        eps => const_eps
     use scale_grid_index
     use scale_tracer, only: &
        qa
     use scale_atmos_hydrometeor, only: &
        n_hyd
     implicit none
 
     real(RP), intent(out) :: Qe   (KA,IA,JA,N_HYD) ! mixing ratio of each cateory [kg/kg]
     real(RP), intent(in)  :: QTRC0(KA,IA,JA,QA)    ! tracer mass concentration [kg/kg]
 
     integer  :: ihydro
     !---------------------------------------------------------------------------
 
     qe(:,:,:,:) = 8.e-6_rp ! dummy
 
     return