module Atmosphere / Physics / Cloud Microphysics More...

Data Types
type	atmosphympvars
	Derived type to manage variables with cloud microphysics component. More...

Functions/Subroutines
subroutine, public	atmosphympvars_getlocalmeshfields_tend (domid, mesh, mp_tends_list, mp_dens_t, mp_momx_t, mp_momy_t, mp_momz_t, mp_rhot_t, mp_rhoh, mp_evap, mp_rhoq_t, lcmesh3d)
subroutine, public	atmosphympvars_getlocalmeshfields_sfcflx (domid, mesh, sfcflx_list, sflx_rain, sflx_snow, sflx_engi)

Variables
integer, parameter, public	atmos_phy_mp_dens_t_id = 1
integer, parameter, public	atmos_phy_mp_momx_t_id = 2
integer, parameter, public	atmos_phy_mp_momy_t_id = 3
integer, parameter, public	atmos_phy_mp_momz_t_id = 4
integer, parameter, public	atmos_phy_mp_rhot_t_id = 5
integer, parameter, public	atmos_phy_mp_rhoh_id = 6
integer, parameter, public	atmos_phy_mp_evaporate_id = 7
integer, parameter, public	atmos_phy_mp_tends_num1 = 7
type(variableinfo), dimension(atmos_phy_mp_tends_num1), public	atmos_phy_mp_tend_vinfo
integer, parameter, public	atmos_phy_mp_aux2d_sflx_rain_id = 1
integer, parameter, public	atmos_phy_mp_aux2d_sflx_snow_id = 2
integer, parameter, public	atmos_phy_mp_aux2d_sflx_engi_id = 3
integer, parameter, public	atmos_phy_mp_aux2d_num = 3
type(variableinfo), dimension(atmos_phy_mp_aux2d_num), public	atmos_phy_mp_aux2d_vinfo

Detailed Description

module Atmosphere / Physics / Cloud Microphysics

Description: Container for variables with cloud microphysics component

Author: Yuta Kawai, Team SCALE

NAMELIST

No namelist group

History Output

name	description	unit	variable
MP_SFLX_RAIN	precipitation flux (liquid) in MP process	kg/m2/s	MP_SFLX_RAIN
MP_SFLX_SNOW	precipitation flux (solid) in MP process	kg/m2/s	MP_SFLX_SNOW
MP_SFLX_ENGI	internal energy flux flux in MP process	J/m2/s	MP_SFLX_ENGI
MP_DENS_t	tendency of x-momentum in MP process	kg/m3/s	MP_DENS_t
MP_MOMX_t	tendency of x-momentum in MP process	kg/m2/s2	MP_MOMX_t
MP_MOMY_t	tendency of y-momentum in MP process	kg/m2/s2	MP_MOMY_t
MP_MOMZ_t	tendency of z-momentum in MP process	kg/m2/s2	MP_MOMZ_t
MP_RHOT_t	tendency of rho*PT in MP process	kg/m3.K/s	MP_RHOT_t
mp_RHOH	diabatic heating rate in MP process	J/kg/s	mp_RHOH
mp_EVAPORATE	number concentration of evaporated cloud	m-3	mp_EVAPORATE
MP_{TRACER_NAME}_t	tendency of rho*{TRACER_NAME} in MP process; {TRACER_NAME} depends on the physics schemes, e.g., QV, QC, QR.	TRACER_UNIT	TRACER_NAME
Vterm_{TRACER_NAME}	terminal velocity of {TRACER_NAME}; {TRACER_NAME} depends on the physics schemes, e.g., QV, QC, QR.	TRACER_UNIT	TRACER_NAME

Function/Subroutine Documentation

◆ atmosphympvars_getlocalmeshfields_tend()

subroutine, public mod_atmos_phy_mp_vars::atmosphympvars_getlocalmeshfields_tend	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	mp_tends_list,
		class(localmeshfieldbase), intent(out), pointer	mp_dens_t,
		class(localmeshfieldbase), intent(out), pointer	mp_momx_t,
		class(localmeshfieldbase), intent(out), pointer	mp_momy_t,
		class(localmeshfieldbase), intent(out), pointer	mp_momz_t,
		class(localmeshfieldbase), intent(out), pointer	mp_rhot_t,
		class(localmeshfieldbase), intent(out), pointer	mp_rhoh,
		class(localmeshfieldbase), intent(out), pointer	mp_evap,
		type(localmeshfieldbaselist), dimension(:), intent(out)	mp_rhoq_t,
		class(localmesh3d), intent(out), optional, pointer	lcmesh3d )

Definition at line 281 of file mod_atmos_phy_mp_vars.F90.

 
    use scale_mesh_base, only: meshbase
    use scale_meshfield_base, only: meshfieldbase
    implicit none
 
    integer, intent(in) :: domID
    class(MeshBase), intent(in) :: mesh
    class(ModelVarManager), intent(inout) :: mp_tends_list
    class(LocalMeshFieldBase), pointer, intent(out) :: mp_DENS_t    
    class(LocalMeshFieldBase), pointer, intent(out) :: mp_MOMX_t
    class(LocalMeshFieldBase), pointer, intent(out) :: mp_MOMY_t
    class(LocalMeshFieldBase), pointer, intent(out) :: mp_MOMZ_t
    class(LocalMeshFieldBase), pointer, intent(out) :: mp_RHOT_t
    class(LocalMeshFieldBase), pointer, intent(out) :: mp_RHOH
    class(LocalMeshFieldBase), pointer, intent(out) :: mp_EVAP
    type(LocalMeshFieldBaseList), intent(out) :: mp_RHOQ_t(:)
    class(LocalMesh3D), pointer, intent(out), optional :: lcmesh3D
 
    class(MeshFieldBase), pointer :: field   
    class(LocalMeshBase), pointer :: lcmesh
 
    integer :: iq
    !-------------------------------------------------------
 
    !--
    call mp_tends_list%Get(atmos_phy_mp_dens_t_id, field)
    call field%GetLocalMeshField(domid, mp_dens_t)
 
    call mp_tends_list%Get(atmos_phy_mp_momx_t_id, field)
    call field%GetLocalMeshField(domid, mp_momx_t)
 
    call mp_tends_list%Get(atmos_phy_mp_momy_t_id, field)
    call field%GetLocalMeshField(domid, mp_momy_t)
 
    call mp_tends_list%Get(atmos_phy_mp_momz_t_id, field)
    call field%GetLocalMeshField(domid, mp_momz_t)
 
    call mp_tends_list%Get(atmos_phy_mp_rhot_t_id, field)
    call field%GetLocalMeshField(domid, mp_rhot_t)
 
    call mp_tends_list%Get(atmos_phy_mp_rhoh_id, field)
    call field%GetLocalMeshField(domid, mp_rhoh)
 
    call mp_tends_list%Get(atmos_phy_mp_evaporate_id, field)
    call field%GetLocalMeshField(domid, mp_evap)
 
    !---
    do iq = 1, size(mp_rhoq_t)
      call mp_tends_list%Get(atmos_phy_mp_tends_num1 + iq, field)
      call field%GetLocalMeshField(domid, mp_rhoq_t(iq)%ptr)
    end do
 
    
    if (present(lcmesh3d)) then
      call mesh%GetLocalMesh( domid, lcmesh )
      nullify( lcmesh3d )
 
      select type(lcmesh)
      type is (localmesh3d)
        if (present(lcmesh3d)) lcmesh3d => lcmesh
      end select
    end if
 
    return

References atmos_phy_mp_dens_t_id, atmos_phy_mp_evaporate_id, atmos_phy_mp_momx_t_id, atmos_phy_mp_momy_t_id, atmos_phy_mp_momz_t_id, atmos_phy_mp_rhoh_id, atmos_phy_mp_rhot_t_id, and atmos_phy_mp_tends_num1.

Referenced by mod_atmos_phy_mp_vars::atmosphympvars::history().

◆ atmosphympvars_getlocalmeshfields_sfcflx()

subroutine, public mod_atmos_phy_mp_vars::atmosphympvars_getlocalmeshfields_sfcflx	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	sfcflx_list,
		class(localmeshfieldbase), intent(out), pointer	sflx_rain,
		class(localmeshfieldbase), intent(out), pointer	sflx_snow,
		class(localmeshfieldbase), intent(out), pointer	sflx_engi )

Definition at line 353 of file mod_atmos_phy_mp_vars.F90.

    
    use scale_mesh_base, only: meshbase
    use scale_meshfield_base, only: meshfieldbase
    implicit none
 
    integer, intent(in) :: domID
    class(MeshBase), intent(in) :: mesh
    class(ModelVarManager), intent(inout) :: sfcflx_list
    class(LocalMeshFieldBase), pointer, intent(out) :: SFLX_rain
    class(LocalMeshFieldBase), pointer, intent(out) :: SFLX_snow
    class(LocalMeshFieldBase), pointer, intent(out) :: SFLX_engi
 
    class(MeshFieldBase), pointer :: field
    !-------------------------------------------------------
 
    call sfcflx_list%Get(atmos_phy_mp_aux2d_sflx_rain_id, field)
    call field%GetLocalMeshField(domid, sflx_rain)
 
    call sfcflx_list%Get(atmos_phy_mp_aux2d_sflx_snow_id, field)
    call field%GetLocalMeshField(domid, sflx_snow)
 
    call sfcflx_list%Get(atmos_phy_mp_aux2d_sflx_engi_id, field)
    call field%GetLocalMeshField(domid, sflx_engi)
    
    return