mod_atmos_dyn_vars Module Reference

module Atmosphere / Dynamics More...

Data Types
type	atmosdynvars
	Derived type to manage variables with atmospheric dynamics component. More...

Functions/Subroutines
subroutine, public	atmosdynauxvars_getlocalmeshfields (domid, mesh, auxvars_list, coriolis, lcmesh3d)

Variables
integer, parameter, public	atmos_dyn_auxvars2d_num = 1
integer, parameter, public	atmos_dyn_auxvars2d_coriolis_id = 1
type(variableinfo), dimension(atmos_dyn_auxvars2d_num), public	atmos_dyn_auxvars2d_vinfo

Detailed Description

module Atmosphere / Dynamics

Description

Container for variables with dynamics component

Author

Yuta Kawai, Team SCALE

NAMELIST

• No namelist group

History Output

name	description	unit	variable
CORIOLIS	coriolis parameter	s-1	CORIOLIS

Function/Subroutine Documentation

atmosdynauxvars_getlocalmeshfields()

subroutine, public mod_atmos_dyn_vars::atmosdynauxvars_getlocalmeshfields	(	integer, intent(in)	domid,
		class(meshbase), intent(in)	mesh,
		class(modelvarmanager), intent(inout)	auxvars_list,
		class(localmeshfieldbase), intent(out), pointer	coriolis,
		class(localmesh3d), intent(out), optional, pointer	lcmesh3d )

Definition at line 206 of file mod_atmos_dyn_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) :: auxvars_list
    class(LocalMeshFieldBase), pointer, intent(out) :: Coriolis
    class(LocalMesh3D), pointer, intent(out), optional :: lcmesh3D
 
    class(MeshFieldBase), pointer :: field   
    class(LocalMeshBase), pointer :: lcmesh
    !-------------------------------------------------------
 
    !--
    call auxvars_list%Get(atmos_dyn_auxvars2d_coriolis_id, field)
    call field%GetLocalMeshField(domid, coriolis)
    !---
    
    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_dyn_auxvars2d_coriolis_id.

Referenced by mod_atmos_dyn_vars::atmosdynvars::history().

Variable Documentation

atmos_dyn_auxvars2d_num

integer, parameter, public mod_atmos_dyn_vars::atmos_dyn_auxvars2d_num = 1

Definition at line 68 of file mod_atmos_dyn_vars.F90.

  integer, public, parameter :: ATMOS_DYN_AUXVARS2D_NUM          = 1

atmos_dyn_auxvars2d_coriolis_id

integer, parameter, public mod_atmos_dyn_vars::atmos_dyn_auxvars2d_coriolis_id = 1

Definition at line 69 of file mod_atmos_dyn_vars.F90.

  integer, public, parameter :: ATMOS_DYN_AUXVARS2D_CORIOLIS_ID  = 1

Referenced by mod_atmos_dyn::atmosdyn_setup(), and atmosdynauxvars_getlocalmeshfields().

atmos_dyn_auxvars2d_vinfo

type(variableinfo), dimension(atmos_dyn_auxvars2d_num), public mod_atmos_dyn_vars::atmos_dyn_auxvars2d_vinfo

Definition at line 71 of file mod_atmos_dyn_vars.F90.

  type(VariableInfo), public :: ATMOS_DYN_AUXVARS2D_VINFO(ATMOS_DYN_AUXVARS2D_NUM)