mod_atmos_phy_cp_vars Module Reference

module Atmosphere / Physics / Cumulus Parameterization More...

Data Types
type	atmosphycpvars
	Derived type to manage variables with cumulus parameterization component in atmospheric model. More...

Functions/Subroutines
subroutine, public	atmosphycpvars_getlocalmeshfields_tend (domid, mesh, bl_tends_list, cp_dens_t, cp_rhot_t, cp_rhoqv_t, lcmesh3d)
subroutine, public	atmosphycpvars_getlocalmeshfields_sfcflx (domid, mesh, sfcflx_list, sflx_rain, sflx_snow, sflx_engi)

Variables
integer, parameter, public	atmos_phy_cp_dens_t_id = 1
integer, parameter, public	atmos_phy_cp_rhow_t_id = 2
integer, parameter, public	atmos_phy_cp_rhot_t_id = 3
integer, parameter, public	atmos_phy_cp_rhoqv_t_id = 4
integer, parameter, public	atmos_phy_cp_tends_num1 = 4
type(variableinfo), dimension(atmos_phy_cp_tends_num1), public	atmos_phy_cp_tend_vinfo
integer, parameter, public	atmos_phy_cp_aux2d_sflx_rain_id = 1
integer, parameter, public	atmos_phy_cp_aux2d_sflx_snow_id = 2
integer, parameter, public	atmos_phy_cp_aux2d_sflx_engi_id = 3
integer, parameter, public	atmos_phy_cp_aux2d_num = 3
type(variableinfo), dimension(atmos_phy_cp_aux2d_num), public	atmos_phy_cp_aux2d_vinfo

Detailed Description

module Atmosphere / Physics / Cumulus Parameterization

Description

Container for variables with cumulus parameterization component in atmospheric model

Author

Yuta Kawai, Team SCALE

NAMELIST

• No namelist group

History Output

name	description	unit	variable
CP_SFLX_RAIN	precipitation flux (liquid) in CP process	kg/m2/s	CP_SFLX_RAIN
CP_SFLX_SNOW	precipitation flux (solid) in CP process	kg/m2/s	CP_SFLX_SNOW
CP_SFLX_ENGI	internal energy flux flux in CP process	J/m2/s	CP_SFLX_ENGI
CP_DENS_t	tendency of density in CP process	kg/m3/s	CP_DENS_t
CP_RHOW_t	tendency of water vapor in CP process	kg/m3/s	CP_RHOW_t
CP_RHOT_t	tendency of rho*PT in CP process	kg/m3.K/s	CP_RHOT_t
CP_RHOQV_t	tendency of rho*QV in CP process	kg/m3/s	CP_RHOQV_t
CP_{HYD_NAME}_t	tendency of rho*{HYD_NAME} in CP process; {HYD_NAME} is QC, QR, QI, QS, QG, QH.	TRACER_UNIT	TRACER_NAME

Function/Subroutine Documentation

atmosphycpvars_getlocalmeshfields_tend()

subroutine, public mod_atmos_phy_cp_vars::atmosphycpvars_getlocalmeshfields_tend	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	bl_tends_list,
		class(localmeshfieldbase), intent(out), pointer	cp_dens_t,
		class(localmeshfieldbase), intent(out), pointer	cp_rhot_t,
		class(localmeshfieldbase), intent(out), pointer	cp_rhoqv_t,
		class(localmesh3d), intent(out), optional, pointer	lcmesh3d )

Definition at line 240 of file mod_atmos_phy_cp_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) :: bl_tends_list
    class(LocalMeshFieldBase), pointer, intent(out) :: cp_DENS_t
    class(LocalMeshFieldBase), pointer, intent(out) :: cp_RHOT_t
    class(LocalMeshFieldBase), pointer, intent(out) :: cp_RHOQv_t
    class(LocalMesh3D), pointer, intent(out), optional :: lcmesh3D
 
    class(MeshFieldBase), pointer :: field   
    class(LocalMeshBase), pointer :: lcmesh
 
    integer :: iq
    !-------------------------------------------------------
 
    !--
    call bl_tends_list%Get(atmos_phy_cp_dens_t_id, field)
    call field%GetLocalMeshField(domid, cp_dens_t)
 
    call bl_tends_list%Get(atmos_phy_cp_rhot_t_id, field)
    call field%GetLocalMeshField(domid, cp_rhot_t)
 
    call bl_tends_list%Get(atmos_phy_cp_rhoqv_t_id, field)
    call field%GetLocalMeshField(domid, cp_rhoqv_t)
 
    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_cp_dens_t_id, atmos_phy_cp_rhoqv_t_id, and atmos_phy_cp_rhot_t_id.

Referenced by mod_atmos_phy_cp_vars::atmosphycpvars::history().

atmosphycpvars_getlocalmeshfields_sfcflx()

subroutine, public mod_atmos_phy_cp_vars::atmosphycpvars_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 287 of file mod_atmos_phy_cp_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_cp_aux2d_sflx_rain_id, field)
    call field%GetLocalMeshField(domid, sflx_rain)
 
    call sfcflx_list%Get(atmos_phy_cp_aux2d_sflx_snow_id, field)
    call field%GetLocalMeshField(domid, sflx_snow)
 
    call sfcflx_list%Get(atmos_phy_cp_aux2d_sflx_engi_id, field)
    call field%GetLocalMeshField(domid, sflx_engi)
    
    return

References atmos_phy_cp_aux2d_num, atmos_phy_cp_aux2d_sflx_engi_id, atmos_phy_cp_aux2d_sflx_rain_id, and atmos_phy_cp_aux2d_sflx_snow_id.

Referenced by mod_atmos_component::atmos_setup(), and mod_atmos_phy_cp_vars::atmosphycpvars::history().

Variable Documentation

atmos_phy_cp_dens_t_id

integer, parameter, public mod_atmos_phy_cp_vars::atmos_phy_cp_dens_t_id = 1

Definition at line 77 of file mod_atmos_phy_cp_vars.F90.

  integer, public, parameter :: ATMOS_PHY_CP_DENS_t_ID    = 1

Referenced by atmosphycpvars_getlocalmeshfields_tend().

atmos_phy_cp_rhow_t_id

integer, parameter, public mod_atmos_phy_cp_vars::atmos_phy_cp_rhow_t_id = 2

Definition at line 78 of file mod_atmos_phy_cp_vars.F90.

  integer, public, parameter :: ATMOS_PHY_CP_RHOW_t_ID    = 2

atmos_phy_cp_rhot_t_id

integer, parameter, public mod_atmos_phy_cp_vars::atmos_phy_cp_rhot_t_id = 3

Definition at line 79 of file mod_atmos_phy_cp_vars.F90.

  integer, public, parameter :: ATMOS_PHY_CP_RHOT_t_ID    = 3

Referenced by atmosphycpvars_getlocalmeshfields_tend().

atmos_phy_cp_rhoqv_t_id

integer, parameter, public mod_atmos_phy_cp_vars::atmos_phy_cp_rhoqv_t_id = 4

Definition at line 80 of file mod_atmos_phy_cp_vars.F90.

  integer, public, parameter :: ATMOS_PHY_CP_RHOQV_t_ID   = 4

Referenced by atmosphycpvars_getlocalmeshfields_tend().

atmos_phy_cp_tends_num1

integer, parameter, public mod_atmos_phy_cp_vars::atmos_phy_cp_tends_num1 = 4

Definition at line 81 of file mod_atmos_phy_cp_vars.F90.

  integer, public, parameter :: ATMOS_PHY_CP_TENDS_NUM1   = 4 

atmos_phy_cp_tend_vinfo

type(variableinfo), dimension(atmos_phy_cp_tends_num1), public mod_atmos_phy_cp_vars::atmos_phy_cp_tend_vinfo

Definition at line 83 of file mod_atmos_phy_cp_vars.F90.

  type(VariableInfo), public :: ATMOS_PHY_CP_TEND_VINFO(ATMOS_PHY_CP_TENDS_NUM1)

atmos_phy_cp_aux2d_sflx_rain_id

integer, parameter, public mod_atmos_phy_cp_vars::atmos_phy_cp_aux2d_sflx_rain_id = 1

Definition at line 94 of file mod_atmos_phy_cp_vars.F90.

  integer, public, parameter :: ATMOS_PHY_CP_AUX2D_SFLX_RAIN_ID   = 1

Referenced by atmosphycpvars_getlocalmeshfields_sfcflx().

atmos_phy_cp_aux2d_sflx_snow_id

integer, parameter, public mod_atmos_phy_cp_vars::atmos_phy_cp_aux2d_sflx_snow_id = 2

Definition at line 95 of file mod_atmos_phy_cp_vars.F90.

  integer, public, parameter :: ATMOS_PHY_CP_AUX2D_SFLX_SNOW_ID   = 2

Referenced by atmosphycpvars_getlocalmeshfields_sfcflx().

atmos_phy_cp_aux2d_sflx_engi_id

integer, parameter, public mod_atmos_phy_cp_vars::atmos_phy_cp_aux2d_sflx_engi_id = 3

Definition at line 96 of file mod_atmos_phy_cp_vars.F90.

  integer, public, parameter :: ATMOS_PHY_CP_AUX2D_SFLX_ENGI_ID   = 3

Referenced by atmosphycpvars_getlocalmeshfields_sfcflx().

atmos_phy_cp_aux2d_num

integer, parameter, public mod_atmos_phy_cp_vars::atmos_phy_cp_aux2d_num = 3

Definition at line 97 of file mod_atmos_phy_cp_vars.F90.

  integer, public, parameter :: ATMOS_PHY_CP_AUX2D_NUM            = 3

Referenced by atmosphycpvars_getlocalmeshfields_sfcflx().

atmos_phy_cp_aux2d_vinfo

type(variableinfo), dimension(atmos_phy_cp_aux2d_num), public mod_atmos_phy_cp_vars::atmos_phy_cp_aux2d_vinfo

Definition at line 99 of file mod_atmos_phy_cp_vars.F90.

  type(VariableInfo), public :: ATMOS_PHY_CP_AUX2D_VINFO(ATMOS_PHY_CP_AUX2D_NUM)