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

modified reading in of values (realizes, if phase is not used in the model at all), started to include HDF5 output and new state

This commit is contained in:
Martin Diehl 2014-04-15 10:09:20 +00:00
parent 6314271136
commit 9b220c5c9a
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
code/constitutive.f90
View File

@ -86,6 +86,7 @@ subroutine constitutive_init
FE_Nips, & FE_Nips, &
FE_geomtype FE_geomtype
use material, only: & use material, only: &
material_phase, &
material_phase, & material_phase, &
material_Nphase, & material_Nphase, &
material_localFileExt, & material_localFileExt, &
@ -430,6 +431,13 @@ subroutine constitutive_init
enddo enddo
#ifdef HDF #ifdef HDF
call HDF5_mappingConstitutive(mappingConstitutive) call HDF5_mappingConstitutive(mappingConstitutive)
do phase = 1_pInt,material_Nphase
instance = phase_plasticityInstance(phase) ! which instance of a plasticity is present phase
select case(phase_plasticity(phase)) ! split per constititution
case (PLASTICITY_NONE_ID)
case (PLASTICITY_J2_ID)
end select
enddo
#endif #endif
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! write out state size file ! write out state size file
@ -854,6 +862,9 @@ function constitutive_postResults(Tstar_v, FeArray, temperature, ipc, ip, el)
PLASTICITY_TITANMOD_ID, & PLASTICITY_TITANMOD_ID, &
PLASTICITY_NONLOCAL_ID PLASTICITY_NONLOCAL_ID
use constitutive_j2, only: & use constitutive_j2, only: &
#ifdef HDF
constitutive_j2_postResults2,&
#endif
constitutive_j2_postResults constitutive_j2_postResults
use constitutive_phenopowerlaw, only: & use constitutive_phenopowerlaw, only: &
constitutive_phenopowerlaw_postResults constitutive_phenopowerlaw_postResults
@ -888,6 +899,9 @@ function constitutive_postResults(Tstar_v, FeArray, temperature, ipc, ip, el)
constitutive_postResults = constitutive_titanmod_postResults(& constitutive_postResults = constitutive_titanmod_postResults(&
constitutive_state(ipc,ip,el),ipc,ip,el) constitutive_state(ipc,ip,el),ipc,ip,el)
case (PLASTICITY_J2_ID) case (PLASTICITY_J2_ID)
#ifdef HDF
call constitutive_j2_postResults2(Tstar_v,constitutive_state(ipc,ip,el),ipc,ip,el,1)
#endif
constitutive_postResults = constitutive_j2_postResults(Tstar_v,& constitutive_postResults = constitutive_j2_postResults(Tstar_v,&
constitutive_state(ipc,ip,el),ipc,ip,el) constitutive_state(ipc,ip,el),ipc,ip,el)
case (PLASTICITY_PHENOPOWERLAW_ID) case (PLASTICITY_PHENOPOWERLAW_ID)