mod_atmos_phy_sfc_vars Module Reference

module Atmosphere / Physics / surface process More...

Data Types
type	atmosphysfcvars
	Derived type to manage variables with a surface component. More...

Functions/Subroutines
subroutine, public	atmosphysfcvars_getlocalmeshfields (domid, mesh, svars_list, sflx_list, sfc_temp, sflx_mu, sflx_mv, sflx_mw, sflx_sh, sflx_lh, sflx_qv, lcmesh3d)
	Get local mesh fields for surface variables.

Variables
integer, parameter, public	atmos_phy_sf_svar_temp_id = 1
integer, parameter, public	atmos_phy_sf_svar_alb_id = 2
integer, parameter, public	atmos_phy_sf_svar_num = 2
type(variableinfo), dimension(atmos_phy_sf_svar_num), public	atmos_phy_sf_svar_vinfo
integer, parameter, public	atmos_phy_sf_sflx_mu_id = 1
integer, parameter, public	atmos_phy_sf_sflx_mv_id = 2
integer, parameter, public	atmos_phy_sf_sflx_mw_id = 3
integer, parameter, public	atmos_phy_sf_sflx_sh_id = 4
integer, parameter, public	atmos_phy_sf_sflx_lh_id = 5
integer, parameter, public	atmos_phy_sf_sflx_qv_id = 6
integer, parameter, public	atmos_phy_sf_sflx_num1 = 6
type(variableinfo), dimension(atmos_phy_sf_sflx_num1), public	atmos_phy_sf_sflx_vinfo

Detailed Description

module Atmosphere / Physics / surface process

Description

Container for variables with surface model

Author

Yuta Kawai, Team SCALE

NAMELIST

• No namelist group

History Output

name	description	unit	variable
SFLX_MU	x-momentum flux	m/s*kg/m2/s	SFLX_MU
SFLX_MV	y-momentum flux	m/s*kg/m2/s	SFLX_MV
SFLX_MW	z-momentum flux	m/s*kg/m2/s	SFLX_MW
SFLX_SH	sensible heat flux	J/m2/s	SFLX_SH
SFLX_LH	latent heat flux	J/m2/s	SFLX_LH
SFLX_QV	water vapor flux	kg/m2/s	SFLX_QV
SFC_TEMP	surface skin temperature	K	SFC_TEMP
SFC_ALB	surface albedo	1	SFC_ALB

Function/Subroutine Documentation

atmosphysfcvars_getlocalmeshfields()

subroutine, public mod_atmos_phy_sfc_vars::atmosphysfcvars_getlocalmeshfields	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	svars_list,
		class(modelvarmanager), intent(inout)	sflx_list,
		class(localmeshfieldbase), intent(out), pointer	sfc_temp,
		class(localmeshfieldbase), intent(out), pointer	sflx_mu,
		class(localmeshfieldbase), intent(out), pointer	sflx_mv,
		class(localmeshfieldbase), intent(out), pointer	sflx_mw,
		class(localmeshfieldbase), intent(out), pointer	sflx_sh,
		class(localmeshfieldbase), intent(out), pointer	sflx_lh,
		class(localmeshfieldbase), intent(out), pointer	sflx_qv,
		class(localmesh3d), intent(out), optional, pointer	lcmesh3d )

Get local mesh fields for surface variables.

Definition at line 248 of file mod_atmos_phy_sfc_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) :: svars_list
    class(ModelVarManager), intent(inout) :: sflx_list
    class(LocalMeshFieldBase), pointer, intent(out) :: SFC_TEMP
    class(LocalMeshFieldBase), pointer, intent(out) :: SFLX_MU
    class(LocalMeshFieldBase), pointer, intent(out) :: SFLX_MV
    class(LocalMeshFieldBase), pointer, intent(out) :: SFLX_MW
    class(LocalMeshFieldBase), pointer, intent(out) :: SFLX_SH
    class(LocalMeshFieldBase), pointer, intent(out) :: SFLX_LH
    class(LocalMeshFieldBase), pointer, intent(out) :: SFLX_QV
    class(LocalMesh3D), pointer, intent(out), optional :: lcmesh3D
 
    class(MeshFieldBase), pointer :: field   
    class(LocalMeshBase), pointer :: lcmesh
    !-------------------------------------------------------
 
    !--
    call svars_list%Get(atmos_phy_sf_svar_temp_id, field)
    call field%GetLocalMeshField(domid, sfc_temp)
 
    call sflx_list%Get(atmos_phy_sf_sflx_mu_id, field)
    call field%GetLocalMeshField(domid, sflx_mu)
 
    call sflx_list%Get(atmos_phy_sf_sflx_mv_id, field)
    call field%GetLocalMeshField(domid, sflx_mv)
 
    call sflx_list%Get(atmos_phy_sf_sflx_mw_id, field)
    call field%GetLocalMeshField(domid, sflx_mw)
 
    call sflx_list%Get(atmos_phy_sf_sflx_sh_id, field)
    call field%GetLocalMeshField(domid, sflx_sh)
 
    call sflx_list%Get(atmos_phy_sf_sflx_lh_id, field)
    call field%GetLocalMeshField(domid, sflx_lh)
 
    call sflx_list%Get(atmos_phy_sf_sflx_qv_id, field)
    call field%GetLocalMeshField(domid, sflx_qv)
    !---
    
    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_sf_sflx_lh_id, atmos_phy_sf_sflx_mu_id, atmos_phy_sf_sflx_mv_id, atmos_phy_sf_sflx_mw_id, atmos_phy_sf_sflx_qv_id, atmos_phy_sf_sflx_sh_id, and atmos_phy_sf_svar_temp_id.

Variable Documentation

atmos_phy_sf_svar_temp_id

integer, parameter, public mod_atmos_phy_sfc_vars::atmos_phy_sf_svar_temp_id = 1

Definition at line 71 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SVAR_TEMP_ID  = 1

Referenced by mod_atmos_component::atmos_setup(), and atmosphysfcvars_getlocalmeshfields().

atmos_phy_sf_svar_alb_id

integer, parameter, public mod_atmos_phy_sfc_vars::atmos_phy_sf_svar_alb_id = 2

Definition at line 72 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SVAR_ALB_ID   = 2

Referenced by mod_atmos_component::atmos_setup().

atmos_phy_sf_svar_num

integer, parameter, public mod_atmos_phy_sfc_vars::atmos_phy_sf_svar_num = 2

Definition at line 73 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SVAR_NUM      = 2

atmos_phy_sf_svar_vinfo

type(variableinfo), dimension(atmos_phy_sf_svar_num), public mod_atmos_phy_sfc_vars::atmos_phy_sf_svar_vinfo

Definition at line 74 of file mod_atmos_phy_sfc_vars.F90.

  type(VariableInfo), public :: ATMOS_PHY_SF_SVAR_VINFO(ATMOS_PHY_SF_SVAR_NUM)

atmos_phy_sf_sflx_mu_id

integer, parameter, public mod_atmos_phy_sfc_vars::atmos_phy_sf_sflx_mu_id = 1

Definition at line 83 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SFLX_MU_ID  = 1

Referenced by mod_atmos_component::atmos_setup(), and atmosphysfcvars_getlocalmeshfields().

atmos_phy_sf_sflx_mv_id

integer, parameter, public mod_atmos_phy_sfc_vars::atmos_phy_sf_sflx_mv_id = 2

Definition at line 84 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SFLX_MV_ID  = 2

Referenced by mod_atmos_component::atmos_setup(), and atmosphysfcvars_getlocalmeshfields().

atmos_phy_sf_sflx_mw_id

integer, parameter, public mod_atmos_phy_sfc_vars::atmos_phy_sf_sflx_mw_id = 3

Definition at line 85 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SFLX_MW_ID  = 3

Referenced by mod_atmos_component::atmos_setup(), and atmosphysfcvars_getlocalmeshfields().

atmos_phy_sf_sflx_sh_id

integer, parameter, public mod_atmos_phy_sfc_vars::atmos_phy_sf_sflx_sh_id = 4

Definition at line 86 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SFLX_SH_ID  = 4

Referenced by mod_atmos_component::atmos_setup(), and atmosphysfcvars_getlocalmeshfields().

atmos_phy_sf_sflx_lh_id

integer, parameter, public mod_atmos_phy_sfc_vars::atmos_phy_sf_sflx_lh_id = 5

Definition at line 87 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SFLX_LH_ID  = 5

Referenced by mod_atmos_component::atmos_setup(), and atmosphysfcvars_getlocalmeshfields().

atmos_phy_sf_sflx_qv_id

integer, parameter, public mod_atmos_phy_sfc_vars::atmos_phy_sf_sflx_qv_id = 6

Definition at line 88 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SFLX_QV_ID  = 6

Referenced by mod_atmos_component::atmos_setup(), and atmosphysfcvars_getlocalmeshfields().

atmos_phy_sf_sflx_num1

integer, parameter, public mod_atmos_phy_sfc_vars::atmos_phy_sf_sflx_num1 = 6

Definition at line 89 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SFLX_NUM1   = 6

atmos_phy_sf_sflx_vinfo

type(variableinfo), dimension(atmos_phy_sf_sflx_num1), public mod_atmos_phy_sfc_vars::atmos_phy_sf_sflx_vinfo

Definition at line 91 of file mod_atmos_phy_sfc_vars.F90.

  type(VariableInfo), public :: ATMOS_PHY_SF_SFLX_VINFO(ATMOS_PHY_SF_SFLX_NUM1)