scale_atmos_phy_ae_dummy Module Reference

module ATMOSPHERE / Physics Aerosol Microphysics More...

Functions/Subroutines
subroutine, public	atmos_phy_ae_dummy_setup (AE_TYPE)
	Setup. More...
subroutine, public	atmos_phy_ae_dummy (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
real(rp), dimension(:), allocatable, public	ae_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_setup()

subroutine, public scale_atmos_phy_ae_dummy::atmos_phy_ae_dummy_setup

(

character(len=*), intent(in)

AE_TYPE

)

Setup.

Definition at line 55 of file scale_atmos_phy_ae_dummy.F90.

References ae_dens, scale_tracer::ae_qa, scale_stdio::io_fid_log, scale_stdio::io_l, and scale_process::prc_mpistop().

Referenced by scale_atmos_phy_ae::atmos_phy_ae_setup().

    use scale_process, only: &
       prc_mpistop
    implicit none

    character(len=*), intent(in) :: ae_type
    !---------------------------------------------------------------------------

    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 aerosol process'
    if( io_l ) write(io_fid_log,*) '*** No namelists.'

    if ( ae_type /= 'DUMMY' .AND. ae_type /= 'NONE' ) then
       write(*,*) 'xxx ATMOS_PHY_AE_TYPE is not DUMMY. Check!'
       call prc_mpistop
    endif

    allocate( ae_dens(ae_qa) )
    ae_dens(:) = 0.0_rp

    return

Here is the call graph for this function:

Here is the caller graph for this function:

atmos_phy_ae_dummy()

subroutine, public scale_atmos_phy_ae_dummy::atmos_phy_ae_dummy	(	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_ae), 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 92 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_setup().

    use scale_grid_index
    use scale_tracer
    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) :: emit(ka,ia,ja,qa_ae)
    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,*) '*** 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,ae_qa), 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 121 of file scale_atmos_phy_ae_dummy.F90.

References scale_const::const_undef.

Referenced by scale_atmos_phy_ae::atmos_phy_ae_setup().

    use scale_grid_index
    use scale_tracer
    use scale_const, only: &
       undef => const_undef
    implicit none

    real(RP), intent(out) :: re  (ka,ia,ja,ae_qa) ! 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]
    !---------------------------------------------------------------------------

    re(:,:,:,:) = undef

!    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

Here is the caller graph for this function:

Variable Documentation

ae_dens

real(rp), dimension(:), allocatable, public scale_atmos_phy_ae_dummy::ae_dens

Definition at line 40 of file scale_atmos_phy_ae_dummy.F90.

Referenced by atmos_phy_ae_dummy_setup().

  real(RP), public, allocatable :: ae_dens(:) ! aerosol density [kg/m3]=[g/L]