module ATMOSPHERE / Physics Cloud Microphysics More...

Functions/Subroutines
subroutine, public	atmos_phy_mp_dry_setup (MP_TYPE)
	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)
	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
real(rp), dimension(mp_qa), target, public	atmos_phy_mp_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_setup()

subroutine, public scale_atmos_phy_mp_dry::atmos_phy_mp_dry_setup ( character(len=*), intent(in) MP_TYPE )

Setup.

Definition at line 59 of file scale_atmos_phy_mp_dry.F90.

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

Referenced by scale_atmos_phy_mp::atmos_phy_mp_setup().

     use scale_process, only: &
        prc_mpistop
     implicit none
 
     character(len=*), intent(in) :: mp_type
     !---------------------------------------------------------------------------
 
     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)'
 
     if ( mp_type /= 'DRY' ) then
        write(*,*) 'xxx ATMOS_PHY_MP_TYPE is not DRY. Check!'
        call prc_mpistop
     endif
 
     atmos_phy_mp_dens(:) = 0.0_rp
 
     return

Here is the call graph for this function:

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,qad), 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 93 of file scale_atmos_phy_mp_dry.F90.

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

Referenced by scale_atmos_phy_mp::atmos_phy_mp_setup().

     use scale_grid_index
     use scale_tracer, only: &
        qad => qa
     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,qad)
     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,*) '*** Physics step: Cloud microphysics(dummy)'
 
     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,qad), intent(in)	QTRC
	)

Calculate Cloud Fraction.

Definition at line 124 of file scale_atmos_phy_mp_dry.F90.

References scale_tracer::qa.

Referenced by scale_atmos_phy_mp::atmos_phy_mp_setup().

     use scale_grid_index
     use scale_tracer, only: &
        qad => qa
     implicit none
 
     real(RP), intent(out) :: cldfrac(ka,ia,ja)
     real(RP), intent(in)  :: qtrc   (ka,ia,ja,qad)
     !---------------------------------------------------------------------------
 
     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,mp_qad), intent(out)	Re,
		real(rp), dimension(ka,ia,ja,qad), 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 145 of file scale_atmos_phy_mp_dry.F90.

References scale_tracer::mp_qa, and scale_tracer::qa.

Referenced by scale_atmos_phy_mp::atmos_phy_mp_setup().

     use scale_grid_index
     use scale_tracer, only: &
        qad => qa, &
        mp_qad => mp_qa
     implicit none
 
     real(RP), intent(out) :: re   (ka,ia,ja,mp_qad) ! effective radius          [cm]
     real(RP), intent(in)  :: qtrc0(ka,ia,ja,qad)    ! 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]
 
     real(RP), parameter :: um2cm = 100.0_rp
     !---------------------------------------------------------------------------
 
     re(:,:,:,:) = 8.e-6_rp * um2cm ! dummy
 
     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,mp_qad), intent(out)	Qe,
		real(rp), dimension(ka,ia,ja,qad), intent(in)	QTRC0
	)

Calculate mixing ratio of each category.

Definition at line 168 of file scale_atmos_phy_mp_dry.F90.

References scale_tracer::mp_qa, and scale_tracer::qa.

Referenced by scale_atmos_phy_mp::atmos_phy_mp_setup().

     use scale_grid_index
     use scale_tracer, only: &
        qad => qa, &
        mp_qad => mp_qa
     implicit none
 
     real(RP), intent(out) :: qe   (ka,ia,ja,mp_qad) ! mixing ratio of each cateory [kg/kg]
     real(RP), intent(in)  :: qtrc0(ka,ia,ja,qad)    ! tracer mass concentration [kg/kg]
 
     integer  :: ihydro
     !---------------------------------------------------------------------------
 
     do ihydro = 1, mp_qa
        qe(:,:,:,ihydro) = 8.e-6_rp ! dummy
     enddo
 
     return
 