CalculateMetricTerms_SEMHex Subroutine

  1. SELF_Geometry_3D.f90
  2. SELF_Geometry_3D
  3. CalculateMetricTerms_SEMHex

public subroutine CalculateMetricTerms_SEMHex(myGeom)

Arguments

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

Contents

Source Code

CalculateMetricTerms_SEMHex

Source Code

  subroutine CalculateMetricTerms_SEMHex(myGeom)
    implicit none
    class(SEMHex),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_SEMHex