CalculateMetricTerms_SEMQuad Subroutine

  1. SELF_Geometry_2D.f90
  2. SELF_Geometry_2D
  3. CalculateMetricTerms_SEMQuad

public subroutine CalculateMetricTerms_SEMQuad(myGeom)

Arguments

TypeIntentOptionalAttributesName
class(SEMQuad), intent(inout) :: myGeom

Contents

Source Code

CalculateMetricTerms_SEMQuad

Source Code

  subroutine CalculateMetricTerms_SEMQuad(myGeom)
    implicit none
    class(SEMQuad),intent(inout) :: myGeom

    call myGeom%x%Gradient(myGeom%dxds%interior)
    call myGeom%dxds%BoundaryInterp() ! Tensor boundary interp is not offloaded to GPU
    call myGeom%dxds%UpdateDevice()

    call myGeom%dxds%Determinant(myGeom%J%interior)

    call myGeom%J%UpdateDevice()
    call myGeom%J%BoundaryInterp()
    call myGeom%J%UpdateHost()

    call myGeom%CalculateContravariantBasis()

  endsubroutine CalculateMetricTerms_SEMQuad