mod_atmos_phy_sfc_vars Module Reference

module ATMOSPHERE physics / surface process More...

Data Types
type	atmosphysfcvars

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)

Variables
integer, parameter, public	atmos_phy_sf_svar_temp_id = 1
integer, parameter, public	atmos_phy_sf_svar_num = 1
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

• PARAM_ATMOS_PHY_SFC_VARS

  name	type	default value	comment
  ATMOS_PHY_SFC_DEFAULT_SFC_TEMP	real(RP)	300.0_RP

  
  

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

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 )

Definition at line 223 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 65 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SVAR_TEMP_ID  = 1

Referenced by atmosphysfcvars_getlocalmeshfields().

atmos_phy_sf_svar_num

integer, parameter, public mod_atmos_phy_sfc_vars::atmos_phy_sf_svar_num = 1

Definition at line 66 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SVAR_NUM      = 1

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 67 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 72 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SFLX_MU_ID  = 1

Referenced by 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 73 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SFLX_MV_ID  = 2

Referenced by 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 74 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SFLX_MW_ID  = 3

Referenced by 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 75 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SFLX_SH_ID  = 4

Referenced by 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 76 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SFLX_LH_ID  = 5

Referenced by 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 77 of file mod_atmos_phy_sfc_vars.F90.

  integer, public, parameter :: ATMOS_PHY_SF_SFLX_QV_ID  = 6

Referenced by atmosphysfcvars_getlocalmeshfields().

atmos_phy_sf_sflx_num1

integer, parameter, public mod_atmos_phy_sfc_vars::atmos_phy_sf_sflx_num1 = 6

Definition at line 78 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 80 of file mod_atmos_phy_sfc_vars.F90.

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