still needed during initialization
This commit is contained in:
parent
e675cec632
commit
0c51c3d8d4
|
@ -12,6 +12,7 @@ module discretization_marc
|
|||
use DAMASK_interface
|
||||
use IO
|
||||
use config
|
||||
use FEsolving
|
||||
use element
|
||||
use discretization
|
||||
use geometry_plastic_nonlocal
|
||||
|
@ -88,6 +89,9 @@ subroutine discretization_marc_init
|
|||
if (debug_e < 1 .or. debug_e > nElems) call IO_error(602,ext_msg='element')
|
||||
if (debug_i < 1 .or. debug_i > elem%nIPs) call IO_error(602,ext_msg='IP')
|
||||
|
||||
FEsolving_execElem = [1,nElems]
|
||||
FEsolving_execIP = [1,elem%nIPs]
|
||||
|
||||
allocate(cellNodeDefinition(elem%nNodes-1))
|
||||
allocate(connectivity_cell(elem%NcellNodesPerCell,elem%nIPs,nElems))
|
||||
call buildCells(connectivity_cell,cellNodeDefinition,&
|
||||
|
|
Loading…
Reference in New Issue