CAM
cube_mod Module Reference

Data Types

type  cube_face_coord_t
 
type  face_t
 
interface  ref2sphere
 

Functions/Subroutines

subroutine, public cube_init_atomic (elem, gll_points, alpha_in)
 
subroutine, private coordinates_atomic (elem, gll_points)
 
subroutine, private metric_atomic (elem, gll_points, alpha)
 
subroutine, public dmap (D, a, b, corners3D, ref_map, cartp, facenum)
 
subroutine dmap_equiangular (D, a, b, cartp, facenum)
 
subroutine, public vmap (D, x1, x2, face_no)
 
subroutine dmap_elementlocal (D, a, b, corners3D)
 
subroutine, private coreolis_init_atomic (elem)
 
subroutine, public set_corner_coordinates (elem)
 
subroutine, public assign_node_numbers_to_elem (elements, GridVertex)
 
subroutine, public convert_gbl_index (number, ie, je, face_no)
 
subroutine, public cubetopology (GridEdge, GridVertex)
 
integer function, public cube_assemble (gbl, fld, elem, par, nelemd, nelem, ielem)
 
integer function, public cubeedgecount ()
 
integer function, public cubeelemcount ()
 
subroutine, public cubesetupedgeindex (Edge)
 
type(spherical_polar_t) function ref2sphere_double (a, b, corners3D, ref_map, corners, facenum)
 
type(spherical_polar_t) function ref2sphere_longdouble (a, b, corners3D, ref_map, corners, facenum)
 
type(spherical_polar_t) function ref2sphere_equiangular_double (a, b, corners, face_no)
 
type(spherical_polar_t) function ref2sphere_equiangular_longdouble (a, b, corners, face_no)
 
type(spherical_polar_t) function ref2sphere_elementlocal_double (a, b, corners3D)
 
type(spherical_polar_t) function ref2sphere_elementlocal_longdouble (a, b, corners3D)
 
type(spherical_polar_t) function ref2sphere_elementlocal_q (q, corners)
 
subroutine, public set_area_correction_map0 (elem, nelemd, par, gp)
 
subroutine, public set_area_correction_map2 (elem, nelemd, par, gp)
 

Variables

integer, parameter, public nfaces = 6
 
integer, parameter, public ninnerelemedge = 8
 
integer, parameter, public ncornerelemedge = 4
 
real(kind=real_kind), parameter, public cube_xstart = -0.25D0*DD_PI
 
real(kind=real_kind), parameter, public cube_xend = 0.25D0*DD_PI
 
real(kind=real_kind), parameter, public cube_ystart = -0.25D0*DD_PI
 
real(kind=real_kind), parameter, public cube_yend = 0.25D0*DD_PI
 
real(kind=real_kind), public rotate_grid = 0
 

Function/Subroutine Documentation

◆ assign_node_numbers_to_elem()

subroutine, public cube_mod::assign_node_numbers_to_elem ( type (element_t), dimension(:), intent(inout)  elements,
type (gridvertex_t), dimension(:), intent(in)  GridVertex 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ convert_gbl_index()

subroutine, public cube_mod::convert_gbl_index ( integer, intent(in)  number,
integer, intent(out)  ie,
integer, intent(out)  je,
integer, intent(out)  face_no 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ coordinates_atomic()

subroutine, private cube_mod::coordinates_atomic ( type (element_t elem,
real (kind=longdouble_kind), dimension(np)  gll_points 
)
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ coreolis_init_atomic()

subroutine, private cube_mod::coreolis_init_atomic ( type (element_t elem)
private
Here is the caller graph for this function:

◆ cube_assemble()

integer function, public cube_mod::cube_assemble ( real (kind=real_kind), dimension(:,:,:,:)  gbl,
real (kind=real_kind), dimension(:,:,:)  fld,
type (element_t elem,
type (parallel_t par,
integer  nelemd,
integer  nelem,
integer  ielem 
)
Here is the call graph for this function:

◆ cube_init_atomic()

subroutine, public cube_mod::cube_init_atomic ( type (element_t), intent(inout)  elem,
real (kind=longdouble_kind), dimension(np)  gll_points,
real (kind=real_kind), optional  alpha_in 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ cubeedgecount()

integer function, public cube_mod::cubeedgecount ( )
Here is the call graph for this function:
Here is the caller graph for this function:

◆ cubeelemcount()

integer function, public cube_mod::cubeelemcount ( )
Here is the call graph for this function:
Here is the caller graph for this function:

◆ cubesetupedgeindex()

subroutine, public cube_mod::cubesetupedgeindex ( type (gridedge_t), target  Edge)
Here is the caller graph for this function:

◆ cubetopology()

subroutine, public cube_mod::cubetopology ( type (gridedge_t), dimension(:), intent(inout), target  GridEdge,
type (gridvertex_t), dimension(:), intent(inout), target  GridVertex 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ dmap()

subroutine, public cube_mod::dmap ( real (kind=real_kind), dimension(2,2), intent(out)  D,
real (kind=real_kind), intent(in)  a,
real (kind=real_kind), intent(in)  b,
type (cartesian3d_t), dimension(4)  corners3D,
integer  ref_map,
type (cartesian2d_t), dimension(np,np), optional  cartp,
integer, optional  facenum 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ dmap_elementlocal()

subroutine cube_mod::dmap_elementlocal ( real (kind=real_kind), dimension(2,2), intent(out)  D,
real (kind=real_kind), intent(in)  a,
real (kind=real_kind), intent(in)  b,
type (cartesian3d_t), dimension(4)  corners3D 
)
private
Here is the caller graph for this function:

◆ dmap_equiangular()

subroutine cube_mod::dmap_equiangular ( real (kind=real_kind), dimension(2,2), intent(out)  D,
real (kind=real_kind), intent(in)  a,
real (kind=real_kind), intent(in)  b,
type (cartesian2d_t), dimension(np,np)  cartp,
integer  facenum 
)
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ metric_atomic()

subroutine, private cube_mod::metric_atomic ( type (element_t elem,
real (kind=longdouble_kind), dimension(np)  gll_points,
real(kind=real_kind)  alpha 
)
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ ref2sphere_double()

type (spherical_polar_t) function cube_mod::ref2sphere_double ( real(kind=real_kind)  a,
real(kind=real_kind)  b,
type (cartesian3d_t), dimension(4)  corners3D,
integer  ref_map,
type (cartesian2d_t), dimension(4), optional  corners,
integer, optional  facenum 
)
Here is the call graph for this function:

◆ ref2sphere_elementlocal_double()

type (spherical_polar_t) function cube_mod::ref2sphere_elementlocal_double ( real(kind=real_kind)  a,
real(kind=real_kind)  b,
type (cartesian3d_t), dimension(4)  corners3D 
)
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ ref2sphere_elementlocal_longdouble()

type (spherical_polar_t) function cube_mod::ref2sphere_elementlocal_longdouble ( real(kind=longdouble_kind)  a,
real(kind=longdouble_kind)  b,
type (cartesian3d_t), dimension(4)  corners3D 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ ref2sphere_elementlocal_q()

type (spherical_polar_t) function cube_mod::ref2sphere_elementlocal_q ( real(kind=real_kind), dimension(4)  q,
type (cartesian3d_t), dimension(4)  corners 
)
Here is the caller graph for this function:

◆ ref2sphere_equiangular_double()

type (spherical_polar_t) function cube_mod::ref2sphere_equiangular_double ( real(kind=real_kind)  a,
real(kind=real_kind)  b,
type (cartesian2d_t), dimension(4)  corners,
integer, intent(in)  face_no 
)
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ ref2sphere_equiangular_longdouble()

type (spherical_polar_t) function cube_mod::ref2sphere_equiangular_longdouble ( real(kind=longdouble_kind)  a,
real(kind=longdouble_kind)  b,
type (cartesian2d_t), dimension(4)  corners,
integer, intent(in)  face_no 
)
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ ref2sphere_longdouble()

type (spherical_polar_t) function cube_mod::ref2sphere_longdouble ( real(kind=longdouble_kind)  a,
real(kind=longdouble_kind)  b,
type (cartesian3d_t), dimension(4)  corners3D,
integer  ref_map,
type (cartesian2d_t), dimension(4), optional  corners,
integer, optional  facenum 
)
private
Here is the call graph for this function:

◆ set_area_correction_map0()

subroutine, public cube_mod::set_area_correction_map0 ( type (element_t), dimension(:), intent(inout), pointer  elem,
integer, intent(in)  nelemd,
type (parallel_t), intent(in)  par,
type (quadrature_t), intent(in)  gp 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ set_area_correction_map2()

subroutine, public cube_mod::set_area_correction_map2 ( type (element_t), dimension(:), intent(inout), pointer  elem,
integer, intent(in)  nelemd,
type (parallel_t), intent(in)  par,
type (quadrature_t), intent(in)  gp 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ set_corner_coordinates()

subroutine, public cube_mod::set_corner_coordinates ( type (element_t elem)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ vmap()

subroutine, public cube_mod::vmap ( real (kind=real_kind), dimension(2,2), intent(inout)  D,
real (kind=real_kind), intent(in)  x1,
real (kind=real_kind), intent(in)  x2,
integer, intent(in)  face_no 
)
Here is the caller graph for this function:

Variable Documentation

◆ cube_xend

real(kind=real_kind), parameter, public cube_mod::cube_xend = 0.25D0*DD_PI

◆ cube_xstart

real(kind=real_kind), parameter, public cube_mod::cube_xstart = -0.25D0*DD_PI

◆ cube_yend

real(kind=real_kind), parameter, public cube_mod::cube_yend = 0.25D0*DD_PI

◆ cube_ystart

real(kind=real_kind), parameter, public cube_mod::cube_ystart = -0.25D0*DD_PI

◆ ncornerelemedge

integer, parameter, public cube_mod::ncornerelemedge = 4

◆ nfaces

integer, parameter, public cube_mod::nfaces = 6

◆ ninnerelemedge

integer, parameter, public cube_mod::ninnerelemedge = 8

◆ rotate_grid

real (kind=real_kind), public cube_mod::rotate_grid = 0