223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

added C3D20R (type 9) to list of possible non-local elements (Christoph, should we invent a reasonable error number for this? "-1" may not be optimal...)

This commit is contained in:
Philip Eisenlohr 2010-08-19 23:00:26 +00:00
parent c352146fe6
commit da53656c9a
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
code/constitutive_nonlocal.f90
View File

@ -1313,12 +1313,15 @@ if (verboseDebugger .and. selectiveDebugger) then
!$OMPEND CRITICAL (write2out)
endif
if (.not. ( mesh_element(2,el) == 1_pInt &
.or. mesh_element(2,el) == 6_pInt &
.or. mesh_element(2,el) == 7_pInt &
.or. mesh_element(2,el) == 8_pInt )) &
select case(mesh_element(2,el))
case (1,6,7,8,9)
! all fine
case default
call IO_error(-1,el,ip,g,'element type not supported for nonlocal constitution')
end select
myInstance = phase_constitutionInstance(material_phase(g,ip,el))
myStructure = constitutive_nonlocal_structure(myInstance)
ns = constitutive_nonlocal_totalNslip(myInstance)