From d484d1b5bb919f8d58ec300f1c82e9398b7f439f Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 25 Jun 2018 10:33:22 +0200 Subject: [PATCH] fixed typo and removed alias --- src/plastic_phenopowerlaw.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/plastic_phenopowerlaw.f90 b/src/plastic_phenopowerlaw.f90 index 6979187ed..d888e6c09 100644 --- a/src/plastic_phenopowerlaw.f90 +++ b/src/plastic_phenopowerlaw.f90 @@ -242,7 +242,7 @@ subroutine plastic_phenopowerlaw_init case ('resistance_slip') outputID = resistance_slip_ID outputSize = sum(prm%Nslip) - case ('acumulatedshear_slip','accumulated_shear_slip') + case ('accumulatedshear_slip') outputID = accumulatedshear_slip_ID outputSize = sum(prm%Nslip) case ('shearrate_slip') @@ -255,7 +255,7 @@ subroutine plastic_phenopowerlaw_init case ('resistance_twin') outputID = resistance_twin_ID outputSize = sum(prm%Ntwin) - case ('accumulatedshear_twin','accumulated_shear_twin') + case ('accumulatedshear_twin') outputID = accumulatedshear_twin_ID outputSize = sum(prm%Ntwin) case ('shearrate_twin')