GenerateFromMesh_SEMQuad Subroutine

  1. SELF_Geometry_2D.f90
  2. SELF_Geometry_2D
  3. GenerateFromMesh_SEMQuad

public subroutine GenerateFromMesh_SEMQuad(myGeom, mesh)

Arguments

TypeIntentOptionalAttributesName
class(SEMQuad), intent(inout) :: myGeom
type(Mesh2D), intent(in) :: mesh

Contents

Source Code

GenerateFromMesh_SEMQuad

Source Code

  subroutine GenerateFromMesh_SEMQuad(myGeom,mesh)
    implicit none
    class(SEMQuad),intent(inout) :: myGeom
    type(Mesh2D),intent(in) :: mesh

    call myGeom%GenerateFromNodeCoords(mesh%nodeCoords,mesh%nGeo,mesh%quadrature,mesh%nElem)
    call myGeom%x%UpdateDevice()
    call myGeom%x%BoundaryInterp() ! Boundary interp will run on GPU if enabled, hence why we close in update host/device
    call myGeom%x%UpdateHost()
    call myGeom%CalculateMetricTerms()

  endsubroutine GenerateFromMesh_SEMQuad