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

no derived quantities in postResults 

preparing for HDF5 out
This commit is contained in:
Martin Diehl 2019-03-17 13:29:58 +01:00
parent 52b54ddf23
commit d7739fa8f8
1 changed files with 3 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
src/plastic_nonlocal.f90
View File

@ -69,14 +69,11 @@ module plastic_nonlocal
rho_dip_scr_ID, & rho_dip_scr_ID, &
rho_forest_ID, & rho_forest_ID, &
shearrate_ID, & shearrate_ID, &
resolvedstress_ID, &
resolvedstress_external_ID, &
resolvedstress_back_ID, & resolvedstress_back_ID, &
resistance_ID, & resistance_ID, &
rho_dot_sgl_ID, & rho_dot_sgl_ID, &
rho_dot_sgl_mobile_ID, & rho_dot_sgl_mobile_ID, &
rho_dot_dip_ID, & rho_dot_dip_ID, &
rho_dot_gen_ID, &
rho_dot_gen_edge_ID, & rho_dot_gen_edge_ID, &
rho_dot_gen_screw_ID, & rho_dot_gen_screw_ID, &
rho_dot_sgl2dip_edge_ID, & rho_dot_sgl2dip_edge_ID, &
@ -92,8 +89,6 @@ module plastic_nonlocal
velocity_edge_neg_ID, & velocity_edge_neg_ID, &
velocity_screw_pos_ID, & velocity_screw_pos_ID, &
velocity_screw_neg_ID, & velocity_screw_neg_ID, &
maximumdipoleheight_edge_ID, &
maximumdipoleheight_screw_ID, &
accumulatedshear_ID accumulatedshear_ID
end enum end enum
@ -530,10 +525,6 @@ extmsg = trim(extmsg)//' fEdgeMultiplication'
outputID = merge(rho_forest_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_forest_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('shearrate') case ('shearrate')
outputID = merge(shearrate_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(shearrate_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('resolvedstress')
outputID = merge(resolvedstress_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('resolvedstress_external')
outputID = merge(resolvedstress_external_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('resolvedstress_back') case ('resolvedstress_back')
outputID = merge(resolvedstress_back_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(resolvedstress_back_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('resistance') case ('resistance')
@ -544,8 +535,6 @@ extmsg = trim(extmsg)//' fEdgeMultiplication'
outputID = merge(rho_dot_sgl_mobile_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_dot_sgl_mobile_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('rho_dot_dip') case ('rho_dot_dip')
outputID = merge(rho_dot_dip_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_dot_dip_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('rho_dot_gen')
outputID = merge(rho_dot_gen_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('rho_dot_gen_edge') case ('rho_dot_gen_edge')
outputID = merge(rho_dot_gen_edge_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(rho_dot_gen_edge_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('rho_dot_gen_screw') case ('rho_dot_gen_screw')
@ -576,10 +565,6 @@ extmsg = trim(extmsg)//' fEdgeMultiplication'
outputID = merge(velocity_screw_pos_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(velocity_screw_pos_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('velocity_screw_neg') case ('velocity_screw_neg')
outputID = merge(velocity_screw_neg_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(velocity_screw_neg_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('maximumdipoleheight_edge')
outputID = merge(maximumdipoleheight_edge_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('maximumdipoleheight_screw')
outputID = merge(maximumdipoleheight_screw_ID,undefined_ID,prm%totalNslip>0_pInt)
case ('accumulatedshear','accumulated_shear') case ('accumulatedshear','accumulated_shear')
outputID = merge(accumulatedshear_ID,undefined_ID,prm%totalNslip>0_pInt) outputID = merge(accumulatedshear_ID,undefined_ID,prm%totalNslip>0_pInt)
end select end select
@ -2210,10 +2195,6 @@ end subroutine plastic_nonlocal_updateCompatibility
function plastic_nonlocal_postResults(Mp,ip,el) result(postResults) function plastic_nonlocal_postResults(Mp,ip,el) result(postResults)
use prec, only: & use prec, only: &
dNeq0 dNeq0
use math, only: &
math_mul33x3, &
math_mul33xx33, &
pi
use material, only: & use material, only: &
material_phase, & material_phase, &
phaseAt, phasememberAt, & phaseAt, phasememberAt, &
@ -2241,18 +2222,14 @@ function plastic_nonlocal_postResults(Mp,ip,el) result(postResults)
s !< index of my current slip system s !< index of my current slip system
real(pReal), dimension(totalNslip(phase_plasticityInstance(material_phase(1_pInt,ip,el))),8) :: & real(pReal), dimension(totalNslip(phase_plasticityInstance(material_phase(1_pInt,ip,el))),8) :: &
rhoSgl, & !< current single dislocation densities (positive/negative screw and edge without dipoles) rhoSgl, &
rhoDotSgl !< evolution rate of single dislocation densities (positive/negative screw and edge without dipoles) rhoDotSgl !< evolution rate of single dislocation densities (positive/negative screw and edge without dipoles)
real(pReal), dimension(totalNslip(phase_plasticityInstance(material_phase(1_pInt,ip,el))),4) :: & real(pReal), dimension(totalNslip(phase_plasticityInstance(material_phase(1_pInt,ip,el))),4) :: &
gdot, & !< shear rates gdot, & !< shear rates
v !< velocities v !< velocities
real(pReal), dimension(totalNslip(phase_plasticityInstance(material_phase(1_pInt,ip,el)))) :: &
tau !< current resolved shear stress
real(pReal), dimension(totalNslip(phase_plasticityInstance(material_phase(1_pInt,ip,el))),2) :: & real(pReal), dimension(totalNslip(phase_plasticityInstance(material_phase(1_pInt,ip,el))),2) :: &
rhoDip, & !< current dipole dislocation densities (screw and edge dipoles) rhoDotDip !< evolution rate of dipole dislocation densities (screw and edge dipoles)
rhoDotDip, & !< evolution rate of dipole dislocation densities (screw and edge dipoles)
dLower, & !< minimum stable dipole distance for edges and screws
dUpper !< current maximum stable dipole distance for edges and screws
ph = phaseAt(1,ip,el) ph = phaseAt(1,ip,el)
of = phasememberAt(1,ip,el) of = phasememberAt(1,ip,el)
@ -2265,14 +2242,11 @@ associate(prm => param(instance),dst => microstructure(instance),stt=>state(inst
!* short hand notations for state variables !* short hand notations for state variables
forall (s = 1_pInt:ns, t = 1_pInt:4_pInt) forall (s = 1_pInt:ns, t = 1_pInt:4_pInt)
rhoSgl(s,t) = plasticState(ph)%State(iRhoU(s,t,instance),of)
rhoSgl(s,t+4_pInt) = plasticState(ph)%State(iRhoB(s,t,instance),of) rhoSgl(s,t+4_pInt) = plasticState(ph)%State(iRhoB(s,t,instance),of)
v(s,t) = plasticState(ph)%State(iV(s,t,instance),of) v(s,t) = plasticState(ph)%State(iV(s,t,instance),of)
rhoDotSgl(s,t) = plasticState(ph)%dotState(iRhoU(s,t,instance),of)
rhoDotSgl(s,t+4_pInt) = plasticState(ph)%dotState(iRhoB(s,t,instance),of) rhoDotSgl(s,t+4_pInt) = plasticState(ph)%dotState(iRhoB(s,t,instance),of)
endforall endforall
forall (s = 1_pInt:ns, c = 1_pInt:2_pInt) forall (s = 1_pInt:ns, c = 1_pInt:2_pInt)
rhoDip(s,c) = plasticState(ph)%State(iRhoD(s,c,instance),of)
rhoDotDip(s,c) = plasticState(ph)%dotState(iRhoD(s,c,instance),of) rhoDotDip(s,c) = plasticState(ph)%dotState(iRhoD(s,c,instance),of)
endforall endforall
@ -2284,25 +2258,6 @@ forall (t = 1_pInt:4_pInt) &
!* calculate limits for stable dipole height !* calculate limits for stable dipole height
do s = 1_pInt,ns
tau(s) = math_mul33xx33(Mp, prm%Schmid(1:3,1:3,s)) + dst%tau_back(s,of)
if (abs(tau(s)) < 1.0e-15_pReal) tau(s) = 1.0e-15_pReal
enddo
dLower = prm%minDipoleHeight(1:ns,1:2)
dUpper(1:ns,1) = prm%mu * prm%burgers(1:ns) &
/ (8.0_pReal * pi * (1.0_pReal - prm%nu) * abs(tau))
dUpper(1:ns,2) = prm%mu * prm%burgers(1:ns) &
/ (4.0_pReal * pi * abs(tau))
do c = 1, 2
where(dNeq0(sqrt(rhoSgl(1:ns,2*c-1)+rhoSgl(1:ns,2*c)+abs(rhoSgl(1:ns,2*c+3))&
+abs(rhoSgl(1:ns,2*c+4))+rhoDip(1:ns,c)))) &
dUpper(1:ns,c) = min(1.0_pReal / sqrt(rhoSgl(1:ns,2*c-1) + rhoSgl(1:ns,2*c) &
+ abs(rhoSgl(1:ns,2*c+3)) + abs(rhoSgl(1:ns,2*c+4)) + rhoDip(1:ns,c)), &
dUpper(1:ns,c))
enddo
dUpper = max(dUpper,dLower)
outputsLoop: do o = 1_pInt,size(param(instance)%outputID) outputsLoop: do o = 1_pInt,size(param(instance)%outputID)
select case(param(instance)%outputID(o)) select case(param(instance)%outputID(o))
@ -2355,20 +2310,10 @@ outputsLoop: do o = 1_pInt,size(param(instance)%outputID)
postResults(cs+1_pInt:cs+ns) = sum(gdot,2) postResults(cs+1_pInt:cs+ns) = sum(gdot,2)
cs = cs + ns cs = cs + ns
case (resolvedstress_ID)
postResults(cs+1_pInt:cs+ns) = tau
cs = cs + ns
case (resolvedstress_back_ID) case (resolvedstress_back_ID)
postResults(cs+1_pInt:cs+ns) = dst%tau_back(:,of) postResults(cs+1_pInt:cs+ns) = dst%tau_back(:,of)
cs = cs + ns cs = cs + ns
case (resolvedstress_external_ID)
do s = 1_pInt,ns
postResults(cs+s) = math_mul33xx33(Mp, prm%Schmid(1:3,1:3,s))
enddo
cs = cs + ns
case (resistance_ID) case (resistance_ID)
postResults(cs+1_pInt:cs+ns) = dst%tau_Threshold(:,of) postResults(cs+1_pInt:cs+ns) = dst%tau_Threshold(:,of)
cs = cs + ns cs = cs + ns
@ -2386,11 +2331,6 @@ outputsLoop: do o = 1_pInt,size(param(instance)%outputID)
postResults(cs+1_pInt:cs+ns) = sum(rhoDotDip,2) postResults(cs+1_pInt:cs+ns) = sum(rhoDotDip,2)
cs = cs + ns cs = cs + ns
case (rho_dot_gen_ID) ! Obsolete
postResults(cs+1_pInt:cs+ns) = results(instance)%rhoDotMultiplication(1:ns,1,of) &
+ results(instance)%rhoDotMultiplication(1:ns,2,of)
cs = cs + ns
case (rho_dot_gen_edge_ID) case (rho_dot_gen_edge_ID)
postResults(cs+1_pInt:cs+ns) = results(instance)%rhoDotMultiplication(1:ns,1,of) postResults(cs+1_pInt:cs+ns) = results(instance)%rhoDotMultiplication(1:ns,1,of)
cs = cs + ns cs = cs + ns
@ -2454,14 +2394,6 @@ outputsLoop: do o = 1_pInt,size(param(instance)%outputID)
postResults(cs+1_pInt:cs+ns) = v(1:ns,4) postResults(cs+1_pInt:cs+ns) = v(1:ns,4)
cs = cs + ns cs = cs + ns
case (maximumdipoleheight_edge_ID)
postResults(cs+1_pInt:cs+ns) = dUpper(1:ns,1)
cs = cs + ns
case (maximumdipoleheight_screw_ID)
postResults(cs+1_pInt:cs+ns) = dUpper(1:ns,2)
cs = cs + ns
case(accumulatedshear_ID) case(accumulatedshear_ID)
postResults(cs+1_pInt:cs+ns) = stt%accumulatedshear(:,of) postResults(cs+1_pInt:cs+ns) = stt%accumulatedshear(:,of)
cs = cs + ns cs = cs + ns