mod_ocean_dyn_vars Module Reference

module Ocean / Dynamics More...

Data Types
type	oceandynvars
	Derived type to manage variables with oceanic dynamics component. More...

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

Variables
integer, parameter, public	ocean_dyn_auxvars2d_num = 1
integer, parameter, public	ocean_dyn_auxvars2d_coriolis_id = 1
type(variableinfo), dimension(ocean_dyn_auxvars2d_num), public	ocean_dyn_auxvars2d_vinfo

Detailed Description

module Ocean / 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

oceandynauxvars_getlocalmeshfields()

subroutine, public mod_ocean_dyn_vars::oceandynauxvars_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 160 of file mod_ocean_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(ocean_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 ocean_dyn_auxvars2d_coriolis_id.

Referenced by mod_ocean_dyn_vars::oceandynvars::history().

Variable Documentation

ocean_dyn_auxvars2d_num

integer, parameter, public mod_ocean_dyn_vars::ocean_dyn_auxvars2d_num = 1

Definition at line 68 of file mod_ocean_dyn_vars.F90.

  integer, public, parameter :: OCEAN_DYN_AUXVARS2D_NUM          = 1

ocean_dyn_auxvars2d_coriolis_id

integer, parameter, public mod_ocean_dyn_vars::ocean_dyn_auxvars2d_coriolis_id = 1

Definition at line 69 of file mod_ocean_dyn_vars.F90.

  integer, public, parameter :: OCEAN_DYN_AUXVARS2D_CORIOLIS_ID  = 1

Referenced by oceandynauxvars_getlocalmeshfields().

ocean_dyn_auxvars2d_vinfo

type(variableinfo), dimension(ocean_dyn_auxvars2d_num), public mod_ocean_dyn_vars::ocean_dyn_auxvars2d_vinfo

Definition at line 71 of file mod_ocean_dyn_vars.F90.

  type(VariableInfo), public :: OCEAN_DYN_AUXVARS2D_VINFO(OCEAN_DYN_AUXVARS2D_NUM)