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)
 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: &
61  prc_mpistop
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
scale_process::prc_mpistop
subroutine, public prc_mpistop
Abort MPI.
Definition: scale_process.F90:234
scale_stdio::io_l
logical, public io_l
output log or not? (this process)
Definition: scale_stdio.F90:59
scale_process
module PROCESS
Definition: scale_process.F90:14
scale_stdio::io_fid_log
integer, public io_fid_log
Log file ID.
Definition: scale_stdio.F90:56
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().

88  use scale_grid_index
89  use scale_tracer, only: &
90  qad => qa
91  use scale_process, only: &
92  prc_mpistop
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
scale_process::prc_mpistop
subroutine, public prc_mpistop
Abort MPI.
Definition: scale_process.F90:234
scale_stdio::io_l
logical, public io_l
output log or not? (this process)
Definition: scale_stdio.F90:59
scale_tracer::qa
integer, public qa
Definition: scale_tracer.F90:44
scale_grid_index
module grid index
Definition: scale_grid_index.F90:14
scale_tracer
module TRACER
Definition: scale_tracer.F90:18
scale_grid_index::ia
integer, public ia
of x whole cells (local, with HALO)
Definition: scale_grid_index.F90:55
scale_grid_index::ka
integer, public ka
of z whole cells (local, with HALO)
Definition: scale_grid_index.F90:54
scale_process
module PROCESS
Definition: scale_process.F90:14
scale_stdio::io_fid_log
integer, public io_fid_log
Log file ID.
Definition: scale_stdio.F90:56
scale_grid_index::ja
integer, public ja
of y whole cells (local, with HALO)
Definition: scale_grid_index.F90:56
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 
)

Calculate Cloud Fraction.

Definition at line 120 of file scale_atmos_phy_mp_sdm.F90.

References scale_tracer::qa.

Referenced by scale_atmos_phy_mp::atmos_phy_mp_setup().

120  use scale_grid_index
121  use scale_tracer, only: &
122  qad => qa
123  implicit none
124 
125  real(RP), intent(out) :: cldfrac(ka,ia,ja)
126  real(RP), intent(in) :: qtrc (ka,ia,ja,qad)
127  !---------------------------------------------------------------------------
128 
129  cldfrac(:,:,:) = 0.0_rp ! dummy
130 
131  return
scale_tracer::qa
integer, public qa
Definition: scale_tracer.F90:44
scale_grid_index
module grid index
Definition: scale_grid_index.F90:14
scale_tracer
module TRACER
Definition: scale_tracer.F90:18
scale_grid_index::ia
integer, public ia
of x whole cells (local, with HALO)
Definition: scale_grid_index.F90:55
scale_grid_index::ka
integer, public ka
of z whole cells (local, with HALO)
Definition: scale_grid_index.F90:54
scale_grid_index::ja
integer, public ja
of y whole cells (local, with HALO)
Definition: scale_grid_index.F90:56
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 141 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().

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

162  use scale_const, only: &
163  eps => const_eps
164  use scale_grid_index
165  use scale_tracer, only: &
166  qad => qa, &
167  mp_qad => mp_qa
168  implicit none
169 
170  real(RP), intent(out) :: qe (ka,ia,ja,mp_qad) ! mixing ratio of each cateory [kg/kg]
171  real(RP), intent(in) :: qtrc0(ka,ia,ja,qad) ! tracer mass concentration [kg/kg]
172 
173  integer :: ihydro
174  !---------------------------------------------------------------------------
175 
176  do ihydro = 1, mp_qa
177  qe(:,:,:,ihydro) = 8.e-6_rp ! dummy
178  enddo
179 
180  return
181 
scale_tracer::qa
integer, public qa
Definition: scale_tracer.F90:44
scale_grid_index
module grid index
Definition: scale_grid_index.F90:14
scale_tracer
module TRACER
Definition: scale_tracer.F90:18
scale_grid_index::ia
integer, public ia
of x whole cells (local, with HALO)
Definition: scale_grid_index.F90:55
scale_tracer::mp_qa
integer, public mp_qa
Definition: scale_tracer.F90:98
scale_grid_index::ka
integer, public ka
of z whole cells (local, with HALO)
Definition: scale_grid_index.F90:54
scale_const
module CONSTANT
Definition: scale_const.F90:14
scale_const::const_eps
real(rp), public const_eps
small number
Definition: scale_const.F90:36
scale_grid_index::ja
integer, public ja
of y whole cells (local, with HALO)
Definition: scale_grid_index.F90:56
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]
scale_tracer::mp_qa
integer, public mp_qa
Definition: scale_tracer.F90:98
scale_atmos_phy_mp_dry::atmos_phy_mp_dens
real(rp), dimension(mp_qa), target, public atmos_phy_mp_dens
Definition: scale_atmos_phy_mp_dry.F90:44
Generated by   doxygen 1.8.13