syntax errors in declaration
This commit is contained in:
parent
67483487ea
commit
ebef12e446
|
@ -482,12 +482,12 @@ subroutine mesh_init(ip,el)
|
|||
numerics_unitlength, &
|
||||
worldrank
|
||||
use FEsolving, only: &
|
||||
FEsolving_execElem, &
|
||||
#ifndef Spectral
|
||||
modelName, &
|
||||
calcMode
|
||||
calcMode, &
|
||||
#endif
|
||||
FEsolving_execIP, &
|
||||
FEsolving_execElem, &
|
||||
FEsolving_execIP
|
||||
|
||||
implicit none
|
||||
#ifdef Spectral
|
||||
|
|
|
@ -25,11 +25,11 @@ use PETScis
|
|||
mesh_NcpElems, & !< total number of CP elements in mesh
|
||||
mesh_NcpElemsGlobal, &
|
||||
mesh_Nnodes, & !< total number of nodes in mesh
|
||||
mesh_maxNipNeighbors, & !< max number of IP neighbors in any CP element
|
||||
mesh_NipsPerElem, & !< number of IPs in per element
|
||||
mesh_maxNipNeighbors
|
||||
!!!! BEGIN DEPRECATED !!!!!
|
||||
integer(pInt), public, protected :: &
|
||||
mesh_maxNips, & !< max number of IPs in any CP element
|
||||
mesh_maxNips !< max number of IPs in any CP element
|
||||
!!!! BEGIN DEPRECATED !!!!!
|
||||
|
||||
integer(pInt), dimension(:), allocatable, public, protected :: &
|
||||
|
|
Loading…
Reference in New Issue