From d0544a69dd88b5bce04c334ea30b83a27ac5b627 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 25 Jul 2016 20:16:27 +0200 Subject: [PATCH] removed some remainders of state perturbation --- code/plastic_none.f90 | 2 -- code/prec.f90 | 2 -- 2 files changed, 4 deletions(-) diff --git a/code/plastic_none.f90 b/code/plastic_none.f90 index 34570ceab..7a7589774 100644 --- a/code/plastic_none.f90 +++ b/code/plastic_none.f90 @@ -81,11 +81,9 @@ subroutine plastic_none_init allocate(plasticState(phase)%partionedState0 (sizeState,NofMyPhase)) allocate(plasticState(phase)%subState0 (sizeState,NofMyPhase)) allocate(plasticState(phase)%state (sizeState,NofMyPhase)) - allocate(plasticState(phase)%state_backup (sizeState,NofMyPhase)) allocate(plasticState(phase)%dotState (sizeDotState,NofMyPhase)) allocate(plasticState(phase)%deltaState (sizeDeltaState,NofMyPhase)) - allocate(plasticState(phase)%dotState_backup (sizeDotState,NofMyPhase)) if (any(numerics_integrator == 1_pInt)) then allocate(plasticState(phase)%previousDotState (sizeDotState,NofMyPhase)) allocate(plasticState(phase)%previousDotState2(sizeDotState,NofMyPhase)) diff --git a/code/prec.f90 b/code/prec.f90 index 0ded23528..190aca02b 100644 --- a/code/prec.f90 +++ b/code/prec.f90 @@ -67,11 +67,9 @@ module prec real(pReal), allocatable, dimension(:,:) :: & partionedState0, & subState0, & - state_backup, & deltaState, & previousDotState, & !< state rate of previous xxxx previousDotState2, & !< state rate two xxxx ago - dotState_backup, & !< backup of state rate RK4dotState real(pReal), allocatable, dimension(:,:,:) :: & RKCK45dotState