using explicit interface from PETScDT
This commit is contained in:
parent
b84476e681
commit
e7e959af47
|
@ -14,6 +14,7 @@ module FEM_mech
|
||||||
use PETScsnes
|
use PETScsnes
|
||||||
use PETScDM
|
use PETScDM
|
||||||
use PETScDMplex
|
use PETScDMplex
|
||||||
|
use PETScDT
|
||||||
use prec, only: &
|
use prec, only: &
|
||||||
pInt, &
|
pInt, &
|
||||||
pReal
|
pReal
|
||||||
|
@ -100,8 +101,8 @@ subroutine FEM_mech_init(fieldBC)
|
||||||
IS, pointer :: pBcComps(:), pBcPoints(:)
|
IS, pointer :: pBcComps(:), pBcPoints(:)
|
||||||
PetscSection :: section
|
PetscSection :: section
|
||||||
PetscInt :: field, faceSet, topologDim, nNodalPoints
|
PetscInt :: field, faceSet, topologDim, nNodalPoints
|
||||||
PetscReal, pointer :: qPointsP(:), qWeightsP(:), &
|
PetscReal, dimension(:) , pointer :: qPointsP, qWeightsP, &
|
||||||
nodalPointsP(:), nodalWeightsP(:)
|
nodalPointsP, nodalWeightsP
|
||||||
PetscReal, allocatable, target :: nodalPoints(:), nodalWeights(:)
|
PetscReal, allocatable, target :: nodalPoints(:), nodalWeights(:)
|
||||||
PetscScalar, pointer :: px_scal(:)
|
PetscScalar, pointer :: px_scal(:)
|
||||||
PetscScalar, allocatable, target :: x_scal(:)
|
PetscScalar, allocatable, target :: x_scal(:)
|
||||||
|
@ -111,6 +112,7 @@ subroutine FEM_mech_init(fieldBC)
|
||||||
PetscInt :: cellStart, cellEnd, cell, basis
|
PetscInt :: cellStart, cellEnd, cell, basis
|
||||||
character(len=7) :: prefix = 'mechFE_'
|
character(len=7) :: prefix = 'mechFE_'
|
||||||
PetscErrorCode :: ierr
|
PetscErrorCode :: ierr
|
||||||
|
PetscReal, allocatable, target, dimension(:) :: qWeights
|
||||||
|
|
||||||
write(6,'(/,a)') ' <<<+- FEM_mech init -+>>>'
|
write(6,'(/,a)') ' <<<+- FEM_mech init -+>>>'
|
||||||
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
|
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
|
||||||
|
@ -123,8 +125,6 @@ subroutine FEM_mech_init(fieldBC)
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
! Setup FEM mech discretization
|
! Setup FEM mech discretization
|
||||||
allocate(qPoints(dimPlex*FEM_Zoo_nQuadrature(dimPlex,integrationOrder)))
|
|
||||||
allocate(qWeights(FEM_Zoo_nQuadrature(dimPlex,integrationOrder)))
|
|
||||||
qPoints = FEM_Zoo_QuadraturePoints(dimPlex,integrationOrder)%p
|
qPoints = FEM_Zoo_QuadraturePoints(dimPlex,integrationOrder)%p
|
||||||
qWeights = FEM_Zoo_QuadratureWeights(dimPlex,integrationOrder)%p
|
qWeights = FEM_Zoo_QuadratureWeights(dimPlex,integrationOrder)%p
|
||||||
nQuadrature = FEM_Zoo_nQuadrature(dimPlex,integrationOrder)
|
nQuadrature = FEM_Zoo_nQuadrature(dimPlex,integrationOrder)
|
||||||
|
|
Loading…
Reference in New Issue