reduce computation effort for plasticity==none

src/phase_mechanical_plastic.f90

@@ -261,16 +261,16 @@ module subroutine plastic_LpAndItsTangents(Lp, dLp_dS, dLp_dFi, &
   integer :: &
     i, j
 
+  if (phase_plasticity(ph) == PLASTICITY_NONE_ID) then
+    Lp      = 0.0_pReal
+    dLp_dFi = 0.0_pReal
+    dLp_dS  = 0.0_pReal
+  else
 
     Mp = matmul(matmul(transpose(Fi),Fi),S)
 
-
     plasticType: select case (phase_plasticity(ph))
 
-    case (PLASTICITY_NONE_ID) plasticType
-      Lp = 0.0_pReal
-      dLp_dMp = 0.0_pReal
-
       case (PLASTICITY_ISOTROPIC_ID) plasticType
         call isotropic_LpAndItsTangent(Lp,dLp_dMp,Mp,ph,en)
 
@@ -297,6 +297,8 @@ module subroutine plastic_LpAndItsTangents(Lp, dLp_dS, dLp_dFi, &
       dLp_dS(i,j,1:3,1:3)  = matmul(matmul(transpose(Fi),Fi),dLp_dMp(i,j,1:3,1:3))                     ! ToDo: @PS: why not:   dLp_dMp:(FiT Fi)
     enddo; enddo
 
+  end if
+
 end subroutine plastic_LpAndItsTangents
 
 
@@ -317,7 +319,7 @@ module function plastic_dotState(subdt,co,ip,el,ph,en) result(broken)
     Mp
   logical :: broken
 
-
+  if (phase_plasticity(ph) /= PLASTICITY_NONE_ID) then
     Mp = matmul(matmul(transpose(phase_mechanical_Fi(ph)%data(1:3,1:3,en)),&
                        phase_mechanical_Fi(ph)%data(1:3,1:3,en)),phase_mechanical_S(ph)%data(1:3,1:3,en))
 
@@ -341,8 +343,9 @@ module function plastic_dotState(subdt,co,ip,el,ph,en) result(broken)
       case (PLASTICITY_NONLOCAL_ID) plasticType
         call nonlocal_dotState(Mp,thermal_T(ph,en),subdt,ph,en,ip,el)
     end select plasticType
-  broken = any(IEEE_is_NaN(plasticState(ph)%dotState(:,en)))
+  end if
 
+  broken = any(IEEE_is_NaN(plasticState(ph)%dotState(:,en)))
 
 end function plastic_dotState
 
@@ -390,8 +393,7 @@ module function plastic_deltaState(ph, en) result(broken)
   integer, intent(in) :: &
     ph, &
     en
-  logical :: &
+  logical :: broken
-    broken
 
   real(pReal),               dimension(3,3) :: &
     Mp
@@ -399,35 +401,34 @@ module function plastic_deltaState(ph, en) result(broken)
     myOffset, &
     mySize
 
+  broken = .false.
+
+  select case (phase_plasticity(ph))
+    case (PLASTICITY_NONLOCAL_ID,PLASTICITY_KINEHARDENING_ID)
 
       Mp = matmul(matmul(transpose(phase_mechanical_Fi(ph)%data(1:3,1:3,en)),&
-                     phase_mechanical_Fi(ph)%data(1:3,1:3,en)),phase_mechanical_S(ph)%data(1:3,1:3,en))
+                         phase_mechanical_Fi(ph)%data(1:3,1:3,en)),&
+                  phase_mechanical_S(ph)%data(1:3,1:3,en))
 
       plasticType: select case (phase_plasticity(ph))
 
         case (PLASTICITY_KINEHARDENING_ID) plasticType
           call plastic_kinehardening_deltaState(Mp,ph,en)
-      broken = any(IEEE_is_NaN(plasticState(ph)%deltaState(:,en)))
 
         case (PLASTICITY_NONLOCAL_ID) plasticType
           call plastic_nonlocal_deltaState(Mp,ph,en)
-      broken = any(IEEE_is_NaN(plasticState(ph)%deltaState(:,en)))
-
-    case default
-      broken = .false.
 
       end select plasticType
 
-  if(.not. broken) then
+      broken = any(IEEE_is_NaN(plasticState(ph)%deltaState(:,en)))
-    select case(phase_plasticity(ph))
+      if (.not. broken) then
-      case (PLASTICITY_NONLOCAL_ID,PLASTICITY_KINEHARDENING_ID)
-
         myOffset = plasticState(ph)%offsetDeltaState
         mySize   = plasticState(ph)%sizeDeltaState
         plasticState(ph)%state(myOffset + 1:myOffset + mySize,en) = &
         plasticState(ph)%state(myOffset + 1:myOffset + mySize,en) + plasticState(ph)%deltaState(1:mySize,en)
+      end if
+
   end select
-  endif
 
 end function plastic_deltaState
 
@@ -453,7 +454,7 @@ function plastic_active(plastic_label)  result(active_plastic)
     phase => phases%get(ph)
     mech  => phase%get('mechanical')
     pl    => mech%get('plastic',defaultVal = emptyDict)
-    if(pl%get_asString('type',defaultVal='none') == plastic_label) active_plastic(ph) = .true.
+    active_plastic(ph) = pl%get_asString('type',defaultVal='none') == plastic_label
   enddo
 
 end function plastic_active