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

check for invalid mesh type once in constitutive_init and not every time constitutive_nonlocal_dotState is called

This commit is contained in:
Christoph Kords 2012-05-18 13:15:23 +00:00
parent 8c849d62ee
commit a5c1624648
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
code/constitutive.f90
View File

@ -327,6 +327,12 @@ endif
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)
select case(mesh_element(2,e))
case (1_pInt,6_pInt,7_pInt,8_pInt,9_pInt)
! all fine
case default
call IO_error(253_pInt,e,i,g)
end select
allocate(constitutive_state0(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance))) allocate(constitutive_state0(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance)))
allocate(constitutive_partionedState0(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance))) allocate(constitutive_partionedState0(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance)))
allocate(constitutive_subState0(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance))) allocate(constitutive_subState0(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance)))

6
code/constitutive_nonlocal.f90
View File

@ -1694,12 +1694,6 @@ logical considerEnteringFlux, &
endif endif
#endif #endif
select case(mesh_element(2,el))
case (1_pInt,6_pInt,7_pInt,8_pInt,9_pInt)
! all fine
case default
call IO_error(253_pInt,el,ip,g)
end select
myInstance = phase_plasticityInstance(material_phase(g,ip,el)) myInstance = phase_plasticityInstance(material_phase(g,ip,el))
myStructure = constitutive_nonlocal_structure(myInstance) myStructure = constitutive_nonlocal_structure(myInstance)