SCALE-RM
Functions/Subroutines | Variables
scale_atmos_phy_mp_sdm Module Reference

module ATMOSPHERE / Physics Cloud Microphysics More...

Functions/Subroutines

subroutine, public atmos_phy_mp_sdm_setup (MP_TYPE)
 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

real(rp), dimension(mp_qa), target, public atmos_phy_mp_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_setup()

subroutine, public scale_atmos_phy_mp_sdm::atmos_phy_mp_sdm_setup ( character(len=h_short), intent(in)  MP_TYPE)

Setup Cloud Microphysics.

Definition at line 60 of file scale_atmos_phy_mp_sdm.F90.

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

Referenced by scale_atmos_phy_mp::atmos_phy_mp_setup().

60  use scale_process, only: &
62  implicit none
63  character(len=H_SHORT), intent(in) :: mp_type
64  !---------------------------------------------------------------------------
65 
66  if( io_l ) write(io_fid_log,*)
67  if( io_l ) write(io_fid_log,*) '*** SDM not supported.'
68  if( io_l ) write(io_fid_log,*) '*** Please contact SCALE developers'
69  call prc_mpistop
70 
71  return
subroutine, public prc_mpistop
Abort MPI.
module PROCESS
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,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 88 of file scale_atmos_phy_mp_sdm.F90.

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

Referenced by scale_atmos_phy_mp::atmos_phy_mp_setup().

89  use scale_tracer, only: &
90  qad => qa
91  use scale_process, only: &
93  implicit none
94 
95  real(RP), intent(inout) :: dens(ka,ia,ja)
96  real(RP), intent(inout) :: momz(ka,ia,ja)
97  real(RP), intent(inout) :: momx(ka,ia,ja)
98  real(RP), intent(inout) :: momy(ka,ia,ja)
99  real(RP), intent(inout) :: rhot(ka,ia,ja)
100  real(RP), intent(inout) :: qtrc(ka,ia,ja,qad)
101  real(RP), intent(in) :: ccn (ka,ia,ja)
102  real(RP), intent(out) :: evaporate(ka,ia,ja) !---- evaporated cloud number concentration [/m3]
103  real(RP), intent(out) :: sflx_rain(ia,ja)
104  real(RP), intent(out) :: sflx_snow(ia,ja)
105  !---------------------------------------------------------------------------
106 
107  if( io_l ) write(io_fid_log,*)
108  if( io_l ) write(io_fid_log,*) '*** SDM not supported.'
109  if( io_l ) write(io_fid_log,*) '*** Please contact SCALE developers'
110  call prc_mpistop
111 
112  return
subroutine, public prc_mpistop
Abort MPI.
integer, public qa
module grid index
module TRACER
integer, public ia
of x whole cells (local, with HALO)
integer, public ka
of z whole cells (local, with HALO)
module PROCESS
integer, public ja
of y whole cells (local, with HALO)
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,qad), intent(in)  QTRC,
real(rp), intent(in)  mask_criterion 
)

Calculate Cloud Fraction.

Definition at line 121 of file scale_atmos_phy_mp_sdm.F90.

References scale_tracer::qa.

Referenced by scale_atmos_phy_mp::atmos_phy_mp_setup().

121  use scale_grid_index
122  use scale_tracer, only: &
123  qad => qa
124  implicit none
125 
126  real(RP), intent(out) :: cldfrac(ka,ia,ja)
127  real(RP), intent(in) :: qtrc (ka,ia,ja,qad)
128  real(RP), intent(in) :: mask_criterion ! not used
129  !---------------------------------------------------------------------------
130 
131  cldfrac(:,:,:) = 0.0_rp ! dummy
132 
133  return
integer, public qa
module grid index
module TRACER
integer, public ia
of x whole cells (local, with HALO)
integer, public ka
of z whole cells (local, with HALO)
integer, public ja
of y whole cells (local, with HALO)
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,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 143 of file scale_atmos_phy_mp_sdm.F90.

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

Referenced by scale_atmos_phy_mp::atmos_phy_mp_setup().

143  use scale_grid_index
144  use scale_tracer, only: &
145  qad => qa, &
146  mp_qad => mp_qa
147  implicit none
148 
149  real(RP), intent(out) :: re (ka,ia,ja,mp_qad) ! effective radius
150  real(RP), intent(in) :: qtrc0(ka,ia,ja,qad) ! tracer mass concentration [kg/kg]
151  real(RP), intent(in) :: dens0(ka,ia,ja) ! Density [kg/m3]
152  real(RP), intent(in) :: temp0(ka,ia,ja) ! Temperatuer [K]
153  !---------------------------------------------------------------------------
154 
155  re(:,:,:,:) = 8.e-6_rp ! dummy
156 
157  return
integer, public qa
module grid index
module TRACER
integer, public ia
of x whole cells (local, with HALO)
integer, public mp_qa
integer, public ka
of z whole cells (local, with HALO)
integer, public ja
of y whole cells (local, with HALO)
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,mp_qad), intent(out)  Qe,
real(rp), dimension(ka,ia,ja,qad), intent(in)  QTRC0 
)

Calculate mixing ratio of each category.

Definition at line 164 of file scale_atmos_phy_mp_sdm.F90.

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

Referenced by scale_atmos_phy_mp::atmos_phy_mp_setup().

164  use scale_const, only: &
165  eps => const_eps
166  use scale_grid_index
167  use scale_tracer, only: &
168  qad => qa, &
169  mp_qad => mp_qa
170  implicit none
171 
172  real(RP), intent(out) :: qe (ka,ia,ja,mp_qad) ! mixing ratio of each cateory [kg/kg]
173  real(RP), intent(in) :: qtrc0(ka,ia,ja,qad) ! tracer mass concentration [kg/kg]
174 
175  integer :: ihydro
176  !---------------------------------------------------------------------------
177 
178  do ihydro = 1, mp_qa
179  qe(:,:,:,ihydro) = 8.e-6_rp ! dummy
180  enddo
181 
182  return
183 
integer, public qa
module grid index
module TRACER
integer, public ia
of x whole cells (local, with HALO)
integer, public mp_qa
integer, public ka
of z whole cells (local, with HALO)
module CONSTANT
Definition: scale_const.F90:14
real(rp), public const_eps
small number
Definition: scale_const.F90:36
integer, public ja
of y whole cells (local, with HALO)
Here is the caller graph for this function:

Variable Documentation

◆ atmos_phy_mp_dens

real(rp), dimension(mp_qa), target, public scale_atmos_phy_mp_sdm::atmos_phy_mp_dens

Definition at line 44 of file scale_atmos_phy_mp_sdm.F90.

44  real(RP), public, target :: atmos_phy_mp_dens(mp_qa) ! hydrometeor density [kg/m3]=[g/L]
integer, public mp_qa
real(rp), dimension(mp_qa), target, public atmos_phy_mp_dens