include sanity check
This commit is contained in:
parent
554631d554
commit
9ad391ae50
|
@ -214,6 +214,8 @@ module subroutine plastic_nonlocal_init
|
|||
dst => microstructure(phase_plasticityInstance(p)), &
|
||||
config => config_phase(p))
|
||||
|
||||
prm%output = config%getStrings('(output)',defaultVal=emptyStringArray)
|
||||
|
||||
prm%atol_rho = config%getFloat('atol_rho', defaultVal=0.0_pReal)
|
||||
prm%atol_gamma = config%getFloat('atol_shear', defaultVal=0.0_pReal)
|
||||
|
||||
|
@ -223,7 +225,6 @@ module subroutine plastic_nonlocal_init
|
|||
prm%mu = lattice_mu(p)
|
||||
prm%nu = lattice_nu(p)
|
||||
|
||||
|
||||
prm%Nslip = config%getInts('nslip',defaultVal=emptyIntArray)
|
||||
prm%totalNslip = sum(prm%Nslip)
|
||||
slipActive: if (prm%totalNslip > 0) then
|
||||
|
@ -372,12 +373,10 @@ module subroutine plastic_nonlocal_init
|
|||
extmsg = trim(extmsg)//' surfaceTransmissivity'
|
||||
|
||||
if (prm%fEdgeMultiplication < 0.0_pReal .or. prm%fEdgeMultiplication > 1.0_pReal) &
|
||||
extmsg = trim(extmsg)//' fEdgeMultiplication'
|
||||
extmsg = trim(extmsg)//' fEdgeMultiplication'
|
||||
|
||||
endif slipActive
|
||||
|
||||
prm%output = config%getStrings('(output)',defaultVal=emptyStringArray)
|
||||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
! allocate state arrays
|
||||
NofMyPhase = count(material_phaseAt==p) * discretization_nIP
|
||||
|
@ -483,6 +482,10 @@ module subroutine plastic_nonlocal_init
|
|||
if (NofMyPhase > 0) call stateInit(p,NofMyPhase)
|
||||
plasticState(p)%state0 = plasticState(p)%state
|
||||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
! exit if any parameter is out of range
|
||||
if (extmsg /= '') call IO_error(211,ext_msg=trim(extmsg)//'('//PLASTICITY_NONLOCAL_LABEL//')')
|
||||
|
||||
enddo
|
||||
|
||||
allocate(compatibility(2,maxval(totalNslip),maxval(totalNslip),nIPneighbors,&
|
||||
|
|
Loading…
Reference in New Issue