phase_thermalInstance was not being counted

2014-10-14 07:54:25 +00:00 · 2014-10-14 07:54:25 +00:00 · 1f795d674c
parent ce1f17c9cb
commit 1f795d674c
1 changed files with 1 additions and 0 deletions
--- a/code/material.f90
+++ b/code/material.f90
@ -864,6 +864,7 @@ subroutine material_parsePhase(fileUnit,myPart)
           case default
             call IO_error(200_pInt,ext_msg=trim(IO_stringValue(line,positions,2_pInt)))
         end select
+         phase_thermalInstance(section) = count(phase_thermal(1:section) == phase_thermal(section))               ! count instances
       case ('vacancy')
         select case (IO_lc(IO_stringValue(line,positions,2_pInt)))
           case (LOCAL_VACANCY_CONSTANT_label)