mod_atmos_phy_tb_vars Module Reference

module Atmosphere / Physics / sub-grid scale turbulence More...

Data Types
type	atmosphytbvars
	Derived type to manage variables with atmospheric SGS turbulent component. More...

Functions/Subroutines
subroutine	atmosphytbvars_init (this, model_mesh)
	Setup an object to manage variables with atmospheric SGS turbulent component.
subroutine, public	atmosphytbvars_getlocalmeshfields_tend (domid, mesh, tb_tends_list, tb_momx_t, tb_momy_t, tb_momz_t, tb_rhot_t, tb_rhoq_t, lcmesh3d)

Detailed Description

module Atmosphere / Physics / sub-grid scale turbulence

Description

Container for variables with sub-grid scale turbulence model

Author

Yuta Kawai, Team SCALE

Function/Subroutine Documentation

atmosphytbvars_init()

subroutine mod_atmos_phy_tb_vars::atmosphytbvars_init	(	class(atmosphytbvars), intent(inout), target	this,
		class(modelmeshbase), intent(in), target	model_mesh )

Setup an object to manage variables with atmospheric SGS turbulent component.

Parameters

model_mesh

Object to manage computational mesh of atmospheric model

Definition at line 97 of file mod_atmos_phy_tb_vars.F90.

    implicit none
    class(AtmosPhyTbVars), target, intent(inout) :: this
    class(ModelMeshBase), target, intent(in) :: model_mesh
    !--------------------------------------------------
 
    log_info('AtmosPhyTbVars_Init',*)
    return

References scale_atm_phy_tb_dgm_common::atm_phy_tb_dgm_common_setup_variables(), scale_atm_phy_tb_dgm_common::atmos_phy_tb_aux_htensor_num, scale_atm_phy_tb_dgm_common::atmos_phy_tb_aux_hvec_num, scale_atm_phy_tb_dgm_common::atmos_phy_tb_aux_num, scale_atm_phy_tb_dgm_common::atmos_phy_tb_aux_scalar_num, scale_atm_phy_tb_dgm_common::atmos_phy_tb_diag_num, and scale_atm_phy_tb_dgm_common::atmos_phy_tb_tends_num1.

atmosphytbvars_getlocalmeshfields_tend()

subroutine, public mod_atmos_phy_tb_vars::atmosphytbvars_getlocalmeshfields_tend	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	tb_tends_list,
		class(localmeshfieldbase), intent(out), pointer	tb_momx_t,
		class(localmeshfieldbase), intent(out), pointer	tb_momy_t,
		class(localmeshfieldbase), intent(out), pointer	tb_momz_t,
		class(localmeshfieldbase), intent(out), pointer	tb_rhot_t,
		type(localmeshfieldbaselist), dimension(:), intent(out), optional	tb_rhoq_t,
		class(localmesh3d), intent(out), optional, pointer	lcmesh3d )

Definition at line 190 of file mod_atmos_phy_tb_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) :: tb_tends_list
    class(LocalMeshFieldBase), pointer, intent(out) :: tb_MOMX_t
    class(LocalMeshFieldBase), pointer, intent(out) :: tb_MOMY_t
    class(LocalMeshFieldBase), pointer, intent(out) :: tb_MOMZ_t
    class(LocalMeshFieldBase), pointer, intent(out) :: tb_RHOT_t
    type(LocalMeshFieldBaseList), intent(out), optional :: tb_RHOQ_t(:)
    class(LocalMesh3D), pointer, intent(out), optional :: lcmesh3D
 
    class(MeshFieldBase), pointer :: field   
    class(LocalMeshBase), pointer :: lcmesh
 
    integer :: iq
    !-------------------------------------------------------
 
    !--
    call tb_tends_list%Get(tb_momx_t_vid, field)
    call field%GetLocalMeshField(domid, tb_momx_t)
 
    call tb_tends_list%Get(tb_momy_t_vid, field)
    call field%GetLocalMeshField(domid, tb_momy_t)
 
    call tb_tends_list%Get(tb_momz_t_vid, field)
    call field%GetLocalMeshField(domid, tb_momz_t)
 
    call tb_tends_list%Get(tb_rhot_t_vid, field)
    call field%GetLocalMeshField(domid, tb_rhot_t)
 
    !---
    if ( present(tb_rhoq_t) ) then
      do iq = 1, size(tb_rhoq_t)
        call tb_tends_list%Get(atmos_phy_tb_tends_num1 + iq, field)
        call field%GetLocalMeshField(domid, tb_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

Referenced by mod_atmos_phy_tb::atmosphytb_setup(), and mod_atmos_phy_tb_vars::atmosphytbvars::history().