multiple damage mechanisms currently not supported

src/phase_damage.f90

@@ -24,9 +24,6 @@ submodule(phase) damage
   integer(kind(DAMAGE_UNDEFINED_ID)),     dimension(:), allocatable :: &
     phase_source                                                                                    !< active sources mechanisms of each phase
 
-  integer, dimension(:), allocatable :: &
-    phase_Nsources
-
   type(tDataContainer), dimension(:), allocatable :: current
 
   type(tDamageParameters), dimension(:), allocatable :: param
@@ -109,7 +106,7 @@ module subroutine damage_init
    phases, &
    phase, &
    sources
-
+  logical:: damage_active
 
   print'(/,a)', ' <<<+-  phase:damage init  -+>>>'
 
@@ -118,9 +115,9 @@ module subroutine damage_init
   allocate(current(phases%length))
 
   allocate(damageState (phases%length))
-  allocate(phase_Nsources(phases%length),source = 0)
   allocate(param(phases%length))
 
+  damage_active = .false.
   do ph = 1,phases%length
 
     Nmembers = count(material_phaseID == ph)
@@ -134,14 +131,13 @@ module subroutine damage_init
     param(ph)%K(2,2) = sources%get_asFloat('K_22',defaultVal=0.0_pReal)
     param(ph)%K(3,3) = sources%get_asFloat('K_33',defaultVal=0.0_pReal)
     if (sources%length > 1) error stop
-    phase_Nsources(ph) = sources%length
+    if (sources%length == 1) damage_active = .true.
 
   enddo
 
   allocate(phase_source(phases%length), source = DAMAGE_UNDEFINED_ID)
 
-! initialize source mechanisms
-  if(maxval(phase_Nsources) /= 0) then
+  if (damage_active) then
     where(isobrittle_init()  ) phase_source = DAMAGE_ISOBRITTLE_ID
     where(isoductile_init()  ) phase_source = DAMAGE_ISODUCTILE_ID
     where(anisobrittle_init()) phase_source = DAMAGE_ANISOBRITTLE_ID
@@ -288,9 +284,6 @@ module subroutine damage_results(group,ph)
   character(len=*), intent(in) :: group
   integer,          intent(in) :: ph
 
-  integer :: so
-
-  sourceLoop: do so = 1, phase_Nsources(ph)
 
   if (phase_source(ph) /= DAMAGE_UNDEFINED_ID) &
     call results_closeGroup(results_addGroup(group//'damage'))
@@ -311,8 +304,6 @@ module subroutine damage_results(group,ph)
 
   end select sourceType
 
-  enddo SourceLoop
-
 end subroutine damage_results