removed delta state for J2 and phenopowerlaw when using new state

code/constitutive.f90

@@ -55,9 +55,7 @@ module constitutive
    constitutive_LpAndItsTangent, &
    constitutive_TandItsTangent, &
    constitutive_collectDotState, &
-#ifndef NEWSTATE
    constitutive_collectDeltaState, &
-#endif
    constitutive_postResults
  
  private :: &
@@ -938,10 +936,10 @@ subroutine constitutive_collectDotState(Tstar_v, FeArray, FpArray, Temperature,
 end subroutine constitutive_collectDotState
 
 !--------------------------------------------------------------------------------------------------
-!> @brief contains the constitutive equation for calculating the incremental change of 
-!> microstructure based on the current stress and state  
+!> @brief for constitutive models having an instantaneous change of state (so far, only nonlocal)
+!> will return false if delta state is not needed/supported by the constitutive model
 !--------------------------------------------------------------------------------------------------
-subroutine constitutive_collectDeltaState(Tstar_v, ipc, ip, el)
+logical function constitutive_collectDeltaState(Tstar_v, ipc, ip, el)
  use prec, only: &
    pLongInt
  use debug, only: &
@@ -978,6 +976,7 @@ subroutine constitutive_collectDeltaState(Tstar_v, ipc, ip, el)
  select case (phase_plasticity(material_phase(ipc,ip,el)))
 
    case (PLASTICITY_NONLOCAL_ID)
+     constitutive_collectDeltaState = .true.
 #ifdef NEWSTATE
      call constitutive_nonlocal_deltaState(mappingConstitutive, Tstar_v,ipc,ip,el)
 #else
@@ -985,10 +984,8 @@ subroutine constitutive_collectDeltaState(Tstar_v, ipc, ip, el)
                                       constitutive_state(ipc,ip,el), Tstar_v,ipc,ip,el)
 #endif
    case default
-#ifdef NEWSTATE
-    plasticState(mappingConstitutive(2,ipc,ip,el))%deltaState(:,mappingConstitutive(2,ipc,ip,el)) = &
-                                                                                         0.0_pReal
-#else
+     constitutive_collectDeltaState = .false.
+#ifndef NEWSTATE
      constitutive_deltaState(ipc,ip,el)%p = 0.0_pReal !ToDo: needed or will it remain zero anyway?
 #endif
  end select
@@ -1003,7 +1000,9 @@ subroutine constitutive_collectDeltaState(Tstar_v, ipc, ip, el)
    !$OMP END CRITICAL (debugTimingDeltaState)
  endif
 
-end subroutine constitutive_collectDeltaState
+end function constitutive_collectDeltaState
+
+
 !--------------------------------------------------------------------------------------------------
 !> @brief returns array of constitutive results
 !--------------------------------------------------------------------------------------------------

code/constitutive_j2.f90

@@ -322,7 +322,6 @@ subroutine constitutive_j2_init(fileUnit)
      allocate(plasticState(phase)%state_backup   (sizeState,NofMyPhase),source=0.0_pReal)
      allocate(plasticState(phase)%aTolState      (NofMyPhase),source=constitutive_j2_aTolResistance(instance))
      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)

code/constitutive_phenopowerlaw.f90

@@ -516,7 +516,6 @@ allocate(constitutive_phenopowerlaw_sizePostResults(maxNinstance),
      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)

code/crystallite.f90

@@ -3339,6 +3339,7 @@ end subroutine crystallite_integrateStateFPI
 
 !--------------------------------------------------------------------------------------------------
 !> @brief calculates a jump in the state according to the current state and the current stress
+!> returns true, if state jump was successfull or not needed. false indicates NaN in delta state
 !--------------------------------------------------------------------------------------------------
 logical function crystallite_stateJump(g,i,e)
  use debug, only: &
@@ -3361,8 +3362,8 @@ logical function crystallite_stateJump(g,i,e)
 #endif
    homogenization_Ngrains
  use constitutive, only: &
-#ifndef NEWSTATE
    constitutive_collectDeltaState, &
+#ifndef NEWSTATE
    constitutive_sizeDotState, &
    constitutive_state, &
    constitutive_deltaState
@@ -3380,14 +3381,12 @@ logical function crystallite_stateJump(g,i,e)
    mySizeDotState
  
  
- crystallite_stateJump = .false.
-#ifndef NEWSTATE 
- call constitutive_collectDeltaState(crystallite_Tstar_v(1:6,g,i,e), g,i,e)
-#endif
+ if (constitutive_collectDeltaState(crystallite_Tstar_v(1:6,g,i,e), g,i,e)) then
 #ifdef NEWSTATE
    mySizeDotState = plasticState(mappingConstitutive(2,g,i,e))%sizeDotState
    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 deltaState
+     crystallite_stateJump = .false.
      return
    endif
    plasticState(mappingConstitutive(2,g,i,e))%state(1:mySizeDotState,mappingConstitutive(1,g,i,e)) =                &
@@ -3397,6 +3396,7 @@ logical function crystallite_stateJump(g,i,e)
    mySizeDotState = constitutive_sizeDotState(g,i,e)
    if (any(constitutive_deltaState(g,i,e)%p(1:mySizeDotState) &
         /= constitutive_deltaState(g,i,e)%p(1:mySizeDotState))) then
+     crystallite_stateJump = .false.
      return
    endif
 
@@ -3414,6 +3414,7 @@ logical function crystallite_stateJump(g,i,e)
    endif
 #endif
 #endif
+ endif
  
  crystallite_stateJump = .true.