mod_atmos_phy_bl_vars Module Reference

module Atmosphere / Physics / Planetary Boundary Layer Turbulence More...

Data Types
type	atmosphyblvars
	Derived type to manage variables with planetary boundary layer (PBL) turbulence parameterization component in atmospheric model. More...

Functions/Subroutines
subroutine, public	atmosphyblvars_getlocalmeshfields_tend (domid, mesh, bl_tends_list, bl_rhou_t, bl_rhov_t, bl_rhot_t, bl_rhoq_t, lcmesh3d)

Variables
integer, parameter, public	atmos_phy_bl_rhou_t_id = 1
integer, parameter, public	atmos_phy_bl_rhov_t_id = 2
integer, parameter, public	atmos_phy_bl_rhot_t_id = 3
integer, parameter, public	atmos_phy_bl_tends_num1 = 3
type(variableinfo), dimension(atmos_phy_bl_tends_num1), public	atmos_phy_bl_tend_vinfo
integer, parameter, public	atmos_phy_bl_diag_tke_id = 1
integer, parameter, public	atmos_phy_bl_diag_nu_id = 2
integer, parameter, public	atmos_phy_bl_diag_kh_id = 3
integer, parameter, public	atmos_phy_bl_diag_num = 3

Detailed Description

module Atmosphere / Physics / Planetary Boundary Layer Turbulence

Description

Container for variables with planetary boundary layer (PBL) turbulence parameterization in atmospheric model

Author

Yuta Kawai, Team SCALE

NAMELIST

• No namelist group

History Output

name	description	unit	variable
TKE	SGS turbulence kinetic energy	m2/s2	TKE
NU	eddy viscosity	m2/s	NU
KH	eddy diffusion	m2/s	KH
BL_RHOU_t	tendency of x-momentum in BL process	kg/m2/s2	BL_RHOU_t
BL_RHOV_t	tendency of y-momentum in BL process	kg/m2/s2	BL_RHOV_t
BL_RHOT_t	tendency of rho*PT in BL process	kg/m3.K/s	BL_RHOT_t
BL_{TRACER_NAME}_t	tendency of rho*{TRACER_NAME} in BL process; {TRACER_NAME} depends on the physics schemes, e.g., QV, QC, QR.	TRACER_UNIT	TRACER_NAME

Function/Subroutine Documentation

atmosphyblvars_getlocalmeshfields_tend()

subroutine, public mod_atmos_phy_bl_vars::atmosphyblvars_getlocalmeshfields_tend	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	bl_tends_list,
		class(localmeshfieldbase), intent(out), pointer	bl_rhou_t,
		class(localmeshfieldbase), intent(out), pointer	bl_rhov_t,
		class(localmeshfieldbase), intent(out), pointer	bl_rhot_t,
		type(localmeshfieldbaselist), dimension(:), intent(out), optional	bl_rhoq_t,
		class(localmesh3d), intent(out), optional, pointer	lcmesh3d )

Definition at line 234 of file mod_atmos_phy_bl_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) :: bl_RHOU_t
    class(LocalMeshFieldBase), pointer, intent(out) :: bl_RHOV_t
    class(LocalMeshFieldBase), pointer, intent(out) :: bl_RHOT_t
    type(LocalMeshFieldBaseList), intent(out), optional :: bl_RHOQ_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_bl_rhou_t_id, field)
    call field%GetLocalMeshField(domid, bl_rhou_t)
 
    call bl_tends_list%Get(atmos_phy_bl_rhov_t_id, field)
    call field%GetLocalMeshField(domid, bl_rhov_t)
 
    call bl_tends_list%Get(atmos_phy_bl_rhot_t_id, field)
    call field%GetLocalMeshField(domid, bl_rhot_t)
 
    !---
    if ( present(bl_rhoq_t) ) then
      do iq = 1, size(bl_rhoq_t)
        call bl_tends_list%Get(atmos_phy_bl_tends_num1 + iq, field)
        call field%GetLocalMeshField(domid, bl_rhoq_t(iq)%ptr)
      end do    
    end if
 
    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_bl_diag_num, atmos_phy_bl_rhot_t_id, atmos_phy_bl_rhou_t_id, atmos_phy_bl_rhov_t_id, and atmos_phy_bl_tends_num1.

Referenced by mod_atmos_phy_bl_vars::atmosphyblvars::history().

Variable Documentation

atmos_phy_bl_rhou_t_id

integer, parameter, public mod_atmos_phy_bl_vars::atmos_phy_bl_rhou_t_id = 1

Definition at line 81 of file mod_atmos_phy_bl_vars.F90.

  integer, public, parameter :: ATMOS_PHY_BL_RHOU_t_ID    = 1

Referenced by atmosphyblvars_getlocalmeshfields_tend().

atmos_phy_bl_rhov_t_id

integer, parameter, public mod_atmos_phy_bl_vars::atmos_phy_bl_rhov_t_id = 2

Definition at line 82 of file mod_atmos_phy_bl_vars.F90.

  integer, public, parameter :: ATMOS_PHY_BL_RHOV_t_ID    = 2

Referenced by atmosphyblvars_getlocalmeshfields_tend().

atmos_phy_bl_rhot_t_id

integer, parameter, public mod_atmos_phy_bl_vars::atmos_phy_bl_rhot_t_id = 3

Definition at line 83 of file mod_atmos_phy_bl_vars.F90.

  integer, public, parameter :: ATMOS_PHY_BL_RHOT_t_ID    = 3

Referenced by atmosphyblvars_getlocalmeshfields_tend().

atmos_phy_bl_tends_num1

integer, parameter, public mod_atmos_phy_bl_vars::atmos_phy_bl_tends_num1 = 3

Definition at line 84 of file mod_atmos_phy_bl_vars.F90.

  integer, public, parameter :: ATMOS_PHY_BL_TENDS_NUM1   = 3 

Referenced by atmosphyblvars_getlocalmeshfields_tend().

atmos_phy_bl_tend_vinfo

type(variableinfo), dimension(atmos_phy_bl_tends_num1), public mod_atmos_phy_bl_vars::atmos_phy_bl_tend_vinfo

Definition at line 86 of file mod_atmos_phy_bl_vars.F90.

  type(VariableInfo), public :: ATMOS_PHY_BL_TEND_VINFO(ATMOS_PHY_BL_TENDS_NUM1)

atmos_phy_bl_diag_tke_id

integer, parameter, public mod_atmos_phy_bl_vars::atmos_phy_bl_diag_tke_id = 1

Definition at line 95 of file mod_atmos_phy_bl_vars.F90.

  integer, public, parameter :: ATMOS_PHY_BL_DIAG_TKE_ID     = 1

atmos_phy_bl_diag_nu_id

integer, parameter, public mod_atmos_phy_bl_vars::atmos_phy_bl_diag_nu_id = 2

Definition at line 96 of file mod_atmos_phy_bl_vars.F90.

  integer, public, parameter :: ATMOS_PHY_BL_DIAG_NU_ID      = 2

atmos_phy_bl_diag_kh_id

integer, parameter, public mod_atmos_phy_bl_vars::atmos_phy_bl_diag_kh_id = 3

Definition at line 97 of file mod_atmos_phy_bl_vars.F90.

  integer, public, parameter :: ATMOS_PHY_BL_DIAG_KH_ID      = 3

atmos_phy_bl_diag_num

integer, parameter, public mod_atmos_phy_bl_vars::atmos_phy_bl_diag_num = 3

Definition at line 98 of file mod_atmos_phy_bl_vars.F90.

  integer, public, parameter :: ATMOS_PHY_BL_DIAG_NUM        = 3

Referenced by atmosphyblvars_getlocalmeshfields_tend().