syntax errors in declaration

This commit is contained in:
Martin Diehl 2018-09-23 19:04:17 +02:00
parent 67483487ea
commit ebef12e446
2 changed files with 5 additions and 5 deletions

View File

@ -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

View File

@ -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 :: &