scale_mesh_topography Module Reference

module FElib / Mesh / Topography More...

Data Types
type	meshtopography
	Derived type to manage topography datat and setup vertical coordinate metric. More...

Functions/Subroutines
subroutine	meshtopography_init (this, varname, mesh)

Detailed Description

module FElib / Mesh / Topography

Description

A module to manage vertical coordinate with topography

Author

Yuta Kawai, Team SCALE

Function/Subroutine Documentation

meshtopography_init()

subroutine scale_mesh_topography::meshtopography_init	(	class(meshtopography), intent(inout)	this,
		character(len=*), intent(in)	varname,
		class(meshbase2d), intent(in), target	mesh )

Definition at line 65 of file scale_mesh_topography.F90.

    implicit none
 
    class(MeshTopography), intent(inout) :: this
    character(len=*), intent(in) :: varname
    class(MeshBase2D), intent(in), target :: mesh
 
    integer :: n
    !-----------------------------------------------------------------------------
 
    call this%topo%Init( varname, "m", mesh )
 
    do n=1, mesh%LOCAL_MESH_NUM
!$omp parallel workshare
      this%topo%local(n)%val(:,:) = 0.0_rp
!$omp end parallel workshare
      !$acc update device(this%topo%local(n)%val)
    end do
 
    return

References scale_meshutil_vcoord::meshutil_vcoord_getmetric().