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

added check if nGrains==1 when non-local plasticity is used

This commit is contained in:
Franz Roters 2013-02-04 14:34:01 +00:00
parent 01a7850517
commit 45344cff6b
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/IO.f90
View File

@ -1367,6 +1367,8 @@ subroutine IO_error(error_ID,e,i,g,ext_msg)
case (212_pInt) case (212_pInt)
msg = 'unknown plasticity output:' msg = 'unknown plasticity output:'
case (252_pInt)
msg = 'nonlocal plasticity works only for direct CPFEM, i.e. one grain per integration point'
case (253_pInt) case (253_pInt)
msg = 'element type not supported for nonlocal plasticity' msg = 'element type not supported for nonlocal plasticity'

1
code/constitutive.f90
View File

@ -382,6 +382,7 @@ subroutine constitutive_init
constitutive_sizePostResults(g,i,e) = constitutive_dislotwin_sizePostResults(myInstance) constitutive_sizePostResults(g,i,e) = constitutive_dislotwin_sizePostResults(myInstance)
case (constitutive_nonlocal_label) case (constitutive_nonlocal_label)
if(myNgrains/=1_pInt) call IO_error(252_pInt, e,i,g)
select case(FE_geomtype(mesh_element(2,e))) select case(FE_geomtype(mesh_element(2,e)))
case (7_pInt,8_pInt,9_pInt,10_pInt) case (7_pInt,8_pInt,9_pInt,10_pInt)
! all fine ! all fine