module ATMOSPHERE / Physics Cloud Microphysics More...

Functions/Subroutines
subroutine, public	atmos_phy_mp_dry_config (MP_TYPE, QA, QS)
	Configure. More...

subroutine, public	atmos_phy_mp_dry_setup
	Setup. More...

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

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

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

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

Variables
integer, parameter, public	qa_mp = 0

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

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

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

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

Detailed Description

module ATMOSPHERE / Physics Cloud Microphysics

Description: Dummy Cloud Microphysics for dry atmosphere

Author: Team SCALE

History

2012-10-18 (S.Nishizawa) [new]
2015-09-08 (Y.Sato) [add] Add evaporated cloud number concentration

Function/Subroutine Documentation

◆ atmos_phy_mp_dry_config()

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

Configure.

Definition at line 68 of file scale_atmos_phy_mp_dry.F90.

References scale_stdio::io_fid_log, scale_stdio::io_l, scale_process::prc_mpistop(), and qa_mp.

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
     !---------------------------------------------------------------------------
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '++++++ Module[Cloud Microphysics Tracer] / Categ[ATMOS PHYSICS] / Origin[SCALElib]'
     if( io_l ) write(io_fid_log,*) '*** No tracers for dummy process (dry Atmosphere)'
 
     if ( mp_type /= 'DRY' ) then
        write(*,*) 'xxx ATMOS_PHY_MP_TYPE is not DRY. Check!'
        call prc_mpistop
     endif
 
     qs = -1
     qa = qa_mp
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ atmos_phy_mp_dry_setup()

subroutine, public scale_atmos_phy_mp_dry::atmos_phy_mp_dry_setup ( )

Setup.

Definition at line 95 of file scale_atmos_phy_mp_dry.F90.

References scale_stdio::io_fid_log, and scale_stdio::io_l.

Referenced by scale_atmos_phy_mp::atmos_phy_mp_config().

     implicit none
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '++++++ Module[Cloud Microphysics] / Categ[ATMOS PHYSICS] / Origin[SCALElib]'
     if( io_l ) write(io_fid_log,*) '*** dummy process (dry Atmosphere)'
 
     return

Here is the caller graph for this function:

◆ atmos_phy_mp_dry()

subroutine, public scale_atmos_phy_mp_dry::atmos_phy_mp_dry	(	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 117 of file scale_atmos_phy_mp_dry.F90.

References atmos_phy_mp_dry_dens, scale_const::const_undef, scale_stdio::io_fid_log, scale_stdio::io_l, 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_const, only: &
        undef => const_undef
     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)
     real(RP), intent(out)   :: SFLX_rain(IA,JA)
     real(RP), intent(out)   :: SFLX_snow(IA,JA)
     !---------------------------------------------------------------------------
 
     if( io_l ) write(io_fid_log,*) '*** Atmos physics  step: Cloud microphysics(dummy)'
 
     atmos_phy_mp_dry_dens(:) = undef
 
     evaporate(:,:,:) = 0.0_rp
     sflx_rain(:,:) = 0.0_rp
     sflx_snow(:,:) = 0.0_rp
 
     return

Here is the caller graph for this function:

◆ atmos_phy_mp_dry_cloudfraction()

subroutine, public scale_atmos_phy_mp_dry::atmos_phy_mp_dry_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 153 of file scale_atmos_phy_mp_dry.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_dry_effectiveradius()

subroutine, public scale_atmos_phy_mp_dry::atmos_phy_mp_dry_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 175 of file scale_atmos_phy_mp_dry.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          [cm]
     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)       ! temperature               [K]
     !---------------------------------------------------------------------------
 
     re = 0.0_rp
 
     return

Here is the caller graph for this function:

◆ atmos_phy_mp_dry_mixingratio()

subroutine, public scale_atmos_phy_mp_dry::atmos_phy_mp_dry_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 197 of file scale_atmos_phy_mp_dry.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) :: 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]
     !---------------------------------------------------------------------------
 
     qe = 0.0_rp
 
     return