From c0ce95183c1927aa42c3b00a7782420e38a2aa2c Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 25 Nov 2018 10:59:36 +0100 Subject: [PATCH] can be easily calculated during post processing and does not have to be a state --- src/plastic_kinematichardening.f90 | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/src/plastic_kinematichardening.f90 b/src/plastic_kinematichardening.f90 index 30088ac4f..0fc1d1464 100644 --- a/src/plastic_kinematichardening.f90 +++ b/src/plastic_kinematichardening.f90 @@ -40,7 +40,6 @@ module plastic_kinehardening chi0_ID, & !< backstress at last switch of stress sense (positive?) gamma0_ID, & !< accumulated shear at last switch of stress sense (at current switch?) accshear_ID, & - sumGamma_ID, & shearrate_ID, & resolvedstress_ID @@ -260,9 +259,6 @@ subroutine plastic_kinehardening_init(fileUnit) case ('accumulatedshear') output_ID = accshear_ID - case ('totalshear') - output_ID = sumGamma_ID - case ('shearrate') output_ID = shearrate_ID @@ -399,8 +395,6 @@ subroutine plastic_kinehardening_init(fileUnit) shearrate_ID, & resolvedstress_ID) mySize = nSlip - case(sumGamma_ID) - mySize = 1_pInt case default end select @@ -920,10 +914,6 @@ function plastic_kinehardening_postResults(Mp,ipc,ip,el) plastic_kinehardening_postResults(c+1_pInt:c+nSlip) = state(instance)%accshear(:,of) c = c + nSlip - case (sumGamma_ID) - plastic_kinehardening_postResults(c+1_pInt) = state(instance)%sumGamma(of) - c = c + 1_pInt - case (shearrate_ID) plastic_kinehardening_postResults(c+1_pInt:c+nSlip) = gdot_pos+gdot_neg c = c + nSlip