Merge commit 'v3.0.0-alpha2-340-g014378d49'

PRIVATE

@@ -1 +1 @@
-Subproject commit 72661176e9055cf6ec106bb61c50482c5bc78de8
+Subproject commit 8b9836aaf5798727d96a316a2eb27df03bbd2d07

src/commercialFEM_fileList.f90

@@ -52,4 +52,5 @@
 #include "homogenization_mech_isostrain.f90"
 #include "homogenization_mech_RGC.f90"
 #include "homogenization_thermal.f90"
+#include "homogenization_damage.f90"
 #include "CPFEM.f90"

src/constitutive.f90

@@ -188,6 +188,11 @@ module constitutive
       real(pReal), dimension(3,3) :: P
     end function constitutive_mech_getP
 
+    module function constitutive_damage_get_phi(co,ip,el) result(phi)
+      integer, intent(in) :: co, ip, el
+      real(pReal) :: phi
+    end function constitutive_damage_get_phi
+
     module function thermal_T(ph,me) result(T)
       integer, intent(in) :: ph,me
       real(pReal) :: T
@@ -204,6 +209,11 @@ module constitutive
       integer, intent(in) :: co, ce
     end subroutine constitutive_thermal_setT
     
+    module subroutine constitutive_damage_set_phi(phi,co,ce)
+      real(pReal), intent(in) :: phi
+      integer, intent(in) :: co, ce
+    end subroutine constitutive_damage_set_phi
+
 ! == cleaned:end ===================================================================================
 
     module function thermal_stress(Delta_t,ph,me) result(converged_)
@@ -229,39 +239,14 @@ module constitutive
       logical :: converged_
     end function crystallite_stress
 
-    module function constitutive_homogenizedC(co,ip,el) result(C)
+    module function constitutive_homogenizedC(ph,me) result(C)
-      integer, intent(in) :: co, ip, el
+      integer, intent(in) :: ph, me
       real(pReal), dimension(6,6) :: C
     end function constitutive_homogenizedC
 
-    module subroutine source_damage_anisoBrittle_dotState(S, co, ip, el)
-      integer, intent(in) :: &
-        co, &                                                                                      !< component-ID of integration point
-        ip, &                                                                                       !< integration point
-        el                                                                                          !< element
-      real(pReal),  intent(in), dimension(3,3) :: &
-        S
-    end subroutine source_damage_anisoBrittle_dotState
 
-    module subroutine source_damage_anisoDuctile_dotState(co, ip, el)
-      integer, intent(in) :: &
-        co, &                                                                                      !< component-ID of integration point
-        ip, &                                                                                       !< integration point
-        el                                                                                          !< element
-    end subroutine source_damage_anisoDuctile_dotState
 
-    module subroutine source_damage_isoDuctile_dotState(co, ip, el)
-      integer, intent(in) :: &
-        co, &                                                                                      !< component-ID of integration point
-        ip, &                                                                                       !< integration point
-        el                                                                                          !< element
-    end subroutine source_damage_isoDuctile_dotState
 
-    module subroutine source_thermal_externalheat_dotState(phase, of)
-      integer, intent(in) :: &
-        phase, &
-        of
-    end subroutine source_thermal_externalheat_dotState
 
     module subroutine constitutive_damage_getRateAndItsTangents(phiDot, dPhiDot_dPhi, phi, ip, el)
       integer, intent(in) :: &
@@ -343,19 +328,6 @@ module constitutive
         dLi_dTstar                                                                                  !< derivative of Li with respect to Tstar (4th-order tensor defined to be zero)
     end subroutine kinematics_thermal_expansion_LiAndItsTangent
 
-
-    module subroutine source_damage_isoBrittle_deltaState(C, Fe, co, ip, el)
-      integer, intent(in) :: &
-        co, &                                                                                      !< component-ID of integration point
-        ip, &                                                                                       !< integration point
-        el                                                                                          !< element
-      real(pReal),  intent(in), dimension(3,3) :: &
-        Fe
-      real(pReal),  intent(in), dimension(6,6) :: &
-        C
-    end subroutine source_damage_isoBrittle_deltaState
-
-
     module subroutine constitutive_plastic_dependentState(co,ip,el)
       integer, intent(in) :: &
         co, &                                                                                       !< component-ID of integration point
@@ -391,6 +363,8 @@ module constitutive
     constitutive_restartRead, &
     integrateDamageState, &
     constitutive_thermal_setT, &
+    constitutive_damage_set_phi, &
+    constitutive_damage_get_phi, &
     constitutive_mech_getP, &
     constitutive_mech_setF, &
     constitutive_mech_getF, &

src/constitutive_damage.f90

@@ -10,9 +10,16 @@ submodule(constitutive) constitutive_damage
     DAMAGE_ANISODUCTILE_ID
   end enum
 
+
+  type :: tDataContainer
+    real(pReal), dimension(:), allocatable :: phi, d_phi_d_dot_phi
+  end type tDataContainer
+
   integer(kind(DAMAGE_UNDEFINED_ID)),     dimension(:,:), allocatable :: &
     phase_source                                                                                !< active sources mechanisms of each phase
 
+  type(tDataContainer), dimension(:), allocatable :: current
+
   interface
 
   module function source_damage_anisoBrittle_init(source_length) result(mySources)
@@ -45,6 +52,38 @@ submodule(constitutive) constitutive_damage
     logical, dimension(:,:), allocatable :: myKinematics
   end function kinematics_slipplane_opening_init
 
+    module subroutine source_damage_isoBrittle_deltaState(C, Fe, ph, me)
+      integer, intent(in) :: ph,me
+      real(pReal),  intent(in), dimension(3,3) :: &
+        Fe
+      real(pReal),  intent(in), dimension(6,6) :: &
+        C
+    end subroutine source_damage_isoBrittle_deltaState
+
+
+    module subroutine source_damage_anisoBrittle_dotState(S, co, ip, el)
+      integer, intent(in) :: &
+        co, &                                                                                      !< component-ID of integration point
+        ip, &                                                                                       !< integration point
+        el                                                                                          !< element
+      real(pReal),  intent(in), dimension(3,3) :: &
+        S
+    end subroutine source_damage_anisoBrittle_dotState
+
+    module subroutine source_damage_anisoDuctile_dotState(co, ip, el)
+      integer, intent(in) :: &
+        co, &                                                                                      !< component-ID of integration point
+        ip, &                                                                                       !< integration point
+        el                                                                                          !< element
+    end subroutine source_damage_anisoDuctile_dotState
+
+    module subroutine source_damage_isoDuctile_dotState(co, ip, el)
+      integer, intent(in) :: &
+        co, &                                                                                      !< component-ID of integration point
+        ip, &                                                                                       !< integration point
+        el                                                                                          !< element
+    end subroutine source_damage_isoDuctile_dotState
+
 
   module subroutine source_damage_anisobrittle_getRateAndItsTangent(localphiDot, dLocalphiDot_dPhi, phi, phase, constituent)
     integer, intent(in) :: &
@@ -120,7 +159,8 @@ contains
 module subroutine damage_init
 
   integer :: &
-    ph                                                                                              !< counter in phase loop
+    ph, &                                                                                           !< counter in phase loop
+    Nconstituents
   class(tNode), pointer :: &
    phases, &
    phase, &
@@ -129,10 +169,18 @@ module subroutine damage_init
 
   phases => config_material%get('phase')
 
+  allocate(current(phases%length))
+
   allocate(damageState (phases%length))
   allocate(phase_Nsources(phases%length),source = 0)           ! same for kinematics
 
   do ph = 1,phases%length
+
+    Nconstituents = count(material_phaseAt == ph) * discretization_nIPs
+
+    allocate(current(ph)%phi(Nconstituents),source=1.0_pReal)
+    allocate(current(ph)%d_phi_d_dot_phi(Nconstituents),source=0.0_pReal)
+
     phase => phases%get(ph)
     sources => phase%get('source',defaultVal=emptyList)
     phase_Nsources(ph) = sources%length
@@ -295,7 +343,7 @@ module function integrateDamageState(dt,co,ip,el) result(broken)
     enddo
 
     if(converged_) then
-      broken = constitutive_damage_deltaState(mech_F_e(ph,me),co,ip,el,ph,me)
+      broken = constitutive_damage_deltaState(mech_F_e(ph,me),ph,me)
       exit iteration
     endif
 
@@ -368,14 +416,14 @@ end subroutine damage_results
 !--------------------------------------------------------------------------------------------------
 !> @brief contains the constitutive equation for calculating the rate of change of microstructure
 !--------------------------------------------------------------------------------------------------
-function constitutive_damage_collectDotState(co,ip,el,ph,of) result(broken)
+function constitutive_damage_collectDotState(co,ip,el,ph,me) result(broken)
 
   integer, intent(in) :: &
-    co, &                                                                                          !< component-ID of integration point
+    co, &                                                                                          !< component-ID me integration point
     ip, &                                                                                           !< integration point
     el, &                                                                                           !< element
     ph, &
-    of
+    me
   integer :: &
     so                                                                                               !< counter in source loop
   logical :: broken
@@ -394,12 +442,11 @@ function constitutive_damage_collectDotState(co,ip,el,ph,of) result(broken)
         call source_damage_anisoDuctile_dotState(co, ip, el)
 
       case (DAMAGE_ANISOBRITTLE_ID) sourceType
-        call source_damage_anisoBrittle_dotState(mech_S(material_phaseAt(co,el),material_phaseMemberAt(co,ip,el)),&
+        call source_damage_anisoBrittle_dotState(mech_S(ph,me),co, ip, el) ! correct stress?
-                co, ip, el) ! correct stress?
 
     end select sourceType
 
-    broken = broken .or. any(IEEE_is_NaN(damageState(ph)%p(so)%dotState(:,of)))
+    broken = broken .or. any(IEEE_is_NaN(damageState(ph)%p(so)%dotState(:,me)))
 
   enddo SourceLoop
 
@@ -411,14 +458,11 @@ end function constitutive_damage_collectDotState
 !> @brief for constitutive models having an instantaneous change of state
 !> will return false if delta state is not needed/supported by the constitutive model
 !--------------------------------------------------------------------------------------------------
-function constitutive_damage_deltaState(Fe, co, ip, el, ph, of) result(broken)
+function constitutive_damage_deltaState(Fe, ph, me) result(broken)
 
   integer, intent(in) :: &
-    co, &                                                                                          !< component-ID of integration point
-    ip, &                                                                                           !< integration point
-    el, &                                                                                           !< element
     ph, &
-    of
+    me
   real(pReal),   intent(in), dimension(3,3) :: &
     Fe                                                                                              !< elastic deformation gradient
   integer :: &
@@ -436,14 +480,13 @@ function constitutive_damage_deltaState(Fe, co, ip, el, ph, of) result(broken)
      sourceType: select case (phase_source(so,ph))
 
       case (DAMAGE_ISOBRITTLE_ID) sourceType
-        call source_damage_isoBrittle_deltaState  (constitutive_homogenizedC(co,ip,el), Fe, &
+        call source_damage_isoBrittle_deltaState(constitutive_homogenizedC(ph,me), Fe, ph,me)
-                                                   co, ip, el)
+        broken = any(IEEE_is_NaN(damageState(ph)%p(so)%deltaState(:,me)))
-        broken = any(IEEE_is_NaN(damageState(ph)%p(so)%deltaState(:,of)))
         if(.not. broken) then
           myOffset = damageState(ph)%p(so)%offsetDeltaState
           mySize   = damageState(ph)%p(so)%sizeDeltaState
-          damageState(ph)%p(so)%state(myOffset + 1: myOffset + mySize,of) = &
+          damageState(ph)%p(so)%state(myOffset + 1: myOffset + mySize,me) = &
-          damageState(ph)%p(so)%state(myOffset + 1: myOffset + mySize,of) + damageState(ph)%p(so)%deltaState(1:mySize,of)
+          damageState(ph)%p(so)%state(myOffset + 1: myOffset + mySize,me) + damageState(ph)%p(so)%deltaState(1:mySize,me)
         endif
 
     end select sourceType
@@ -484,4 +527,28 @@ function source_active(source_label,src_length)  result(active_source)
 end function source_active
 
 
+!----------------------------------------------------------------------------------------------
+!< @brief Set damage parameter
+!----------------------------------------------------------------------------------------------
+module subroutine constitutive_damage_set_phi(phi,co,ce)
+
+  real(pReal), intent(in) :: phi
+  integer, intent(in) :: ce, co
+
+
+  current(material_phaseAt2(co,ce))%phi(material_phaseMemberAt2(co,ce)) = phi
+
+end subroutine constitutive_damage_set_phi
+
+
+module function constitutive_damage_get_phi(co,ip,el) result(phi)
+  
+  integer, intent(in) :: co, ip, el
+  real(pReal) :: phi
+
+  phi = current(material_phaseAt(co,el))%phi(material_phaseMemberAt(co,ip,el))
+
+end function constitutive_damage_get_phi
+
+
 end submodule constitutive_damage

src/constitutive_mech.f90

@@ -307,13 +307,9 @@ submodule(constitutive) constitutive_mech
       character(len=*), intent(in) :: group
     end subroutine plastic_nonlocal_results
 
-    module function plastic_dislotwin_homogenizedC(co,ip,el) result(homogenizedC)
+    module function plastic_dislotwin_homogenizedC(ph,me) result(homogenizedC)
-      real(pReal), dimension(6,6) :: &
+      real(pReal), dimension(6,6) :: homogenizedC
-        homogenizedC
+      integer,     intent(in) :: ph,me
-      integer,     intent(in) :: &
-        co, &                                                                                      !< component-ID of integration point
-        ip, &                                                                                       !< integration point
-        el                                                                                          !< element
     end function plastic_dislotwin_homogenizedC
 
 
@@ -559,16 +555,16 @@ subroutine constitutive_hooke_SandItsTangents(S, dS_dFe, dS_dFi, &
   real(pReal),   intent(out), dimension(3,3,3,3) :: &
     dS_dFe, &                                                                                       !< derivative of 2nd P-K stress with respect to elastic deformation gradient
     dS_dFi                                                                                          !< derivative of 2nd P-K stress with respect to intermediate deformation gradient
+
   real(pReal), dimension(3,3) :: E
   real(pReal), dimension(3,3,3,3) :: C
   integer :: &
     ho, &                                                                                           !< homogenization
-    d                                                                                               !< counter in degradation loop
+    d, &                                                                                               !< counter in degradation loop
-  integer :: &
+    i, j, ph, me
-    i, j
 
   ho = material_homogenizationAt(el)
-  C = math_66toSym3333(constitutive_homogenizedC(co,ip,el))
+  C = math_66toSym3333(constitutive_homogenizedC(material_phaseAt(co,el),material_phaseMemberAt(co,ip,el)))
 
   DegradationLoop: do d = 1, phase_NstiffnessDegradations(material_phaseAt(co,el))
     degradationType: select case(phase_stiffnessDegradation(d,material_phaseAt(co,el)))
@@ -1535,19 +1531,16 @@ end subroutine mech_forward
 !> @brief returns the homogenize elasticity matrix
 !> ToDo: homogenizedC66 would be more consistent
 !--------------------------------------------------------------------------------------------------
-module function constitutive_homogenizedC(co,ip,el) result(C)
+module function constitutive_homogenizedC(ph,me) result(C)
 
   real(pReal), dimension(6,6) :: C
-  integer,      intent(in)     :: &
+  integer,      intent(in)    :: ph, me
-    co, &                                                                                          !< component-ID of integration point
-    ip, &                                                                                           !< integration point
-    el                                                                                              !< element
 
-  plasticityType: select case (phase_plasticity(material_phaseAt(co,el)))
+  plasticityType: select case (phase_plasticity(ph))
     case (PLASTICITY_DISLOTWIN_ID) plasticityType
-     C = plastic_dislotwin_homogenizedC(co,ip,el)
+     C = plastic_dislotwin_homogenizedC(ph,me)
     case default plasticityType
-     C = lattice_C66(1:6,1:6,material_phaseAt(co,el))
+     C = lattice_C66(1:6,1:6,ph)
   end select plasticityType
 
 end function constitutive_homogenizedC

src/constitutive_plastic_dislotwin.f90

@@ -485,35 +485,32 @@ end function plastic_dislotwin_init
 !--------------------------------------------------------------------------------------------------
 !> @brief Return the homogenized elasticity matrix.
 !--------------------------------------------------------------------------------------------------
-module function plastic_dislotwin_homogenizedC(co,ip,el) result(homogenizedC)
+module function plastic_dislotwin_homogenizedC(ph,me) result(homogenizedC)
 
+  integer,     intent(in) :: &
+    ph, me
   real(pReal), dimension(6,6) :: &
     homogenizedC
-  integer,     intent(in) :: &
-    co, &                                                                                          !< component-ID of integration point
-    ip, &                                                                                           !< integration point
-    el                                                                                              !< element
 
-  integer :: i, &
+  integer :: i
-             of
   real(pReal) :: f_unrotated
 
-  of = material_phasememberAt(co,ip,el)
+
-  associate(prm => param(phase_plasticityInstance(material_phaseAt(co,el))),&
+  associate(prm => param(phase_plasticityInstance(ph)),&
-            stt => state(phase_plasticityInstance(material_phaseAT(co,el))))
+            stt => state(phase_plasticityInstance(ph)))
 
   f_unrotated = 1.0_pReal &
-              - sum(stt%f_tw(1:prm%sum_N_tw,of)) &
+              - sum(stt%f_tw(1:prm%sum_N_tw,me)) &
-              - sum(stt%f_tr(1:prm%sum_N_tr,of))
+              - sum(stt%f_tr(1:prm%sum_N_tr,me))
 
   homogenizedC = f_unrotated * prm%C66
   do i=1,prm%sum_N_tw
     homogenizedC = homogenizedC &
-                 + stt%f_tw(i,of)*prm%C66_tw(1:6,1:6,i)
+                 + stt%f_tw(i,me)*prm%C66_tw(1:6,1:6,i)
   enddo
   do i=1,prm%sum_N_tr
     homogenizedC = homogenizedC &
-                 + stt%f_tr(i,of)*prm%C66_tr(1:6,1:6,i)
+                 + stt%f_tr(i,me)*prm%C66_tr(1:6,1:6,i)
   enddo
 
   end associate

src/constitutive_thermal.f90

@@ -36,6 +36,13 @@ submodule(constitutive) constitutive_thermal
   end function kinematics_thermal_expansion_init
 
 
+    module subroutine source_thermal_externalheat_dotState(ph, me)
+      integer, intent(in) :: &
+        ph, &
+        me
+    end subroutine source_thermal_externalheat_dotState
+
+
   module subroutine thermal_dissipation_getRate(TDot, Tstar,Lp,phase)
     integer, intent(in) :: &
       phase                                                                                         !< phase ID of element
@@ -47,10 +54,10 @@ submodule(constitutive) constitutive_thermal
       TDot
   end subroutine thermal_dissipation_getRate
 
-  module subroutine thermal_externalheat_getRate(TDot, phase,of)
+  module subroutine thermal_externalheat_getRate(TDot, ph,me)
     integer, intent(in) :: &
-      phase, &
+      ph, &
-      of
+      me
     real(pReal),  intent(out) :: &
       TDot
   end subroutine thermal_externalheat_getRate

src/constitutive_thermal_externalheat.f90

@@ -85,18 +85,18 @@ end function source_thermal_externalheat_init
 !> @brief rate of change of state
 !> @details state only contains current time to linearly interpolate given heat powers
 !--------------------------------------------------------------------------------------------------
-module subroutine source_thermal_externalheat_dotState(phase, of)
+module subroutine source_thermal_externalheat_dotState(ph, me)
 
   integer, intent(in) :: &
-    phase, &
+    ph, &
-    of
+    me
 
   integer :: &
     sourceOffset
 
-  sourceOffset = source_thermal_externalheat_offset(phase)
+  sourceOffset = source_thermal_externalheat_offset(ph)
 
-  thermalState(phase)%p(sourceOffset)%dotState(1,of) = 1.0_pReal                                     ! state is current time
+  thermalState(ph)%p(sourceOffset)%dotState(1,me) = 1.0_pReal                                     ! state is current time
 
 end subroutine source_thermal_externalheat_dotState
 
@@ -104,11 +104,11 @@ end subroutine source_thermal_externalheat_dotState
 !--------------------------------------------------------------------------------------------------
 !> @brief returns local heat generation rate
 !--------------------------------------------------------------------------------------------------
-module subroutine thermal_externalheat_getRate(TDot, phase, of)
+module subroutine thermal_externalheat_getRate(TDot, ph, me)
 
   integer, intent(in) :: &
-    phase, &
+    ph, &
-    of
+    me
   real(pReal),  intent(out) :: &
     TDot
 
@@ -117,18 +117,18 @@ module subroutine thermal_externalheat_getRate(TDot, phase, of)
   real(pReal) :: &
     frac_time
 
-  sourceOffset = source_thermal_externalheat_offset(phase)
+  sourceOffset = source_thermal_externalheat_offset(ph)
 
-  associate(prm => param(source_thermal_externalheat_instance(phase)))
+  associate(prm => param(source_thermal_externalheat_instance(ph)))
   do interval = 1, prm%nIntervals                                                                   ! scan through all rate segments
-    frac_time = (thermalState(phase)%p(sourceOffset)%state(1,of) - prm%t_n(interval)) &
+    frac_time = (thermalState(ph)%p(sourceOffset)%state(1,me) - prm%t_n(interval)) &
               / (prm%t_n(interval+1) - prm%t_n(interval))                                           ! fractional time within segment
     if (     (frac_time <  0.0_pReal .and. interval == 1) &
         .or. (frac_time >= 1.0_pReal .and. interval == prm%nIntervals) &
         .or. (frac_time >= 0.0_pReal .and. frac_time < 1.0_pReal) ) &
       TDot = prm%f_T(interval  ) * (1.0_pReal - frac_time) + &
              prm%f_T(interval+1) * frac_time                                                        ! interpolate heat rate between segment boundaries...
-                                                                                                    ! ...or extrapolate if outside of bounds
+                                                                                                    ! ...or extrapolate if outside me bounds
   enddo
   end associate
 

src/grid/grid_damage_spectral.f90

@@ -17,6 +17,7 @@ module grid_damage_spectral
   use discretization_grid
   use damage_nonlocal
   use YAML_types
+  use homogenization
   use config
 
   implicit none
@@ -197,6 +198,7 @@ function grid_damage_spectral_solution(timeinc) result(solution)
   do k = 1, grid3;  do j = 1, grid(2);  do i = 1,grid(1)
     cell = cell + 1
     call damage_nonlocal_putNonLocalDamage(phi_current(i,j,k),1,cell)
+    homogenization_phi(cell) = phi_current(i,j,k)
   enddo; enddo; enddo
 
   call VecMin(solution_vec,devNull,phi_min,ierr); CHKERRQ(ierr)
@@ -234,6 +236,7 @@ subroutine grid_damage_spectral_forward(cutBack)
     do k = 1, grid3;  do j = 1, grid(2);  do i = 1,grid(1)
       cell = cell + 1
       call damage_nonlocal_putNonLocalDamage(phi_current(i,j,k),1,cell)
+      homogenization_phi(cell) = phi_current(i,j,k)
     enddo; enddo; enddo
   else
     phi_lastInc = phi_current

src/homogenization.f90

@@ -29,7 +29,9 @@ module homogenization
 ! General variables for the homogenization at a  material point
   real(pReal),   dimension(:),         allocatable, public :: &
     homogenization_T, &
-    homogenization_dot_T
+    homogenization_dot_T, &
+    homogenization_phi, &
+    homogenization_dot_phi
   real(pReal),   dimension(:,:,:),     allocatable, public :: &
     homogenization_F0, &                                                                            !< def grad of IP at start of FE increment
     homogenization_F                                                                                !< def grad of IP to be reached at end of FE increment
@@ -62,6 +64,9 @@ module homogenization
     module subroutine thermal_init
     end subroutine thermal_init
 
+    module subroutine damage_init
+    end subroutine damage_init
+
     module subroutine mech_partition(subF,ip,el)
       real(pReal), intent(in), dimension(3,3) :: &
         subF
@@ -75,6 +80,11 @@ module homogenization
       integer,     intent(in) :: ce
     end subroutine thermal_partition
 
+    module subroutine damage_partition(phi,ce)
+      real(pReal), intent(in) :: phi
+      integer,     intent(in) :: ce
+    end subroutine damage_partition
+
     module subroutine thermal_homogenize(ip,el)
       integer, intent(in) :: ip,el
     end subroutine thermal_homogenize
@@ -118,7 +128,7 @@ contains
 !--------------------------------------------------------------------------------------------------
 !> @brief module initialization
 !--------------------------------------------------------------------------------------------------
-subroutine homogenization_init
+subroutine homogenization_init()
 
   class (tNode) , pointer :: &
     num_homog, &
@@ -142,6 +152,7 @@ subroutine homogenization_init
 
   call mech_init(num_homog)
   call thermal_init()
+  call damage_init()
 
   if (any(thermal_type == THERMAL_isothermal_ID)) call thermal_isothermal_init(homogenization_T)
   if (any(thermal_type == THERMAL_conduction_ID)) call thermal_conduction_init(homogenization_T)

src/homogenization_damage.f90

@@ -0,0 +1,40 @@
+!--------------------------------------------------------------------------------------------------
+!> @author Martin Diehl, KU Leuven
+!--------------------------------------------------------------------------------------------------
+submodule(homogenization) homogenization_damage
+
+
+contains
+
+!--------------------------------------------------------------------------------------------------
+!> @brief Allocate variables and set parameters.
+!--------------------------------------------------------------------------------------------------
+module subroutine damage_init()
+
+
+  print'(/,a)',   ' <<<+-  homogenization_damage init  -+>>>'
+
+  allocate(homogenization_phi(discretization_nIPs*discretization_Nelems))
+  allocate(homogenization_dot_phi(discretization_nIPs*discretization_Nelems))
+
+end subroutine damage_init
+
+
+!--------------------------------------------------------------------------------------------------
+!> @brief Partition temperature onto the individual constituents.
+!--------------------------------------------------------------------------------------------------
+module subroutine damage_partition(phi,ce)
+
+  real(pReal), intent(in) :: phi
+  integer,     intent(in) :: ce
+
+  integer :: co
+
+  do co = 1, homogenization_Nconstituents(material_homogenizationAt2(ce))
+    call constitutive_damage_set_phi(phi,co,ce)
+  enddo
+
+end subroutine damage_partition
+
+
+end submodule homogenization_damage

src/homogenization_mech_RGC.f90

@@ -656,8 +656,11 @@ module function mech_RGC_updateState(P,F,avgF,dt,dPdF,ip,el) result(doneAndHappy
       ip, &                                                                                         !< integration point number
       el                                                                                            !< element number
 
+    real(pReal), dimension(6,6) :: C
 
-    equivalentMu = lattice_equivalent_mu(constitutive_homogenizedC(grainID,ip,el),'voigt')
+
+    C = constitutive_homogenizedC(material_phaseAt(grainID,el),material_phaseMemberAt(grainID,ip,el))
+    equivalentMu = lattice_equivalent_mu(C,'voigt')
 
   end function equivalentMu
 

src/source_damage_anisoBrittle.f90

@@ -130,8 +130,8 @@ module subroutine source_damage_anisoBrittle_dotState(S, co, ip, el)
     S
 
   integer :: &
-    phase, &
+    ph, &
-    constituent, &
+    me, &
     sourceOffset, &
     damageOffset, &
     homog, &
@@ -139,14 +139,14 @@ module subroutine source_damage_anisoBrittle_dotState(S, co, ip, el)
   real(pReal) :: &
     traction_d, traction_t, traction_n, traction_crit
 
-  phase = material_phaseAt(co,el)
+  ph = material_phaseAt(co,el)
-  constituent = material_phasememberAt(co,ip,el)
+  me = material_phasememberAt(co,ip,el)
-  sourceOffset = source_damage_anisoBrittle_offset(phase)
+  sourceOffset = source_damage_anisoBrittle_offset(ph)
   homog = material_homogenizationAt(el)
   damageOffset = material_homogenizationMemberAt(ip,el)
 
-  associate(prm => param(source_damage_anisoBrittle_instance(phase)))
+  associate(prm => param(source_damage_anisoBrittle_instance(ph)))
-  damageState(phase)%p(sourceOffset)%dotState(1,constituent) = 0.0_pReal
+  damageState(ph)%p(sourceOffset)%dotState(1,me) = 0.0_pReal
   do i = 1, prm%sum_N_cl
     traction_d    = math_tensordot(S,prm%cleavage_systems(1:3,1:3,1,i))
     traction_t    = math_tensordot(S,prm%cleavage_systems(1:3,1:3,2,i))
@@ -154,8 +154,8 @@ module subroutine source_damage_anisoBrittle_dotState(S, co, ip, el)
 
     traction_crit = prm%g_crit(i)*damage(homog)%p(damageOffset)**2.0_pReal
 
-    damageState(phase)%p(sourceOffset)%dotState(1,constituent) &
+    damageState(ph)%p(sourceOffset)%dotState(1,me) &
-    = damageState(phase)%p(sourceOffset)%dotState(1,constituent) &
+    = damageState(ph)%p(sourceOffset)%dotState(1,me) &
     + prm%dot_o / prm%s_crit(i) &
       * ((max(0.0_pReal, abs(traction_d) - traction_crit)/traction_crit)**prm%q + &
          (max(0.0_pReal, abs(traction_t) - traction_crit)/traction_crit)**prm%q + &

src/source_damage_anisoDuctile.f90

@@ -115,21 +115,21 @@ module subroutine source_damage_anisoDuctile_dotState(co, ip, el)
     el                                                                                              !< element
 
   integer :: &
-    phase, &
+    ph, &
-    constituent, &
+    me, &
     sourceOffset, &
     damageOffset, &
     homog
 
-  phase = material_phaseAt(co,el)
+  ph = material_phaseAt(co,el)
-  constituent = material_phasememberAt(co,ip,el)
+  me = material_phasememberAt(co,ip,el)
-  sourceOffset = source_damage_anisoDuctile_offset(phase)
+  sourceOffset = source_damage_anisoDuctile_offset(ph)
   homog = material_homogenizationAt(el)
   damageOffset = material_homogenizationMemberAt(ip,el)
 
-  associate(prm => param(source_damage_anisoDuctile_instance(phase)))
+  associate(prm => param(source_damage_anisoDuctile_instance(ph)))
-  damageState(phase)%p(sourceOffset)%dotState(1,constituent) &
+  damageState(ph)%p(sourceOffset)%dotState(1,me) &
-    = sum(plasticState(phase)%slipRate(:,constituent)/(damage(homog)%p(damageOffset)**prm%q)/prm%gamma_crit)
+    = sum(plasticState(ph)%slipRate(:,me)/(damage(homog)%p(damageOffset)**prm%q)/prm%gamma_crit)
   end associate
 
 end subroutine source_damage_anisoDuctile_dotState

src/source_damage_isoBrittle.f90

@@ -94,43 +94,36 @@ end function source_damage_isoBrittle_init
 !--------------------------------------------------------------------------------------------------
 !> @brief calculates derived quantities from state
 !--------------------------------------------------------------------------------------------------
-module subroutine source_damage_isoBrittle_deltaState(C, Fe, co, ip, el)
+module subroutine source_damage_isoBrittle_deltaState(C, Fe, ph,me)
 
-  integer, intent(in) :: &
+  integer, intent(in) :: ph,me
-    co, &                                                                                          !< component-ID of integration point
-    ip, &                                                                                           !< integration point
-    el                                                                                              !< element
   real(pReal),  intent(in), dimension(3,3) :: &
     Fe
   real(pReal),  intent(in), dimension(6,6) :: &
     C
 
   integer :: &
-    phase, &
-    constituent, &
     sourceOffset
   real(pReal), dimension(6) :: &
     strain
   real(pReal) :: &
     strainenergy
 
-  phase = material_phaseAt(co,el)                                                                  !< phase ID at co,ip,el
+  sourceOffset = source_damage_isoBrittle_offset(ph)
-  constituent = material_phasememberAt(co,ip,el)                                                   !< state array offset for phase ID at co,ip,el
-  sourceOffset = source_damage_isoBrittle_offset(phase)
 
   strain = 0.5_pReal*math_sym33to6(matmul(transpose(Fe),Fe)-math_I3)
 
-  associate(prm => param(source_damage_isoBrittle_instance(phase)))
+  associate(prm => param(source_damage_isoBrittle_instance(ph)))
   strainenergy = 2.0_pReal*sum(strain*matmul(C,strain))/prm%W_crit
   ! ToDo: check strainenergy = 2.0_pReal*dot_product(strain,matmul(C,strain))/prm%W_crit
 
-  if (strainenergy > damageState(phase)%p(sourceOffset)%subState0(1,constituent)) then
+  if (strainenergy > damageState(ph)%p(sourceOffset)%subState0(1,me)) then
-    damageState(phase)%p(sourceOffset)%deltaState(1,constituent) = &
+    damageState(ph)%p(sourceOffset)%deltaState(1,me) = &
-      strainenergy - damageState(phase)%p(sourceOffset)%state(1,constituent)
+      strainenergy - damageState(ph)%p(sourceOffset)%state(1,me)
   else
-    damageState(phase)%p(sourceOffset)%deltaState(1,constituent) = &
+    damageState(ph)%p(sourceOffset)%deltaState(1,me) = &
-      damageState(phase)%p(sourceOffset)%subState0(1,constituent) - &
+      damageState(ph)%p(sourceOffset)%subState0(1,me) - &
-      damageState(phase)%p(sourceOffset)%state(1,constituent)
+      damageState(ph)%p(sourceOffset)%state(1,me)
   endif
   end associate
 

src/source_damage_isoDuctile.f90

@@ -106,21 +106,21 @@ module subroutine source_damage_isoDuctile_dotState(co, ip, el)
     el                                                                                              !< element
 
   integer :: &
-    phase, &
+    ph, &
-    constituent, &
+    me, &
     sourceOffset, &
     damageOffset, &
     homog
 
-  phase = material_phaseAt(co,el)
+  ph = material_phaseAt(co,el)
-  constituent = material_phasememberAt(co,ip,el)
+  me = material_phasememberAt(co,ip,el)
-  sourceOffset = source_damage_isoDuctile_offset(phase)
+  sourceOffset = source_damage_isoDuctile_offset(ph)
   homog = material_homogenizationAt(el)
   damageOffset = material_homogenizationMemberAt(ip,el)
 
-  associate(prm => param(source_damage_isoDuctile_instance(phase)))
+  associate(prm => param(source_damage_isoDuctile_instance(ph)))
-  damageState(phase)%p(sourceOffset)%dotState(1,constituent) = &
+  damageState(ph)%p(sourceOffset)%dotState(1,me) = &
-    sum(plasticState(phase)%slipRate(:,constituent))/(damage(homog)%p(damageOffset)**prm%q)/prm%gamma_crit
+    sum(plasticState(ph)%slipRate(:,me))/(damage(homog)%p(damageOffset)**prm%q)/prm%gamma_crit
   end associate
 
 end subroutine source_damage_isoDuctile_dotState