module ATMOSPHERE / Physics Aerosol Microphysics More...

Functions/Subroutines
subroutine, public	atmos_phy_ae_dummy_config (AE_TYPE, QA_AE, QS_AE)
	Config. More...

subroutine, public	atmos_phy_ae_dummy_setup
	Setup. More...

subroutine, public	atmos_phy_ae_dummy (QQA, DENS, MOMZ, MOMX, MOMY, RHOT, EMIT, NREG, QTRC, CN, CCN, RHOQ_t_AE)
	Aerosol Microphysics. More...

subroutine, public	atmos_phy_ae_dummy_effectiveradius (Re, QTRC, RH)
	Calculate Effective Radius. More...

Variables
integer, parameter, public	qa_ae = 0

character(len=h_short), dimension(qa_ae), target, public	atmos_phy_ae_dummy_name

character(len=h_mid), dimension(qa_ae), target, public	atmos_phy_ae_dummy_desc

character(len=h_short), dimension(qa_ae), target, public	atmos_phy_ae_dummy_unit

real(rp), dimension(qa_ae), target, public	atmos_phy_ae_dummy_dens

Detailed Description

module ATMOSPHERE / Physics Aerosol Microphysics

Description: dummy code

Author: Team SCALE

History

2013-02-06 (H.Yashiro) [new]

Function/Subroutine Documentation

◆ atmos_phy_ae_dummy_config()

subroutine, public scale_atmos_phy_ae_dummy::atmos_phy_ae_dummy_config	(	character(len=*), intent(in)	AE_TYPE,
		integer, intent(out)	QA_AE,
		integer, intent(out)	QS_AE
	)

Config.

Definition at line 64 of file scale_atmos_phy_ae_dummy.F90.

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

Referenced by scale_atmos_phy_ae::atmos_phy_ae_config().

     use scale_process, only: &
        prc_mpistop
     implicit none
     character(len=*), intent(in)  :: AE_TYPE
     integer,          intent(out) :: QA_AE
     integer,          intent(out) :: QS_AE
     !---------------------------------------------------------------------------
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '++++++ Module[Aerosol Tracer] / Categ[ATMOS PHYSICS] / Origin[SCALElib]'
     if( io_l ) write(io_fid_log,*) '*** No tracers for dummy process'
 
     if ( ae_type /= 'DUMMY' .AND. ae_type /= 'NONE' ) then
        write(*,*) 'xxx ATMOS_PHY_AE_TYPE is not DUMMY. Check!'
        call prc_mpistop
     endif
 
     qa_ae = 0
     qs_ae = -1
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ atmos_phy_ae_dummy_setup()

subroutine, public scale_atmos_phy_ae_dummy::atmos_phy_ae_dummy_setup ( )

Setup.

Definition at line 90 of file scale_atmos_phy_ae_dummy.F90.

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

Referenced by scale_atmos_phy_ae::atmos_phy_ae_config().

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

Here is the caller graph for this function:

◆ atmos_phy_ae_dummy()

subroutine, public scale_atmos_phy_ae_dummy::atmos_phy_ae_dummy	(	integer, intent(in)	QQA,
		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,qqa), intent(inout)	EMIT,
		real(rp), dimension(ka,ia,ja), intent(in)	NREG,
		real(rp), dimension(ka,ia,ja,qa), intent(inout)	QTRC,
		real(rp), dimension(ka,ia,ja), intent(out)	CN,
		real(rp), dimension(ka,ia,ja), intent(out)	CCN,
		real(rp), dimension(ka,ia,ja,qa), intent(inout)	RHOQ_t_AE
	)

Aerosol Microphysics.

Definition at line 114 of file scale_atmos_phy_ae_dummy.F90.

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

Referenced by scale_atmos_phy_ae::atmos_phy_ae_config().

     use scale_grid_index
     use scale_tracer
     implicit none
     integer,  intent(in)    :: QQA
     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) :: EMIT(KA,IA,JA,QQA)
     real(RP), intent(in)    :: NREG(KA,IA,JA)
     real(RP), intent(inout) :: QTRC(KA,IA,JA,QA)
     real(RP), intent(out)   :: CN(KA,IA,JA)
     real(RP), intent(out)   :: CCN(KA,IA,JA)
     real(RP), intent(inout) :: RHOQ_t_AE(KA,IA,JA,QA)
 
     if( io_l ) write(io_fid_log,*) '*** Atmos physics  step: Aerosol(dummy)'
 
     cn(:,:,:) = 0.0_rp
     ccn(:,:,:) = 0.0_rp
 
     return

Here is the caller graph for this function:

◆ atmos_phy_ae_dummy_effectiveradius()

subroutine, public scale_atmos_phy_ae_dummy::atmos_phy_ae_dummy_effectiveradius	(	real(rp), dimension (ka,ia,ja,n_ae), intent(out)	Re,
		real(rp), dimension(ka,ia,ja,qa), intent(in)	QTRC,
		real(rp), dimension (ka,ia,ja), intent(in)	RH
	)

Calculate Effective Radius.

Definition at line 144 of file scale_atmos_phy_ae_dummy.F90.

References scale_const::const_undef, and scale_atmos_aerosol::n_ae.

Referenced by scale_atmos_phy_ae::atmos_phy_ae_config().

     use scale_grid_index
     use scale_tracer
     use scale_const, only: &
        undef => const_undef
     use scale_atmos_aerosol, only: &
        n_ae
     implicit none
     real(RP), intent(out) :: Re  (KA,IA,JA,N_AE) ! effective radius
     real(RP), intent(in)  :: QTRC(KA,IA,JA,QA)   ! tracer mass concentration [kg/kg]
     real(RP), intent(in)  :: RH  (KA,IA,JA)      ! relative humidity         (0-1)
     integer :: iq
     !---------------------------------------------------------------------------
 
     do iq = 1, n_ae
        re(:,:,:,iq) = 0.0_rp
     end do
 
 !    Re(:,:,:,I_ae_seasalt) = 2.E-4_RP
 !    Re(:,:,:,I_ae_dust   ) = 4.E-6_RP
 !    Re(:,:,:,I_ae_bc     ) = 4.E-8_RP
 !    Re(:,:,:,I_ae_oc     ) = RH(:,:,:)
 !    Re(:,:,:,I_ae_sulfate) = RH(:,:,:)
 
     return