not needed

src/grid/grid_damage_spectral.f90

@@ -259,7 +259,7 @@ subroutine formResidual(in,x_scal,f_scal,dummy,ierr)
   PetscObject :: dummy
   PetscErrorCode :: ierr
   integer :: i, j, k, ce
-  real(pReal)   :: phiDot, dPhiDot_dPhi, mobility
+  real(pReal)   :: phiDot, mobility
 
   phi_current = x_scal
 !--------------------------------------------------------------------------------------------------
@@ -281,7 +281,7 @@ subroutine formResidual(in,x_scal,f_scal,dummy,ierr)
   ce = 0
   do k = 1, grid3;  do j = 1, grid(2);  do i = 1,grid(1)
     ce = ce + 1
-    call damage_nonlocal_getSourceAndItsTangent(phiDot, dPhiDot_dPhi, phi_current(i,j,k),ce)
+    call damage_nonlocal_getSourceAndItsTangent(phiDot, phi_current(i,j,k),ce)
     mobility = damage_nonlocal_getMobility(ce)
     scalarField_real(i,j,k) = params%timeinc*(scalarField_real(i,j,k) + phiDot) &
                             + mobility*(phi_lastInc(i,j,k) - phi_current(i,j,k)) &

src/homogenization.f90

@@ -170,12 +170,12 @@ module homogenization
       real(pReal) :: M
     end function damage_nonlocal_getMobility
 
-    module subroutine damage_nonlocal_getSourceAndItsTangent(phiDot, dPhiDot_dPhi, phi, ce)
+    module subroutine damage_nonlocal_getSourceAndItsTangent(phiDot, phi, ce)
       integer, intent(in) :: ce
-      real(pReal),   intent(in) :: &
+      real(pReal), intent(in) :: &
         phi
-      real(pReal) :: &
-        phiDot, dPhiDot_dPhi
+      real(pReal), intent(out) :: &
+        phiDot
     end subroutine damage_nonlocal_getSourceAndItsTangent
 
     module subroutine damage_nonlocal_putNonLocalDamage(phi,ce)

src/homogenization_damage.f90

@@ -42,7 +42,7 @@ module subroutine damage_init()
 
 
   print'(/,a)', ' <<<+-  homogenization:damage init  -+>>>'
-  print'(/,a)', ' <<<+-  homogenization:damage:isodamage init  -+>>>'
+  print'(/,a)', ' <<<+-  homogenization:damage:pass init  -+>>>'
 
   configHomogenizations => config_material%get('homogenization')
   allocate(param(configHomogenizations%length))
@@ -113,20 +113,19 @@ end function damage_nonlocal_getMobility
 !--------------------------------------------------------------------------------------------------
 !> @brief  calculates homogenized damage driving forces
 !--------------------------------------------------------------------------------------------------
-module subroutine damage_nonlocal_getSourceAndItsTangent(phiDot, dPhiDot_dPhi, phi, ce)
+module subroutine damage_nonlocal_getSourceAndItsTangent(phiDot, phi, ce)
 
   integer, intent(in) :: ce
-  real(pReal),   intent(in) :: &
+  real(pReal), intent(in) :: &
     phi
-  real(pReal) :: &
-    phiDot, dPhiDot_dPhi
+  real(pReal), intent(out) :: &
+    phiDot
 
-  phiDot = 0.0_pReal
-  dPhiDot_dPhi = 0.0_pReal
+  real(pReal) :: &
+    dPhiDot_dPhi
 
   call phase_damage_getRateAndItsTangents(phiDot, dPhiDot_dPhi, phi, ce)
   phiDot = phiDot/real(homogenization_Nconstituents(material_homogenizationID(ce)),pReal)
-  dPhiDot_dPhi = dPhiDot_dPhi/real(homogenization_Nconstituents(material_homogenizationID(ce)),pReal)
 
 end subroutine damage_nonlocal_getSourceAndItsTangent
 

src/homogenization_thermal.f90

@@ -45,7 +45,7 @@ module subroutine thermal_init()
 
 
   print'(/,a)', ' <<<+-  homogenization:thermal init  -+>>>'
-  print'(/,a)', ' <<<+-  homogenization:thermal:isotemperature init  -+>>>'
+  print'(/,a)', ' <<<+-  homogenization:thermal:pass init  -+>>>'