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

new state related changes

This commit is contained in:
Luv Sharma 2014-06-11 12:27:41 +00:00
parent a54bb6ab24
commit 401b31c951
3 changed files with 421 additions and 152 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

118
code/constitutive.f90
View File

@ -137,8 +137,8 @@ subroutine constitutive_init
use constitutive_j2 use constitutive_j2
use constitutive_phenopowerlaw use constitutive_phenopowerlaw
use constitutive_dislotwin use constitutive_dislotwin
#ifndef NEWSTATE
use constitutive_titanmod use constitutive_titanmod
#ifndef NEWSTATE
use constitutive_nonlocal use constitutive_nonlocal
#endif #endif
implicit none implicit none
@ -210,11 +210,11 @@ subroutine constitutive_init
outputName = PLASTICITY_DISLOTWIN_label outputName = PLASTICITY_DISLOTWIN_label
thisOutput => constitutive_dislotwin_output thisOutput => constitutive_dislotwin_output
thisSize => constitutive_dislotwin_sizePostResult thisSize => constitutive_dislotwin_sizePostResult
#ifndef NEWSTATE
case (PLASTICITY_TITANMOD_ID) case (PLASTICITY_TITANMOD_ID)
outputName = PLASTICITY_TITANMOD_label outputName = PLASTICITY_TITANMOD_label
thisOutput => constitutive_titanmod_output thisOutput => constitutive_titanmod_output
thisSize => constitutive_titanmod_sizePostResult thisSize => constitutive_titanmod_sizePostResult
#ifndef NEWSTATE
case (PLASTICITY_NONLOCAL_ID) case (PLASTICITY_NONLOCAL_ID)
outputName = PLASTICITY_NONLOCAL_label outputName = PLASTICITY_NONLOCAL_label
thisOutput => constitutive_nonlocal_output thisOutput => constitutive_nonlocal_output
@ -344,25 +344,25 @@ subroutine constitutive_init
case (PLASTICITY_PHENOPOWERLAW_ID) case (PLASTICITY_PHENOPOWERLAW_ID)
#ifndef NEWSTATE #ifndef NEWSTATE
allocate(constitutive_state0(g,i,e)%p(constitutive_phenopowerlaw_sizeState(instance))) allocate(constitutive_state0(g,i,e)%p(constitutive_phenopowerlaw_sizeState(instance)),source=0.0_pReal)
allocate(constitutive_partionedState0(g,i,e)%p(constitutive_phenopowerlaw_sizeState(instance))) allocate(constitutive_partionedState0(g,i,e)%p(constitutive_phenopowerlaw_sizeState(instance)),source=0.0_pReal)
allocate(constitutive_subState0(g,i,e)%p(constitutive_phenopowerlaw_sizeState(instance))) allocate(constitutive_subState0(g,i,e)%p(constitutive_phenopowerlaw_sizeState(instance)),source=0.0_pReal)
allocate(constitutive_state(g,i,e)%p(constitutive_phenopowerlaw_sizeState(instance))) allocate(constitutive_state(g,i,e)%p(constitutive_phenopowerlaw_sizeState(instance)),source=0.0_pReal)
allocate(constitutive_state_backup(g,i,e)%p(constitutive_phenopowerlaw_sizeState(instance))) allocate(constitutive_state_backup(g,i,e)%p(constitutive_phenopowerlaw_sizeState(instance)),source=0.0_pReal)
allocate(constitutive_aTolState(g,i,e)%p(constitutive_phenopowerlaw_sizeState(instance))) allocate(constitutive_aTolState(g,i,e)%p(constitutive_phenopowerlaw_sizeState(instance)),source=0.0_pReal)
allocate(constitutive_dotState(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(instance))) allocate(constitutive_dotState(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(instance)),source=0.0_pReal)
allocate(constitutive_deltaState(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(instance))) allocate(constitutive_deltaState(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(instance)),source=0.0_pReal)
allocate(constitutive_dotState_backup(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(instance))) allocate(constitutive_dotState_backup(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(instance)),source=0.0_pReal)
if (any(numerics_integrator == 1_pInt)) then if (any(numerics_integrator == 1_pInt)) then
allocate(constitutive_previousDotState(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(instance))) allocate(constitutive_previousDotState(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(instance)),source=0.0_pReal)
allocate(constitutive_previousDotState2(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(instance))) allocate(constitutive_previousDotState2(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(instance)),source=0.0_pReal)
endif endif
if (any(numerics_integrator == 4_pInt)) then if (any(numerics_integrator == 4_pInt)) then
allocate(constitutive_RK4dotState(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(instance))) allocate(constitutive_RK4dotState(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(instance)),source=0.0_pReal)
endif endif
if (any(numerics_integrator == 5_pInt)) then if (any(numerics_integrator == 5_pInt)) then
do s = 1_pInt,6_pInt do s = 1_pInt,6_pInt
allocate(constitutive_RKCK45dotState(s,g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(instance))) allocate(constitutive_RKCK45dotState(s,g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(instance)),source=0.0_pReal)
enddo enddo
endif endif
constitutive_state0(g,i,e)%p = constitutive_phenopowerlaw_stateInit(instance) constitutive_state0(g,i,e)%p = constitutive_phenopowerlaw_stateInit(instance)
@ -371,36 +371,38 @@ subroutine constitutive_init
constitutive_sizeDotState(g,i,e) = constitutive_phenopowerlaw_sizeDotState(instance) constitutive_sizeDotState(g,i,e) = constitutive_phenopowerlaw_sizeDotState(instance)
#endif #endif
constitutive_sizePostResults(g,i,e) = constitutive_phenopowerlaw_sizePostResults(instance) constitutive_sizePostResults(g,i,e) = constitutive_phenopowerlaw_sizePostResults(instance)
#ifndef NEWSTATE
case (PLASTICITY_DISLOTWIN_ID) case (PLASTICITY_DISLOTWIN_ID)
allocate(constitutive_state0(g,i,e)%p(constitutive_dislotwin_sizeState(instance))) #ifndef NEWSTATE
allocate(constitutive_partionedState0(g,i,e)%p(constitutive_dislotwin_sizeState(instance))) allocate(constitutive_state0(g,i,e)%p(constitutive_dislotwin_sizeState(instance)),source=0.0_pReal)
allocate(constitutive_subState0(g,i,e)%p(constitutive_dislotwin_sizeState(instance))) allocate(constitutive_partionedState0(g,i,e)%p(constitutive_dislotwin_sizeState(instance)),source=0.0_pReal)
allocate(constitutive_state(g,i,e)%p(constitutive_dislotwin_sizeState(instance))) allocate(constitutive_subState0(g,i,e)%p(constitutive_dislotwin_sizeState(instance)),source=0.0_pReal)
allocate(constitutive_state_backup(g,i,e)%p(constitutive_dislotwin_sizeState(instance))) allocate(constitutive_state(g,i,e)%p(constitutive_dislotwin_sizeState(instance)),source=0.0_pReal)
allocate(constitutive_aTolState(g,i,e)%p(constitutive_dislotwin_sizeState(instance))) allocate(constitutive_state_backup(g,i,e)%p(constitutive_dislotwin_sizeState(instance)),source=0.0_pReal)
allocate(constitutive_dotState(g,i,e)%p(constitutive_dislotwin_sizeDotState(instance))) allocate(constitutive_aTolState(g,i,e)%p(constitutive_dislotwin_sizeState(instance)),source=0.0_pReal)
allocate(constitutive_deltaState(g,i,e)%p(constitutive_dislotwin_sizeDotState(instance))) allocate(constitutive_dotState(g,i,e)%p(constitutive_dislotwin_sizeDotState(instance)),source=0.0_pReal)
allocate(constitutive_dotState_backup(g,i,e)%p(constitutive_dislotwin_sizeDotState(instance))) allocate(constitutive_deltaState(g,i,e)%p(constitutive_dislotwin_sizeDotState(instance)),source=0.0_pReal)
allocate(constitutive_dotState_backup(g,i,e)%p(constitutive_dislotwin_sizeDotState(instance)),source=0.0_pReal)
if (any(numerics_integrator == 1_pInt)) then if (any(numerics_integrator == 1_pInt)) then
allocate(constitutive_previousDotState(g,i,e)%p(constitutive_dislotwin_sizeDotState(instance))) allocate(constitutive_previousDotState(g,i,e)%p(constitutive_dislotwin_sizeDotState(instance)),source=0.0_pReal)
allocate(constitutive_previousDotState2(g,i,e)%p(constitutive_dislotwin_sizeDotState(instance))) allocate(constitutive_previousDotState2(g,i,e)%p(constitutive_dislotwin_sizeDotState(instance)),source=0.0_pReal)
endif endif
if (any(numerics_integrator == 4_pInt)) then if (any(numerics_integrator == 4_pInt)) then
allocate(constitutive_RK4dotState(g,i,e)%p(constitutive_dislotwin_sizeDotState(instance))) allocate(constitutive_RK4dotState(g,i,e)%p(constitutive_dislotwin_sizeDotState(instance)),source=0.0_pReal)
endif endif
if (any(numerics_integrator == 5_pInt)) then if (any(numerics_integrator == 5_pInt)) then
do s = 1_pInt,6_pInt do s = 1_pInt,6_pInt
allocate(constitutive_RKCK45dotState(s,g,i,e)%p(constitutive_dislotwin_sizeDotState(instance))) allocate(constitutive_RKCK45dotState(s,g,i,e)%p(constitutive_dislotwin_sizeDotState(instance)),source=0.0_pReal)
enddo enddo
endif endif
constitutive_state0(g,i,e)%p = constitutive_dislotwin_stateInit(instance,material_phase(g,i,e)) constitutive_state0(g,i,e)%p = constitutive_dislotwin_stateInit(instance,material_phase(g,i,e))
constitutive_aTolState(g,i,e)%p = constitutive_dislotwin_aTolState(instance) constitutive_aTolState(g,i,e)%p = constitutive_dislotwin_aTolState(instance)
constitutive_sizeState(g,i,e) = constitutive_dislotwin_sizeState(instance) constitutive_sizeState(g,i,e) = constitutive_dislotwin_sizeState(instance)
constitutive_sizeDotState(g,i,e) = constitutive_dislotwin_sizeDotState(instance) constitutive_sizeDotState(g,i,e) = constitutive_dislotwin_sizeDotState(instance)
#endif
constitutive_sizePostResults(g,i,e) = constitutive_dislotwin_sizePostResults(instance) constitutive_sizePostResults(g,i,e) = constitutive_dislotwin_sizePostResults(instance)
case (PLASTICITY_TITANMOD_ID) case (PLASTICITY_TITANMOD_ID)
#ifndef NEWSTATE
allocate(constitutive_state0(g,i,e)%p(constitutive_titanmod_sizeState(instance))) allocate(constitutive_state0(g,i,e)%p(constitutive_titanmod_sizeState(instance)))
allocate(constitutive_partionedState0(g,i,e)%p(constitutive_titanmod_sizeState(instance))) allocate(constitutive_partionedState0(g,i,e)%p(constitutive_titanmod_sizeState(instance)))
allocate(constitutive_subState0(g,i,e)%p(constitutive_titanmod_sizeState(instance))) allocate(constitutive_subState0(g,i,e)%p(constitutive_titanmod_sizeState(instance)))
@ -426,8 +428,10 @@ subroutine constitutive_init
constitutive_aTolState(g,i,e)%p = constitutive_titanmod_aTolState(instance) constitutive_aTolState(g,i,e)%p = constitutive_titanmod_aTolState(instance)
constitutive_sizeState(g,i,e) = constitutive_titanmod_sizeState(instance) constitutive_sizeState(g,i,e) = constitutive_titanmod_sizeState(instance)
constitutive_sizeDotState(g,i,e) = constitutive_titanmod_sizeDotState(instance) constitutive_sizeDotState(g,i,e) = constitutive_titanmod_sizeDotState(instance)
#endif
constitutive_sizePostResults(g,i,e) = constitutive_titanmod_sizePostResults(instance) constitutive_sizePostResults(g,i,e) = constitutive_titanmod_sizePostResults(instance)
case (PLASTICITY_NONLOCAL_ID) case (PLASTICITY_NONLOCAL_ID)
#ifndef NEWSTATE
nonlocalConstitutionPresent = .true. nonlocalConstitutionPresent = .true.
if(myNgrains/=1_pInt) call IO_error(252_pInt, e,i,g) if(myNgrains/=1_pInt) call IO_error(252_pInt, e,i,g)
allocate(constitutive_state0(g,i,e)%p(constitutive_nonlocal_sizeState(instance))) allocate(constitutive_state0(g,i,e)%p(constitutive_nonlocal_sizeState(instance)))
@ -456,6 +460,7 @@ subroutine constitutive_init
constitutive_sizeDotState(g,i,e) = constitutive_nonlocal_sizeDotState(instance) constitutive_sizeDotState(g,i,e) = constitutive_nonlocal_sizeDotState(instance)
constitutive_sizePostResults(g,i,e) = constitutive_nonlocal_sizePostResults(instance) constitutive_sizePostResults(g,i,e) = constitutive_nonlocal_sizePostResults(instance)
#endif #endif
! constitutive_sizePostResults(g,i,e) = constitutive_nonlocal_sizePostResults(instance)
end select end select
enddo GrainLoop enddo GrainLoop
enddo IPloop enddo IPloop
@ -469,7 +474,6 @@ subroutine constitutive_init
constitutive_partionedState0(g,i,e)%p = constitutive_state0(g,i,e)%p constitutive_partionedState0(g,i,e)%p = constitutive_state0(g,i,e)%p
constitutive_state(g,i,e)%p = constitutive_state0(g,i,e)%p ! need to be defined for first call of constitutive_microstructure in crystallite_init constitutive_state(g,i,e)%p = constitutive_state0(g,i,e)%p ! need to be defined for first call of constitutive_microstructure in crystallite_init
endforall endforall
enddo enddo
#endif #endif
@ -535,10 +539,8 @@ pure function constitutive_homogenizedC(ipc,ip,el)
plasticState,& plasticState,&
#endif #endif
PLASTICITY_DISLOTWIN_ID PLASTICITY_DISLOTWIN_ID
#ifndef NEWSTATE
use constitutive_titanmod, only: & use constitutive_titanmod, only: &
constitutive_titanmod_homogenizedC constitutive_titanmod_homogenizedC
#endif
use constitutive_dislotwin, only: & use constitutive_dislotwin, only: &
constitutive_dislotwin_homogenizedC constitutive_dislotwin_homogenizedC
use lattice, only: & use lattice, only: &
@ -563,8 +565,13 @@ pure function constitutive_homogenizedC(ipc,ip,el)
constitutive_homogenizedC = constitutive_dislotwin_homogenizedC & constitutive_homogenizedC = constitutive_dislotwin_homogenizedC &
(constitutive_state(ipc,ip,el),ipc,ip,el) (constitutive_state(ipc,ip,el),ipc,ip,el)
#endif #endif
#ifndef NEWSTATE
case (PLASTICITY_TITANMOD_ID) case (PLASTICITY_TITANMOD_ID)
#ifdef NEWSTATE
constitutive_homogenizedC = constitutive_titanmod_homogenizedC &
(plasticState(mappingConstitutive(2,ipc,ip,el))%state(:,mappingConstitutive(1,ipc,ip,el)), &
ipc,ip,el)
#else
constitutive_homogenizedC = constitutive_titanmod_homogenizedC(constitutive_state(ipc,ip,el), & constitutive_homogenizedC = constitutive_titanmod_homogenizedC(constitutive_state(ipc,ip,el), &
ipc,ip,el) ipc,ip,el)
#endif #endif
@ -589,9 +596,9 @@ subroutine constitutive_microstructure(temperature, Fe, Fp, ipc, ip, el)
#endif #endif
PLASTICITY_TITANMOD_ID, & PLASTICITY_TITANMOD_ID, &
PLASTICITY_NONLOCAL_ID PLASTICITY_NONLOCAL_ID
#ifndef NEWSTATE
use constitutive_titanmod, only: & use constitutive_titanmod, only: &
constitutive_titanmod_microstructure constitutive_titanmod_microstructure
#ifndef NEWSTATE
use constitutive_nonlocal, only: & use constitutive_nonlocal, only: &
constitutive_nonlocal_microstructure constitutive_nonlocal_microstructure
#endif #endif
@ -621,10 +628,17 @@ subroutine constitutive_microstructure(temperature, Fe, Fp, ipc, ip, el)
call constitutive_dislotwin_microstructure(temperature,constitutive_state(ipc,ip,el), & call constitutive_dislotwin_microstructure(temperature,constitutive_state(ipc,ip,el), &
ipc,ip,el) ipc,ip,el)
#endif #endif
#ifndef NEWSTATE
case (PLASTICITY_TITANMOD_ID) case (PLASTICITY_TITANMOD_ID)
#ifdef NEWSTATE
call constitutive_titanmod_microstructure(temperature, &
plasticState(mappingConstitutive(2,ipc,ip,el))%state(:,mappingConstitutive(1,ipc,ip,el)), &
ipc,ip,el)
#else
call constitutive_titanmod_microstructure(temperature,constitutive_state(ipc,ip,el), & call constitutive_titanmod_microstructure(temperature,constitutive_state(ipc,ip,el), &
ipc,ip,el) ipc,ip,el)
#endif
#ifndef NEWSTATE
case (PLASTICITY_NONLOCAL_ID) case (PLASTICITY_NONLOCAL_ID)
call constitutive_nonlocal_microstructure(constitutive_state,Fe,Fp,ipc,ip,el) call constitutive_nonlocal_microstructure(constitutive_state,Fe,Fp,ipc,ip,el)
#endif #endif
@ -657,9 +671,9 @@ subroutine constitutive_LpAndItsTangent(Lp, dLp_dTstar, Tstar_v, temperature, ip
constitutive_phenopowerlaw_LpAndItsTangent constitutive_phenopowerlaw_LpAndItsTangent
use constitutive_dislotwin, only: & use constitutive_dislotwin, only: &
constitutive_dislotwin_LpAndItsTangent constitutive_dislotwin_LpAndItsTangent
#ifndef NEWSTATE
use constitutive_titanmod, only: & use constitutive_titanmod, only: &
constitutive_titanmod_LpAndItsTangent constitutive_titanmod_LpAndItsTangent
#ifndef NEWSTATE
use constitutive_nonlocal, only: & use constitutive_nonlocal, only: &
constitutive_nonlocal_LpAndItsTangent constitutive_nonlocal_LpAndItsTangent
#endif #endif
@ -708,10 +722,17 @@ subroutine constitutive_LpAndItsTangent(Lp, dLp_dTstar, Tstar_v, temperature, ip
call constitutive_dislotwin_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v, & call constitutive_dislotwin_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v, &
temperature,constitutive_state(ipc,ip,el),ipc,ip,el) temperature,constitutive_state(ipc,ip,el),ipc,ip,el)
#endif #endif
#ifndef NEWSTATE
case (PLASTICITY_TITANMOD_ID) case (PLASTICITY_TITANMOD_ID)
#ifdef NEWSTATE
call constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v,temperature, &
plasticState(mappingConstitutive(2,ipc,ip,el))%state(:,mappingConstitutive(1,ipc,ip,el)), &
ipc,ip,el)
#else
call constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v, & call constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v, &
temperature,constitutive_state(ipc,ip,el),ipc,ip,el) temperature,constitutive_state(ipc,ip,el),ipc,ip,el)
#endif
#ifndef NEWSTATE
case (PLASTICITY_NONLOCAL_ID) case (PLASTICITY_NONLOCAL_ID)
call constitutive_nonlocal_LpAndItsTangent(Lp, dLp_dTstar, Tstar_v, & call constitutive_nonlocal_LpAndItsTangent(Lp, dLp_dTstar, Tstar_v, &
temperature, constitutive_state(ipc,ip,el), ipc,ip,el) temperature, constitutive_state(ipc,ip,el), ipc,ip,el)
@ -824,9 +845,9 @@ subroutine constitutive_collectDotState(Tstar_v, FeArray, FpArray, Temperature,
constitutive_phenopowerlaw_dotState constitutive_phenopowerlaw_dotState
use constitutive_dislotwin, only: & use constitutive_dislotwin, only: &
constitutive_dislotwin_dotState constitutive_dislotwin_dotState
#ifndef NEWSTATE
use constitutive_titanmod, only: & use constitutive_titanmod, only: &
constitutive_titanmod_dotState constitutive_titanmod_dotState
#ifndef NEWSTATE
use constitutive_nonlocal, only: & use constitutive_nonlocal, only: &
constitutive_nonlocal_dotState constitutive_nonlocal_dotState
#endif #endif
@ -884,10 +905,17 @@ subroutine constitutive_collectDotState(Tstar_v, FeArray, FpArray, Temperature,
constitutive_dotState(ipc,ip,el)%p = constitutive_dislotwin_dotState(Tstar_v,Temperature,& constitutive_dotState(ipc,ip,el)%p = constitutive_dislotwin_dotState(Tstar_v,Temperature,&
constitutive_state(ipc,ip,el), ipc,ip,el) constitutive_state(ipc,ip,el), ipc,ip,el)
#endif #endif
#ifndef NEWSTATE
case (PLASTICITY_TITANMOD_ID) case (PLASTICITY_TITANMOD_ID)
#ifdef NEWSTATE
plasticState(mappingConstitutive(2,ipc,ip,el))%dotState(:,mappingConstitutive(1,ipc,ip,el)) &
= constitutive_titanmod_dotState(Tstar_v,Temperature,&
plasticState(mappingConstitutive(2,ipc,ip,el))% &
state(:,mappingConstitutive(1,ipc,ip,el)), ipc,ip,el)
#else
constitutive_dotState(ipc,ip,el)%p = constitutive_titanmod_dotState(Tstar_v,Temperature,& constitutive_dotState(ipc,ip,el)%p = constitutive_titanmod_dotState(Tstar_v,Temperature,&
constitutive_state(ipc,ip,el), ipc,ip,el) constitutive_state(ipc,ip,el), ipc,ip,el)
#endif
#ifndef NEWSTATE
case (PLASTICITY_NONLOCAL_ID) case (PLASTICITY_NONLOCAL_ID)
constitutive_dotState(ipc,ip,el)%p = constitutive_nonlocal_dotState(Tstar_v, FeArray, FpArray, & constitutive_dotState(ipc,ip,el)%p = constitutive_nonlocal_dotState(Tstar_v, FeArray, FpArray, &
Temperature, constitutive_state, constitutive_state0, subdt, & Temperature, constitutive_state, constitutive_state0, subdt, &
@ -997,9 +1025,9 @@ function constitutive_postResults(Tstar_v, FeArray, temperature, ipc, ip, el)
constitutive_phenopowerlaw_postResults constitutive_phenopowerlaw_postResults
use constitutive_dislotwin, only: & use constitutive_dislotwin, only: &
constitutive_dislotwin_postResults constitutive_dislotwin_postResults
#ifndef NEWSTATE
use constitutive_titanmod, only: & use constitutive_titanmod, only: &
constitutive_titanmod_postResults constitutive_titanmod_postResults
#ifndef NEWSTATE
use constitutive_nonlocal, only: & use constitutive_nonlocal, only: &
constitutive_nonlocal_postResults constitutive_nonlocal_postResults
#endif #endif
@ -1022,16 +1050,16 @@ function constitutive_postResults(Tstar_v, FeArray, temperature, ipc, ip, el)
select case (phase_plasticity(material_phase(ipc,ip,el))) select case (phase_plasticity(material_phase(ipc,ip,el)))
case (PLASTICITY_NONE_ID) case (PLASTICITY_NONE_ID)
#ifndef NEWSTATE
case (PLASTICITY_TITANMOD_ID) case (PLASTICITY_TITANMOD_ID)
#ifdef NEWSTATE
constitutive_postResults = constitutive_titanmod_postResults(&
plasticState(mappingConstitutive(2,ipc,ip,el))% &
state(:,mappingConstitutive(1,ipc,ip,el)),ipc,ip,el)
#else
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)
#endif #endif
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
#ifdef NEWSTATE #ifdef NEWSTATE
constitutive_postResults= constitutive_j2_postResults(Tstar_v, & constitutive_postResults= constitutive_j2_postResults(Tstar_v, &
plasticState(mappingConstitutive(2,ipc,ip,el))% & plasticState(mappingConstitutive(2,ipc,ip,el))% &

388
code/constitutive_titanmod.f90
View File

@ -219,8 +219,15 @@ subroutine constitutive_titanmod_init(fileUnit)
phase_Noutput, & phase_Noutput, &
PLASTICITY_TITANMOD_label, & PLASTICITY_TITANMOD_label, &
PLASTICITY_TITANMOD_ID, & PLASTICITY_TITANMOD_ID, &
#ifdef NEWSTATE
plasticState, &
#endif
MATERIAL_partPhase MATERIAL_partPhase
use lattice use lattice
#ifdef NEWSTATE
use numerics,only: &
numerics_integrator
#endif
implicit none implicit none
integer(pInt), intent(in) :: fileUnit integer(pInt), intent(in) :: fileUnit
@ -238,6 +245,10 @@ subroutine constitutive_titanmod_init(fileUnit)
Nchunks_SlipFamilies, Nchunks_TwinFamilies, & Nchunks_SlipFamilies, Nchunks_TwinFamilies, &
mySize, & mySize, &
maxTotalNslip,maxTotalNtwin, maxNinstance maxTotalNslip,maxTotalNtwin, maxNinstance
#ifdef NEWSTATE
integer(pInt) :: sizeState, sizeDotState
#endif
integer(pInt) :: NofMyPhase
character(len=65536) :: & character(len=65536) :: &
tag = '', & tag = '', &
line = '' line = ''
@ -735,6 +746,16 @@ subroutine constitutive_titanmod_init(fileUnit)
size(constitutive_titanmod_listDependentSlipStates)*ns + & size(constitutive_titanmod_listDependentSlipStates)*ns + &
size(constitutive_titanmod_listDependentTwinStates)*nt size(constitutive_titanmod_listDependentTwinStates)*nt
#ifdef NEWSTATE
sizeDotState = &
size(constitutive_titanmod_listBasicSlipStates)*ns + &
size(constitutive_titanmod_listBasicTwinStates)*nt
sizeState = &
constitutive_titanmod_sizeDotState(instance)+ &
size(constitutive_titanmod_listDependentSlipStates)*ns + &
size(constitutive_titanmod_listDependentTwinStates)*nt
#endif
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! determine size of postResults array ! determine size of postResults array
outputsLoop: do o = 1_pInt,constitutive_titanmod_Noutput(instance) outputsLoop: do o = 1_pInt,constitutive_titanmod_Noutput(instance)
@ -767,7 +788,29 @@ subroutine constitutive_titanmod_init(fileUnit)
constitutive_titanmod_sizePostResults(instance) = constitutive_titanmod_sizePostResults(instance) + mySize constitutive_titanmod_sizePostResults(instance) = constitutive_titanmod_sizePostResults(instance) + mySize
endif outputFound endif outputFound
enddo outputsLoop enddo outputsLoop
#ifdef NEWSTATE
! Determine size of state array
plasticState(phase)%sizeState = sizeState
plasticState(phase)%sizeDotState = sizeDotState
allocate(plasticState(phase)%aTolState (sizeState), source=0.0_pReal)
allocate(plasticState(phase)%state0 (sizeState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%partionedState0 (sizeState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%subState0 (sizeState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%state (sizeState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%state_backup (sizeState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%dotState (sizeDotState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%deltaState (sizeDotState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%dotState_backup (sizeDotState,NofMyPhase), source=0.0_pReal)
if (any(numerics_integrator == 1_pInt)) then
allocate(plasticState(phase)%previousDotState (sizeDotState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%previousDotState2 (sizeDotState,NofMyPhase), source=0.0_pReal)
endif
if (any(numerics_integrator == 4_pInt)) &
allocate(plasticState(phase)%RK4dotState (sizeDotState,NofMyPhase), source=0.0_pReal)
if (any(numerics_integrator == 5_pInt)) &
allocate(plasticState(phase)%RKCK45dotState (6,sizeDotState,NofMyPhase),source=0.0_pReal)
#endif
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! construction of the twin elasticity matrices ! construction of the twin elasticity matrices
do j=1_pInt,lattice_maxNtwinFamily do j=1_pInt,lattice_maxNtwinFamily
@ -959,6 +1002,122 @@ end subroutine constitutive_titanmod_init
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief sets the initial microstructural state for a given instance of this plasticity !> @brief sets the initial microstructural state for a given instance of this plasticity
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
#ifdef NEWSTATE
subroutine constitutive_titanmod_stateInit(instance,phase)
use lattice, only: &
lattice_maxNslipFamily, &
lattice_maxNtwinFamily, &
lattice_mu
use material, only: &
plasticState
implicit none
integer(pInt), intent(in) :: instance !< number specifying the instance of the plasticity
integer(pInt), intent(in) :: phase !< number specifying the phase of the plasticity
integer(pInt) :: &
s,s0,s1, &
t,t0,t1, &
ns,nt,f
real(pReal), dimension(constitutive_titanmod_totalNslip(instance)) :: &
rho_edge0, &
rho_screw0, &
shear_system0, &
segment_edge0, &
segment_screw0, &
resistance_edge0, &
resistance_screw0
real(pReal), dimension(constitutive_titanmod_totalNtwin(instance)) :: &
twingamma_dot0, &
resistance_twin0
real(pReal), dimension(plasticState(phase)%sizeState) :: tempState
ns = constitutive_titanmod_totalNslip(instance)
nt = constitutive_titanmod_totalNtwin(instance)
tempState = 0.0_pReal
!--------------------------------------------------------------------------------------------------
! initialize basic slip state variables for slip
s1 = 0_pInt
do f = 1_pInt,lattice_maxNslipFamily
s0 = s1 + 1_pInt
s1 = s0 + constitutive_titanmod_Nslip(f,instance) - 1_pInt
do s = s0,s1
rho_edge0(s) = constitutive_titanmod_rho_edge0(f,instance)
rho_screw0(s) = constitutive_titanmod_rho_screw0(f,instance)
shear_system0(s) = 0.0_pReal
enddo
enddo
!--------------------------------------------------------------------------------------------------
! initialize basic slip state variables for twin
t1 = 0_pInt
do f = 1_pInt,lattice_maxNtwinFamily
t0 = t1 + 1_pInt
t1 = t0 + constitutive_titanmod_Ntwin(f,instance) - 1_pInt
do t = t0,t1
twingamma_dot0(t)=0.0_pReal
enddo
enddo
!--------------------------------------------------------------------------------------------------
! initialize dependent slip microstructural variables
forall (s = 1_pInt:ns)
segment_edge0(s) = constitutive_titanmod_CeLambdaSlipPerSlipSys(s,instance)/ &
sqrt(dot_product((rho_edge0),constitutive_titanmod_forestProjectionEdge(1:ns,s,instance))+ &
dot_product((rho_screw0),constitutive_titanmod_forestProjectionScrew(1:ns,s,instance)))
segment_screw0(s) = constitutive_titanmod_CsLambdaSlipPerSlipSys(s,instance)/ &
sqrt(dot_product((rho_edge0),constitutive_titanmod_forestProjectionEdge(1:ns,s,instance))+ &
dot_product((rho_screw0),constitutive_titanmod_forestProjectionScrew(1:ns,s,instance)))
resistance_edge0(s) = &
lattice_mu(phase)*constitutive_titanmod_burgersPerSlipSys(s,instance)* &
sqrt(dot_product((rho_edge0),constitutive_titanmod_interactionMatrix_ee(1:ns,s,instance))+ &
dot_product((rho_screw0),constitutive_titanmod_interactionMatrix_es(1:ns,s,instance)))
resistance_screw0(s) = &
lattice_mu(phase)*constitutive_titanmod_burgersPerSlipSys(s,instance)* &
sqrt(dot_product((rho_edge0),constitutive_titanmod_interactionMatrix_es(1:ns,s,instance))+ &
dot_product((rho_screw0), constitutive_titanmod_interactionMatrix_ss(1:ns,s,instance)))
end forall
forall (t = 1_pInt:nt) &
resistance_twin0(t) = 0.0_pReal
tempState = 0.0_pReal
tempState (1:ns) = rho_edge0
tempState (1_pInt*ns+1_pInt:2_pInt*ns) = rho_screw0
tempState (2_pInt*ns+1_pInt:3_pInt*ns) = shear_system0
tempState (3_pInt*ns+1_pInt:3_pInt*ns+nt) = twingamma_dot0
tempState (3_pInt*ns+nt+1_pInt:4_pInt*ns+nt) = segment_edge0
tempState (4_pInt*ns+nt+1_pInt:5_pInt*ns+nt) = segment_screw0
tempState (5_pInt*ns+nt+1_pInt:6_pInt*ns+nt) = resistance_edge0
tempState (6_pInt*ns+nt+1_pInt:7_pInt*ns+nt) = resistance_screw0
tempState (7_pInt*ns+nt+1_pInt:7_pInt*ns+2_pInt*nt)=resistance_twin0
end subroutine constitutive_titanmod_stateInit
!--------------------------------------------------------------------------------------------------
!> @brief sets the relevant state values for a given instance of this plasticity
!--------------------------------------------------------------------------------------------------
subroutine constitutive_titanmod_aTolState(phase,instance)
use material, only: &
plasticState
implicit none
integer(pInt), intent(in) :: &
instance, &
phase
! real(pReal), dimension(size(plasticState(phase)%aTolState(:))) :: tempTol
real(pReal), dimension(plasticState(phase)%sizeState) :: tempTol
tempTol = 0.0_pReal
tempTol = constitutive_titanmod_aTolRho(instance)
end subroutine constitutive_titanmod_aTolState
#else
pure function constitutive_titanmod_stateInit(instance,phase) pure function constitutive_titanmod_stateInit(instance,phase)
use lattice, only: & use lattice, only: &
lattice_maxNslipFamily, & lattice_maxNslipFamily, &
@ -1066,7 +1225,7 @@ pure function constitutive_titanmod_aTolState(instance)
end function constitutive_titanmod_aTolState end function constitutive_titanmod_aTolState
#endif
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief returns the homogenized elasticity matrix !> @brief returns the homogenized elasticity matrix
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
@ -1090,8 +1249,17 @@ implicit none
ipc, & !< component-ID of integration point ipc, & !< component-ID of integration point
ip, & !< integration point ip, & !< integration point
el !< element el !< element
#ifdef NEWSTATE
real(pReal), dimension(:), intent(in) :: &
state
real(pReal), dimension(size(state)) :: &
tempState
#else
type(p_vec), intent(in) :: & type(p_vec), intent(in) :: &
state !< microstructure state state !< microstructure state
real(pReal), dimension(size(state%p)) :: &
tempState
#endif
real(pReal), dimension(constitutive_titanmod_totalNtwin(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: & real(pReal), dimension(constitutive_titanmod_totalNtwin(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
volumefraction_PerTwinSys volumefraction_PerTwinSys
integer(pInt) :: & integer(pInt) :: &
@ -1102,6 +1270,12 @@ real(pReal), dimension(constitutive_titanmod_totalNtwin(phase_plasticityInstance
real(pReal) :: & real(pReal) :: &
sumf sumf
tempState = 0.0_pReal
#ifdef NEWSTATE
tempState=state
#else
tempState = state%p
#endif
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! shortened notation ! shortened notation
phase = material_phase(ipc,ip,el) phase = material_phase(ipc,ip,el)
@ -1112,7 +1286,7 @@ real(pReal), dimension(constitutive_titanmod_totalNtwin(phase_plasticityInstance
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! total twin volume fraction ! total twin volume fraction
do i=1_pInt,nt do i=1_pInt,nt
volumefraction_PerTwinSys(i)=state%p(3_pInt*ns+i)/ & volumefraction_PerTwinSys(i)=tempState(3_pInt*ns+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSys(i,instance) constitutive_titanmod_twinshearconstant_PerTwinSys(i,instance)
enddo enddo
sumf = sum(abs(volumefraction_PerTwinSys(1:nt))) ! safe for nt == 0 sumf = sum(abs(volumefraction_PerTwinSys(1:nt))) ! safe for nt == 0
@ -1152,8 +1326,17 @@ subroutine constitutive_titanmod_microstructure(temperature,state,ipc,ip,el)
el !< element el !< element
real(pReal), intent(in) :: & real(pReal), intent(in) :: &
temperature !< temperature at IP temperature !< temperature at IP
#ifdef NEWSTATE
real(pReal), dimension(:), intent(inout) :: &
state
real(pReal), dimension(size(state)) :: &
tempState
#else
type(p_vec), intent(inout) :: & type(p_vec), intent(inout) :: &
state !< microstructure state state !< microstructure state
real(pReal), dimension(size(state%p)) :: &
tempState
#endif
integer(pInt) :: & integer(pInt) :: &
instance, & instance, &
@ -1166,6 +1349,12 @@ subroutine constitutive_titanmod_microstructure(temperature,state,ipc,ip,el)
volumefraction_PerTwinSys volumefraction_PerTwinSys
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
#ifdef NEWSTATE
tempState=state
#else
tempState = state%p
#endif
!Shortened notation !Shortened notation
phase = material_phase(ipc,ip,el) phase = material_phase(ipc,ip,el)
instance = phase_plasticityInstance(phase) instance = phase_plasticityInstance(phase)
@ -1175,7 +1364,7 @@ subroutine constitutive_titanmod_microstructure(temperature,state,ipc,ip,el)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! total twin volume fraction ! total twin volume fraction
forall (i = 1_pInt:nt) & forall (i = 1_pInt:nt) &
volumefraction_PerTwinSys(i)=state%p(3_pInt*ns+i)/ & volumefraction_PerTwinSys(i)=tempState(3_pInt*ns+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSys(i,instance) constitutive_titanmod_twinshearconstant_PerTwinSys(i,instance)
sumf = sum(abs(volumefraction_PerTwinSys(1:nt))) ! safe for nt == 0 sumf = sum(abs(volumefraction_PerTwinSys(1:nt))) ! safe for nt == 0
@ -1185,45 +1374,51 @@ subroutine constitutive_titanmod_microstructure(temperature,state,ipc,ip,el)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! average segment length for edge dislocations in matrix ! average segment length for edge dislocations in matrix
forall (s = 1_pInt:ns) & forall (s = 1_pInt:ns) &
state%p(3_pInt*ns+nt+s) = constitutive_titanmod_CeLambdaSlipPerSlipSys(s,instance)/ & tempState(3_pInt*ns+nt+s) = constitutive_titanmod_CeLambdaSlipPerSlipSys(s,instance)/ &
sqrt(dot_product(state%p(1:ns), & sqrt(dot_product(tempState(1:ns), &
constitutive_titanmod_forestProjectionEdge(1:ns,s,instance))+ & constitutive_titanmod_forestProjectionEdge(1:ns,s,instance))+ &
dot_product(state%p(ns+1_pInt:2_pInt*ns), & dot_product(tempState(ns+1_pInt:2_pInt*ns), &
constitutive_titanmod_forestProjectionScrew(1:ns,s,instance))) constitutive_titanmod_forestProjectionScrew(1:ns,s,instance)))
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! average segment length for screw dislocations in matrix ! average segment length for screw dislocations in matrix
forall (s = 1_pInt:ns) & forall (s = 1_pInt:ns) &
state%p(4_pInt*ns+nt+s) = constitutive_titanmod_CsLambdaSlipPerSlipSys(s,instance)/ & tempState(4_pInt*ns+nt+s) = constitutive_titanmod_CsLambdaSlipPerSlipSys(s,instance)/ &
sqrt(dot_product(state%p(1:ns), & sqrt(dot_product(tempState(1:ns), &
constitutive_titanmod_forestProjectionEdge(1:ns,s,instance))+ & constitutive_titanmod_forestProjectionEdge(1:ns,s,instance))+ &
dot_product(state%p(ns+1_pInt:2_pInt*ns), & dot_product(tempState(ns+1_pInt:2_pInt*ns), &
constitutive_titanmod_forestProjectionScrew(1:ns,s,instance))) constitutive_titanmod_forestProjectionScrew(1:ns,s,instance)))
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! threshold stress or slip resistance for edge dislocation motion ! threshold stress or slip resistance for edge dislocation motion
forall (s = 1_pInt:ns) & forall (s = 1_pInt:ns) &
state%p(5_pInt*ns+nt+s) = & tempState(5_pInt*ns+nt+s) = &
lattice_mu(phase)*constitutive_titanmod_burgersPerSlipSys(s,instance)*& lattice_mu(phase)*constitutive_titanmod_burgersPerSlipSys(s,instance)*&
sqrt(dot_product((state%p(1:ns)),& sqrt(dot_product((tempState(1:ns)),&
constitutive_titanmod_interactionMatrix_ee(1:ns,s,instance))+ & constitutive_titanmod_interactionMatrix_ee(1:ns,s,instance))+ &
dot_product((state%p(ns+1_pInt:2_pInt*ns)),& dot_product((tempState(ns+1_pInt:2_pInt*ns)),&
constitutive_titanmod_interactionMatrix_es(1:ns,s,instance))) constitutive_titanmod_interactionMatrix_es(1:ns,s,instance)))
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! threshold stress or slip resistance for screw dislocation motion ! threshold stress or slip resistance for screw dislocation motion
forall (s = 1_pInt:ns) & forall (s = 1_pInt:ns) &
state%p(6_pInt*ns+nt+s) = & tempState(6_pInt*ns+nt+s) = &
lattice_mu(phase)*constitutive_titanmod_burgersPerSlipSys(s,instance)*& lattice_mu(phase)*constitutive_titanmod_burgersPerSlipSys(s,instance)*&
sqrt(dot_product((state%p(1:ns)),& sqrt(dot_product((tempState(1:ns)),&
constitutive_titanmod_interactionMatrix_es(1:ns,s,instance))+ & constitutive_titanmod_interactionMatrix_es(1:ns,s,instance))+ &
dot_product((state%p(ns+1_pInt:2_pInt*ns)),& dot_product((tempState(ns+1_pInt:2_pInt*ns)),&
constitutive_titanmod_interactionMatrix_ss(1:ns,s,instance))) constitutive_titanmod_interactionMatrix_ss(1:ns,s,instance)))
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! threshold stress or slip resistance for dislocation motion in twin ! threshold stress or slip resistance for dislocation motion in twin
forall (t = 1_pInt:nt) & forall (t = 1_pInt:nt) &
state%p(7_pInt*ns+nt+t) = & tempState(7_pInt*ns+nt+t) = &
lattice_mu(phase)*constitutive_titanmod_burgersPerTwinSys(t,instance)*& lattice_mu(phase)*constitutive_titanmod_burgersPerTwinSys(t,instance)*&
(dot_product((abs(state%p(2_pInt*ns+1_pInt:2_pInt*ns+nt))),& (dot_product((abs(tempState(2_pInt*ns+1_pInt:2_pInt*ns+nt))),&
constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,instance))) constitutive_titanmod_interactionMatrixTwinTwin(1:nt,t,instance)))
#ifdef NEWSTATE
state=tempState
#else
state%p = tempState
#endif
end subroutine constitutive_titanmod_microstructure end subroutine constitutive_titanmod_microstructure
@ -1270,8 +1465,17 @@ subroutine constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,&
ipc, & !< component-ID of integration point ipc, & !< component-ID of integration point
ip, & !< integration point ip, & !< integration point
el !< element el !< element
#ifdef NEWSTATE
real(pReal), dimension(:), intent(inout) :: &
state
real(pReal), dimension(size(state)) :: &
tempState
#else
type(p_vec), intent(inout) :: & type(p_vec), intent(inout) :: &
state !< microstructure state state !< microstructure state
real(pReal), dimension(size(state%p)) :: &
tempState
#endif
integer(pInt) :: & integer(pInt) :: &
index_myFamily, instance,phase, & index_myFamily, instance,phase, &
ns,nt, & ns,nt, &
@ -1289,6 +1493,14 @@ subroutine constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,&
real(pReal), dimension(constitutive_titanmod_totalNtwin(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: & real(pReal), dimension(constitutive_titanmod_totalNtwin(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
gdot_twin,dgdot_dtautwin,tau_twin, volumefraction_PerTwinSys gdot_twin,dgdot_dtautwin,tau_twin, volumefraction_PerTwinSys
#ifdef NEWSTATE
tempState=state
#else
tempState = state%p
#endif
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! shortened notation ! shortened notation
phase = material_phase(ipc,ip,el) phase = material_phase(ipc,ip,el)
@ -1297,7 +1509,7 @@ subroutine constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,&
nt = constitutive_titanmod_totalNtwin(instance) nt = constitutive_titanmod_totalNtwin(instance)
do i=1_pInt,nt do i=1_pInt,nt
volumefraction_PerTwinSys(i)=state%p(3_pInt*ns+i)/ & volumefraction_PerTwinSys(i)=tempState(3_pInt*ns+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSys(i,instance) constitutive_titanmod_twinshearconstant_PerTwinSys(i,instance)
enddo enddo
@ -1325,7 +1537,7 @@ subroutine constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,&
tau_slip(j) = dot_product(Tstar_v,lattice_Sslip_v(:,1,index_myFamily+i,phase)) tau_slip(j) = dot_product(Tstar_v,lattice_Sslip_v(:,1,index_myFamily+i,phase))
if(lattice_structure(phase)==LATTICE_hex_ID) then ! only for prismatic and pyr <a> systems in hex if(lattice_structure(phase)==LATTICE_hex_ID) then ! only for prismatic and pyr <a> systems in hex
screwvelocity_prefactor=constitutive_titanmod_debyefrequency(instance)* & screwvelocity_prefactor=constitutive_titanmod_debyefrequency(instance)* &
state%p(4_pInt*ns+nt+j)*(constitutive_titanmod_burgersPerSlipSys(j,instance)/ & tempState(4_pInt*ns+nt+j)*(constitutive_titanmod_burgersPerSlipSys(j,instance)/ &
constitutive_titanmod_kinkcriticallength_PerSlipSys(j,instance))**2 constitutive_titanmod_kinkcriticallength_PerSlipSys(j,instance))**2
!* Stress ratio for screw ! No slip resistance for screw dislocations, only Peierls stress !* Stress ratio for screw ! No slip resistance for screw dislocations, only Peierls stress
@ -1350,7 +1562,7 @@ subroutine constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,&
else ! if the structure is not hex or the slip family is basal else ! if the structure is not hex or the slip family is basal
screwvelocity_prefactor=constitutive_titanmod_v0s_PerSlipSys(j,instance) screwvelocity_prefactor=constitutive_titanmod_v0s_PerSlipSys(j,instance)
bottomstress_screw=constitutive_titanmod_tau0s_PerSlipSys(j,instance)+state%p(6*ns+nt+j) bottomstress_screw=constitutive_titanmod_tau0s_PerSlipSys(j,instance)+tempState(6*ns+nt+j)
StressRatio_screw_p = ((abs(tau_slip(j)))/( bottomstress_screw ))**constitutive_titanmod_ps_PerSlipSys(j,instance) StressRatio_screw_p = ((abs(tau_slip(j)))/( bottomstress_screw ))**constitutive_titanmod_ps_PerSlipSys(j,instance)
if((1.0_pReal-StressRatio_screw_p)>0.001_pReal) then if((1.0_pReal-StressRatio_screw_p)>0.001_pReal) then
@ -1368,7 +1580,7 @@ subroutine constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,&
endif endif
!* Stress ratio for edge !* Stress ratio for edge
bottomstress_edge=constitutive_titanmod_tau0e_PerSlipSys(j,instance)+state%p(5*ns+nt+j) bottomstress_edge=constitutive_titanmod_tau0e_PerSlipSys(j,instance)+tempState(5*ns+nt+j)
StressRatio_edge_p = ((abs(tau_slip(j)))/ & StressRatio_edge_p = ((abs(tau_slip(j)))/ &
( bottomstress_edge) & ( bottomstress_edge) &
)**constitutive_titanmod_pe_PerSlipSys(j,instance) )**constitutive_titanmod_pe_PerSlipSys(j,instance)
@ -1394,29 +1606,29 @@ subroutine constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,&
constitutive_titanmod_qe_PerSlipSys(j,instance)) constitutive_titanmod_qe_PerSlipSys(j,instance))
!* Shear rates due to edge slip !* Shear rates due to edge slip
gdot_slip_edge(j) = constitutive_titanmod_burgersPerSlipSys(j,instance)*(state%p(j)* & gdot_slip_edge(j) = constitutive_titanmod_burgersPerSlipSys(j,instance)*(tempState(j)* &
edge_velocity(j))* sign(1.0_pReal,tau_slip(j)) edge_velocity(j))* sign(1.0_pReal,tau_slip(j))
!* Shear rates due to screw slip !* Shear rates due to screw slip
gdot_slip_screw(j) = constitutive_titanmod_burgersPerSlipSys(j,instance)*(state%p(ns+j) * & gdot_slip_screw(j) = constitutive_titanmod_burgersPerSlipSys(j,instance)*(tempState(ns+j) * &
screw_velocity(j))* sign(1.0_pReal,tau_slip(j)) screw_velocity(j))* sign(1.0_pReal,tau_slip(j))
!Total shear rate !Total shear rate
gdot_slip(j) = gdot_slip_edge(j) + gdot_slip_screw(j) gdot_slip(j) = gdot_slip_edge(j) + gdot_slip_screw(j)
state%p(7*ns+2*nt+j)=edge_velocity(j) tempState(7*ns+2*nt+j)=edge_velocity(j)
state%p(8*ns+2*nt+j)=screw_velocity(j) tempState(8*ns+2*nt+j)=screw_velocity(j)
state%p(9*ns+2*nt+j)=tau_slip(j) tempState(9*ns+2*nt+j)=tau_slip(j)
state%p(10*ns+2*nt+j)=gdot_slip_edge(j) tempState(10*ns+2*nt+j)=gdot_slip_edge(j)
state%p(11*ns+2*nt+j)=gdot_slip_screw(j) tempState(11*ns+2*nt+j)=gdot_slip_screw(j)
state%p(12*ns+2*nt+j)=StressRatio_edge_p tempState(12*ns+2*nt+j)=StressRatio_edge_p
state%p(13*ns+2*nt+j)=StressRatio_screw_p tempState(13*ns+2*nt+j)=StressRatio_screw_p
!* Derivatives of shear rates !* Derivatives of shear rates
dgdot_dtauslip(j) = constitutive_titanmod_burgersPerSlipSys(j,instance)*(( & dgdot_dtauslip(j) = constitutive_titanmod_burgersPerSlipSys(j,instance)*(( &
( & ( &
( & ( &
( & ( &
(edge_velocity(j)*state%p(j))) * & (edge_velocity(j)*tempState(j))) * &
BoltzmannRatioedge*& BoltzmannRatioedge*&
constitutive_titanmod_pe_PerSlipSys(j,instance)* & constitutive_titanmod_pe_PerSlipSys(j,instance)* &
constitutive_titanmod_qe_PerSlipSys(j,instance) & constitutive_titanmod_qe_PerSlipSys(j,instance) &
@ -1429,7 +1641,7 @@ subroutine constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,&
( & ( &
( & ( &
( & ( &
(state%p(ns+j) * screw_velocity(j)) * & (tempState(ns+j) * screw_velocity(j)) * &
BoltzmannRatioscrew* & BoltzmannRatioscrew* &
constitutive_titanmod_ps_PerSlipSys(j,instance)* & constitutive_titanmod_ps_PerSlipSys(j,instance)* &
constitutive_titanmod_qs_PerSlipSys(j,instance) & constitutive_titanmod_qs_PerSlipSys(j,instance) &
@ -1484,7 +1696,7 @@ subroutine constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,&
!* Stress ratio for edge !* Stress ratio for edge
twinStressRatio_p = ((abs(tau_twin(j)))/ & twinStressRatio_p = ((abs(tau_twin(j)))/ &
( constitutive_titanmod_twintau0_PerTwinSys(j,instance)+state%p(7*ns+nt+j)) & ( constitutive_titanmod_twintau0_PerTwinSys(j,instance)+tempState(7*ns+nt+j)) &
)**constitutive_titanmod_twinp_PerTwinSys(j,instance) )**constitutive_titanmod_twinp_PerTwinSys(j,instance)
if((1.0_pReal-twinStressRatio_p)>0.001_pReal) then if((1.0_pReal-twinStressRatio_p)>0.001_pReal) then
@ -1494,7 +1706,7 @@ subroutine constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,&
endif endif
twinStressRatio_pminus1 = ((abs(tau_twin(j)))/ & twinStressRatio_pminus1 = ((abs(tau_twin(j)))/ &
( constitutive_titanmod_twintau0_PerTwinSys(j,instance)+state%p(7*ns+nt+j)) & ( constitutive_titanmod_twintau0_PerTwinSys(j,instance)+tempState(7*ns+nt+j)) &
)**(constitutive_titanmod_twinp_PerTwinSys(j,instance)-1.0_pReal) )**(constitutive_titanmod_twinp_PerTwinSys(j,instance)-1.0_pReal)
!* Boltzmann ratio !* Boltzmann ratio
@ -1538,6 +1750,11 @@ subroutine constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar99,Tstar_v,&
enddo twinFamiliesLoop enddo twinFamiliesLoop
dLp_dTstar99 = math_Plain3333to99(dLp_dTstar3333) dLp_dTstar99 = math_Plain3333to99(dLp_dTstar3333)
#ifdef NEWSTATE
tempState=state
#else
tempState = state%p
#endif
end subroutine constitutive_titanmod_LpAndItsTangent end subroutine constitutive_titanmod_LpAndItsTangent
@ -1571,10 +1788,21 @@ implicit none
ipc, & !< component-ID of integration point ipc, & !< component-ID of integration point
ip, & !< integration point ip, & !< integration point
el !< element el !< element
#ifdef NEWSTATE
real(pReal), dimension(:), intent(in) :: &
state
real(pReal), dimension(size(state)) :: &
tempState
real(pReal), dimension(size(state)) :: &
constitutive_titanmod_dotState
#else
type(p_vec), intent(in) :: & type(p_vec), intent(in) :: &
state !< microstructure state state !< microstructure state
real(pReal), dimension(size(state%p)) :: &
tempState
real(pReal), dimension(constitutive_titanmod_sizeDotState(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: & real(pReal), dimension(constitutive_titanmod_sizeDotState(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
constitutive_titanmod_dotState constitutive_titanmod_dotState
#endif
integer(pInt) :: & integer(pInt) :: &
index_myFamily, instance,phase, & index_myFamily, instance,phase, &
@ -1601,7 +1829,7 @@ implicit none
nt = constitutive_titanmod_totalNtwin(instance) nt = constitutive_titanmod_totalNtwin(instance)
do i=1_pInt,nt do i=1_pInt,nt
volumefraction_PerTwinSys(i)=state%p(3_pInt*ns+i)/ & volumefraction_PerTwinSys(i)=tempState(3_pInt*ns+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSys(i,instance) constitutive_titanmod_twinshearconstant_PerTwinSys(i,instance)
enddo enddo
@ -1617,13 +1845,13 @@ implicit none
j = j+1_pInt j = j+1_pInt
DotRhoEdgeGeneration(j) = & ! multiplication of edge dislocations DotRhoEdgeGeneration(j) = & ! multiplication of edge dislocations
state%p(ns+j)*state%p(8*ns+2*nt+j)/state%p(4*ns+nt+j) tempState(ns+j)*tempState(8*ns+2*nt+j)/tempState(4*ns+nt+j)
DotRhoScrewGeneration(j) = & ! multiplication of screw dislocations DotRhoScrewGeneration(j) = & ! multiplication of screw dislocations
state%p(j)*state%p(7*ns+2*nt+j)/state%p(3*ns+nt+j) tempState(j)*tempState(7*ns+2*nt+j)/tempState(3*ns+nt+j)
DotRhoEdgeAnnihilation(j) = -((state%p(j))**2)* & ! annihilation of edge dislocations DotRhoEdgeAnnihilation(j) = -((tempState(j))**2)* & ! annihilation of edge dislocations
constitutive_titanmod_capre_PerSlipSys(j,instance)*state%p(7*ns+2*nt+j)*0.5_pReal constitutive_titanmod_capre_PerSlipSys(j,instance)*tempState(7*ns+2*nt+j)*0.5_pReal
DotRhoScrewAnnihilation(j) = -((state%p(ns+j))**2)* & ! annihilation of screw dislocations DotRhoScrewAnnihilation(j) = -((tempState(ns+j))**2)* & ! annihilation of screw dislocations
constitutive_titanmod_caprs_PerSlipSys(j,instance)*state%p(8*ns+2*nt+j)*0.5_pReal constitutive_titanmod_caprs_PerSlipSys(j,instance)*tempState(8*ns+2*nt+j)*0.5_pReal
constitutive_titanmod_dotState(j) = & ! edge dislocation density rate of change constitutive_titanmod_dotState(j) = & ! edge dislocation density rate of change
DotRhoEdgeGeneration(j)+DotRhoEdgeAnnihilation(j) DotRhoEdgeGeneration(j)+DotRhoEdgeAnnihilation(j)
@ -1631,7 +1859,7 @@ implicit none
DotRhoScrewGeneration(j)+DotRhoScrewAnnihilation(j) DotRhoScrewGeneration(j)+DotRhoScrewAnnihilation(j)
constitutive_titanmod_dotState(2*ns+j) = & ! sum of shear due to edge and screw constitutive_titanmod_dotState(2*ns+j) = & ! sum of shear due to edge and screw
state%p(10*ns+2*nt+j)+state%p(11*ns+2*nt+j) tempState(10*ns+2*nt+j)+tempState(11*ns+2*nt+j)
enddo enddo
enddo slipFamiliesLoop enddo slipFamiliesLoop
@ -1647,7 +1875,7 @@ implicit none
!* Stress ratio for edge !* Stress ratio for edge
twinStressRatio_p = ((abs(tau_twin(j)))/ & twinStressRatio_p = ((abs(tau_twin(j)))/ &
( constitutive_titanmod_twintau0_PerTwinSys(j,instance)+state%p(7*ns+nt+j)) & ( constitutive_titanmod_twintau0_PerTwinSys(j,instance)+tempState(7*ns+nt+j)) &
)**(constitutive_titanmod_twinp_PerTwinSys(j,instance)) )**(constitutive_titanmod_twinp_PerTwinSys(j,instance))
@ -1691,8 +1919,17 @@ pure function constitutive_titanmod_postResults(state,ipc,ip,el)
ipc, & !< component-ID of integration point ipc, & !< component-ID of integration point
ip, & !< integration point ip, & !< integration point
el !< element el !< element
#ifdef NEWSTATE
real(pReal), dimension(:), intent(in) :: &
state
real(pReal), dimension(size(state)) :: &
tempState
#else
type(p_vec), intent(in) :: & type(p_vec), intent(in) :: &
state !< microstructure state state !< microstructure state
real(pReal), dimension(size(state%p)) :: &
tempState
#endif
real(pReal), dimension(constitutive_titanmod_sizePostResults(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: & real(pReal), dimension(constitutive_titanmod_sizePostResults(phase_plasticityInstance(material_phase(ipc,ip,el)))) :: &
constitutive_titanmod_postResults constitutive_titanmod_postResults
@ -1706,6 +1943,11 @@ pure function constitutive_titanmod_postResults(state,ipc,ip,el)
volumefraction_PerTwinSys volumefraction_PerTwinSys
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
#ifdef NEWSTATE
tempState=state
#else
tempState = state%p
#endif
! shortened notation ! shortened notation
phase = material_phase(ipc,ip,el) phase = material_phase(ipc,ip,el)
instance = phase_plasticityInstance(phase) instance = phase_plasticityInstance(phase)
@ -1713,7 +1955,7 @@ pure function constitutive_titanmod_postResults(state,ipc,ip,el)
nt = constitutive_titanmod_totalNtwin(instance) nt = constitutive_titanmod_totalNtwin(instance)
do i=1_pInt,nt do i=1_pInt,nt
volumefraction_PerTwinSys(i)=state%p(3_pInt*ns+i)/ & volumefraction_PerTwinSys(i)=tempState(3_pInt*ns+i)/ &
constitutive_titanmod_twinshearconstant_PerTwinSys(i,instance) constitutive_titanmod_twinshearconstant_PerTwinSys(i,instance)
enddo enddo
@ -1728,91 +1970,91 @@ pure function constitutive_titanmod_postResults(state,ipc,ip,el)
do o = 1_pInt,phase_Noutput(material_phase(ipc,ip,el)) do o = 1_pInt,phase_Noutput(material_phase(ipc,ip,el))
select case(constitutive_titanmod_outputID(o,instance)) select case(constitutive_titanmod_outputID(o,instance))
case (rhoedge_ID) case (rhoedge_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = state%p(1_pInt:ns) constitutive_titanmod_postResults(c+1_pInt:c+ns) = tempState(1_pInt:ns)
c = c + ns c = c + ns
case (rhoscrew_ID) case (rhoscrew_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = state%p(ns+1_pInt:2_pInt*ns) constitutive_titanmod_postResults(c+1_pInt:c+ns) = tempState(ns+1_pInt:2_pInt*ns)
c = c + ns c = c + ns
case (segment_edge_ID) case (segment_edge_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = state%p(3_pInt*ns+nt+1_pInt:4_pInt*ns+nt) constitutive_titanmod_postResults(c+1_pInt:c+ns) = tempState(3_pInt*ns+nt+1_pInt:4_pInt*ns+nt)
c = c + ns c = c + ns
case (segment_screw_ID) case (segment_screw_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = state%p(4_pInt*ns+nt+1_pInt:5_pInt*ns+nt) constitutive_titanmod_postResults(c+1_pInt:c+ns) = tempState(4_pInt*ns+nt+1_pInt:5_pInt*ns+nt)
c = c + ns c = c + ns
case (resistance_edge_ID) case (resistance_edge_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = state%p(5_pInt*ns+nt+1_pInt:6_pInt*ns+nt) constitutive_titanmod_postResults(c+1_pInt:c+ns) = tempState(5_pInt*ns+nt+1_pInt:6_pInt*ns+nt)
c = c + ns c = c + ns
case (resistance_screw_ID) case (resistance_screw_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = state%p(6_pInt*ns+nt+1_pInt:7_pInt*ns+nt) constitutive_titanmod_postResults(c+1_pInt:c+ns) = tempState(6_pInt*ns+nt+1_pInt:7_pInt*ns+nt)
c = c + ns c = c + ns
case (velocity_edge_ID) case (velocity_edge_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = state%p(7*ns+2*nt+1:8*ns+2*nt) constitutive_titanmod_postResults(c+1_pInt:c+ns) = tempState(7*ns+2*nt+1:8*ns+2*nt)
c = c + ns c = c + ns
case (velocity_screw_ID) case (velocity_screw_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = state%p(8*ns+2*nt+1:9*ns+2*nt) constitutive_titanmod_postResults(c+1_pInt:c+ns) = tempState(8*ns+2*nt+1:9*ns+2*nt)
c = c + ns c = c + ns
case (tau_slip_ID) case (tau_slip_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = abs(state%p(9*ns+2*nt+1:10*ns+2*nt)) constitutive_titanmod_postResults(c+1_pInt:c+ns) = abs(tempState(9*ns+2*nt+1:10*ns+2*nt))
c = c + ns c = c + ns
case (gdot_slip_edge_ID) case (gdot_slip_edge_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = abs(state%p(10*ns+2*nt+1:11*ns+2*nt)) constitutive_titanmod_postResults(c+1_pInt:c+ns) = abs(tempState(10*ns+2*nt+1:11*ns+2*nt))
c = c + ns c = c + ns
case (gdot_slip_screw_ID) case (gdot_slip_screw_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = abs(state%p(11*ns+2*nt+1:12*ns+2*nt)) constitutive_titanmod_postResults(c+1_pInt:c+ns) = abs(tempState(11*ns+2*nt+1:12*ns+2*nt))
c = c + ns c = c + ns
case (gdot_slip_ID) case (gdot_slip_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = abs(state%p(10*ns+2*nt+1:11*ns+2*nt)) + & constitutive_titanmod_postResults(c+1_pInt:c+ns) = abs(tempState(10*ns+2*nt+1:11*ns+2*nt)) + &
abs(state%p(11*ns+2*nt+1:12*ns+2*nt)) abs(tempState(11*ns+2*nt+1:12*ns+2*nt))
c = c + ns c = c + ns
case (stressratio_edge_p_ID) case (stressratio_edge_p_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = abs(state%p(12*ns+2*nt+1:13*ns+2*nt)) constitutive_titanmod_postResults(c+1_pInt:c+ns) = abs(tempState(12*ns+2*nt+1:13*ns+2*nt))
c = c + ns c = c + ns
case (stressratio_screw_p_ID) case (stressratio_screw_p_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = abs(state%p(13*ns+2*nt+1:14*ns+2*nt)) constitutive_titanmod_postResults(c+1_pInt:c+ns) = abs(tempState(13*ns+2*nt+1:14*ns+2*nt))
c = c + ns c = c + ns
case (shear_system_ID) case (shear_system_ID)
constitutive_titanmod_postResults(c+1_pInt:c+ns) = abs(state%p(2*ns+1:3*ns)) constitutive_titanmod_postResults(c+1_pInt:c+ns) = abs(tempState(2*ns+1:3*ns))
c = c + ns c = c + ns
case (shear_basal_ID) case (shear_basal_ID)
constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(abs(state%p(2*ns+1:2*ns+3))) constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(abs(tempState(2*ns+1:2*ns+3)))
c = c + 1_pInt c = c + 1_pInt
case (shear_prism_ID) case (shear_prism_ID)
constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(abs(state%p(2*ns+4:2*ns+6))) constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(abs(tempState(2*ns+4:2*ns+6)))
c = c + 1_pInt c = c + 1_pInt
case (shear_pyra_ID) case (shear_pyra_ID)
constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(abs(state%p(2*ns+7:2*ns+12))) constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(abs(tempState(2*ns+7:2*ns+12)))
c = c + 1_pInt c = c + 1_pInt
case (shear_pyrca_ID) case (shear_pyrca_ID)
constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(abs(state%p(2*ns+13:2*ns+24))) constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(abs(tempState(2*ns+13:2*ns+24)))
c = c + 1_pInt c = c + 1_pInt
case (rhoedge_basal_ID) case (rhoedge_basal_ID)
constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(state%p(1:3)) constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(tempState(1:3))
c = c + 1_pInt c = c + 1_pInt
case (rhoedge_prism_ID) case (rhoedge_prism_ID)
constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(state%p(4:6)) constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(tempState(4:6))
c = c + 1_pInt c = c + 1_pInt
case (rhoedge_pyra_ID) case (rhoedge_pyra_ID)
constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(state%p(7:12)) constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(tempState(7:12))
c = c + 1_pInt c = c + 1_pInt
case (rhoedge_pyrca_ID) case (rhoedge_pyrca_ID)
constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(state%p(13:24)) constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(tempState(13:24))
c = c + 1_pInt c = c + 1_pInt
case (rhoscrew_basal_ID) case (rhoscrew_basal_ID)
constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(state%p(ns+1:ns+3)) constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(tempState(ns+1:ns+3))
c = c + 1_pInt c = c + 1_pInt
case (rhoscrew_prism_ID) case (rhoscrew_prism_ID)
constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(state%p(ns+4:ns+6)) constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(tempState(ns+4:ns+6))
c = c + 1_pInt c = c + 1_pInt
case (rhoscrew_pyra_ID) case (rhoscrew_pyra_ID)
constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(state%p(ns+7:ns+12)) constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(tempState(ns+7:ns+12))
c = c + 1_pInt c = c + 1_pInt
case (rhoscrew_pyrca_ID) case (rhoscrew_pyrca_ID)
constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(state%p(ns+13:ns+24)) constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(tempState(ns+13:ns+24))
c = c + 1_pInt c = c + 1_pInt
case (shear_total_ID) case (shear_total_ID)
constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(abs(state%p(2*ns+1:3*ns))) constitutive_titanmod_postResults(c+1_pInt:c+1_pInt) = sum(abs(tempState(2*ns+1:3*ns)))
c = c + 1_pInt c = c + 1_pInt
case (twin_fraction_ID) case (twin_fraction_ID)
constitutive_titanmod_postResults(c+1_pInt:c+nt) = abs(volumefraction_PerTwinSys(1:nt)) constitutive_titanmod_postResults(c+1_pInt:c+nt) = abs(volumefraction_PerTwinSys(1:nt))

45
code/crystallite.f90
View File

@ -425,7 +425,6 @@ subroutine crystallite_init(temperature)
enddo enddo
enddo enddo
!$OMP END PARALLEL DO !$OMP END PARALLEL DO
call crystallite_stressAndItsTangent(.true.,.false.) ! request elastic answers call crystallite_stressAndItsTangent(.true.,.false.) ! request elastic answers
crystallite_fallbackdPdF = crystallite_dPdF ! use initial elastic stiffness as fallback crystallite_fallbackdPdF = crystallite_dPdF ! use initial elastic stiffness as fallback
@ -1749,9 +1748,9 @@ subroutine crystallite_integrateStateRKCK45()
homogenization_maxNgrains homogenization_maxNgrains
use constitutive, only: & use constitutive, only: &
constitutive_collectDotState, & constitutive_collectDotState, &
constitutive_maxSizeDotState, &
#ifndef NEWSTATE #ifndef NEWSTATE
constitutive_sizeDotState, & constitutive_sizeDotState, &
constitutive_maxSizeDotState, &
constitutive_state, & constitutive_state, &
constitutive_aTolState, & constitutive_aTolState, &
constitutive_subState0, & constitutive_subState0, &
@ -2245,7 +2244,7 @@ subroutine crystallite_integrateStateRKCK45()
!$OMP DO !$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e)) then if (crystallite_todo(g,i,e)) then
crystallite_converged(g,i,e) = .true. ! if still "to do" then converged per definitionem crystallite_converged(g,i,e) = .true. ! if still "to do" then converged per definitionen
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
!$OMP CRITICAL (distributionState) !$OMP CRITICAL (distributionState)
debug_StateLoopDistribution(6,numerics_integrationMode) = & debug_StateLoopDistribution(6,numerics_integrationMode) = &
@ -2717,7 +2716,6 @@ eIter = FEsolving_execElem(1:2)
enddo enddo
singleRun = (eIter(1) == eIter(2) .and. iIter(1,eIter(1)) == iIter(2,eIter(2))) singleRun = (eIter(1) == eIter(2) .and. iIter(1,eIter(1)) == iIter(2,eIter(2)))
if (numerics_integrationMode == 1_pInt) then if (numerics_integrationMode == 1_pInt) then
!$OMP PARALLEL !$OMP PARALLEL
@ -3036,15 +3034,10 @@ real(pReal), dimension(constitutive_maxSizeDotState) :: &
+ constitutive_dotState(g,i,e)%p(1:mySizeDotState) & + constitutive_dotState(g,i,e)%p(1:mySizeDotState) &
* crystallite_subdt(g,i,e) * crystallite_subdt(g,i,e)
#else #else
! write(6,*) size(plasticState); flush(6) mySizeDotState = plasticState(mappingConstitutive(2,g,i,e))%sizeDotState
! write(6,*) g,i,e;flush(6) plasticState(mappingConstitutive(2,g,i,e))%state(1:mySizeDotState,mappingConstitutive(1,g,i,e)) = &
! write(6,*) mappingConstitutive(2,g,i,e),mappingConstitutive(1,g,i,e); flush(6) plasticState(mappingConstitutive(2,g,i,e))%subState0(1:mySizeDotState,mappingConstitutive(1,g,i,e)) &
! write(6,*) size(plasticState(mappingConstitutive(2,g,i,e))%state(:,mappingConstitutive(1,g,i,e)));flush(6) + plasticState(mappingConstitutive(2,g,i,e))%dotState(1:mySizeDotState,mappingConstitutive(1,g,i,e)) &
! write(6,*) size(plasticState(mappingConstitutive(2,g,i,e))%substate0(:,mappingConstitutive(1,g,i,e)));flush(6)
! write(6,*) size(plasticState(mappingConstitutive(2,g,i,e))%dotstate(:,mappingConstitutive(1,g,i,e)));flush(6)
plasticState(mappingConstitutive(2,g,i,e))%state(:,mappingConstitutive(1,g,i,e)) = &
plasticState(mappingConstitutive(2,g,i,e))%subState0(:,mappingConstitutive(1,g,i,e)) &
+ plasticState(mappingConstitutive(2,g,i,e))%dotState(:,mappingConstitutive(1,g,i,e)) &
* crystallite_subdt(g,i,e) * crystallite_subdt(g,i,e)
#endif #endif
endif endif
@ -3187,7 +3180,7 @@ real(pReal), dimension(constitutive_maxSizeDotState) :: &
#else #else
mySizeDotState = plasticState(mappingConstitutive(2,g,i,e))%sizeState mySizeDotState = plasticState(mappingConstitutive(2,g,i,e))%sizeDotState
dot_prod12 = dot_product( plasticState(mappingConstitutive(2,g,i,e))%dotState(:,mappingConstitutive(1,g,i,e)) & dot_prod12 = dot_product( plasticState(mappingConstitutive(2,g,i,e))%dotState(:,mappingConstitutive(1,g,i,e)) &
- plasticState(mappingConstitutive(2,g,i,e))%previousDotState(:,mappingConstitutive(1,g,i,e)), & - plasticState(mappingConstitutive(2,g,i,e))%previousDotState(:,mappingConstitutive(1,g,i,e)), &
plasticState(mappingConstitutive(2,g,i,e))%previousDotState(:,mappingConstitutive(1,g,i,e)) & plasticState(mappingConstitutive(2,g,i,e))%previousDotState(:,mappingConstitutive(1,g,i,e)) &
@ -3212,17 +3205,22 @@ real(pReal), dimension(constitutive_maxSizeDotState) :: &
endif endif
! --- get residui --- ! --- get residui ---
mySizeDotState = plasticState(mappingConstitutive(2,g,i,e))%sizeState mySizeDotState = plasticState(mappingConstitutive(2,g,i,e))%sizeDotState
stateResiduum(1:mySizeDotState) = plasticState(mappingConstitutive(2,g,i,e))%state(:,mappingConstitutive(1,g,i,e)) & stateResiduum(1:mySizeDotState) = plasticState(mappingConstitutive(2,g,i,e))% &
- plasticState(mappingConstitutive(2,g,i,e))%subState0(:,mappingConstitutive(1,g,i,e)) & state(1:mySizeDotState,mappingConstitutive(1,g,i,e)) &
-(plasticState(mappingConstitutive(2,g,i,e))%dotState(:,mappingConstitutive(1,g,i,e)) * & - plasticState(mappingConstitutive(2,g,i,e))% &
subState0(1:mySizeDotState,mappingConstitutive(1,g,i,e)) &
-(plasticState(mappingConstitutive(2,g,i,e))% &
dotState(1:mySizeDotState,mappingConstitutive(1,g,i,e)) * &
statedamper & statedamper &
+ plasticState(mappingConstitutive(2,g,i,e))%previousDotState(:,mappingConstitutive(1,g,i,e)) & + plasticState(mappingConstitutive(2,g,i,e))% &
previousDotState(1:mySizeDotState,mappingConstitutive(1,g,i,e)) &
* (1.0_pReal - statedamper)) * crystallite_subdt(g,i,e) * (1.0_pReal - statedamper)) * crystallite_subdt(g,i,e)
! --- correct state with residuum --- ! --- correct state with residuum ---
tempState(1:mySizeDotState) = plasticState(mappingConstitutive(2,g,i,e))%state(:,mappingConstitutive(1,g,i,e)) & tempState(1:mySizeDotState) = plasticState(mappingConstitutive(2,g,i,e))% &
state(1:mySizeDotState,mappingConstitutive(1,g,i,e)) &
- stateResiduum(1:mySizeDotState) ! need to copy to local variable, since we cant flush a pointer in openmp - stateResiduum(1:mySizeDotState) ! need to copy to local variable, since we cant flush a pointer in openmp
#endif #endif
@ -3389,13 +3387,14 @@ logical function crystallite_stateJump(g,i,e)
call constitutive_collectDeltaState(crystallite_Tstar_v(1:6,g,i,e), g,i,e) call constitutive_collectDeltaState(crystallite_Tstar_v(1:6,g,i,e), g,i,e)
#endif #endif
#ifdef NEWSTATE #ifdef NEWSTATE
mySizeDotState = plasticState(mappingConstitutive(2,g,i,e))%sizeDotState
if( any(plasticState(mappingConstitutive(2,g,i,e))%deltaState(:,mappingConstitutive(1,g,i,e)) & if( any(plasticState(mappingConstitutive(2,g,i,e))%deltaState(:,mappingConstitutive(1,g,i,e)) &
/= plasticState(mappingConstitutive(2,g,i,e))%deltaState(:,mappingConstitutive(1,g,i,e)))) then ! NaN occured in dotState /= plasticState(mappingConstitutive(2,g,i,e))%deltaState(:,mappingConstitutive(1,g,i,e)))) then ! NaN occured in dotState
return return
endif endif
plasticState(mappingConstitutive(2,g,i,e))%state(:,mappingConstitutive(1,g,i,e)) = & plasticState(mappingConstitutive(2,g,i,e))%state(1:mySizeDotState,mappingConstitutive(1,g,i,e)) = &
plasticState(mappingConstitutive(2,g,i,e))%state(:,mappingConstitutive(1,g,i,e)) & plasticState(mappingConstitutive(2,g,i,e))%state(1:mySizeDotState,mappingConstitutive(1,g,i,e)) &
+ plasticState(mappingConstitutive(2,g,i,e))%deltaState(:,mappingConstitutive(1,g,i,e)) + plasticState(mappingConstitutive(2,g,i,e))%deltaState(1:mySizeDotState,mappingConstitutive(1,g,i,e))
#else #else
mySizeDotState = constitutive_sizeDotState(g,i,e) mySizeDotState = constitutive_sizeDotState(g,i,e)
if (any(constitutive_deltaState(g,i,e)%p(1:mySizeDotState) & if (any(constitutive_deltaState(g,i,e)%p(1:mySizeDotState) &