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

13
code/constitutive_nonlocal.f90
View File

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