Merge pull request #509 from geodynamics/illorenzo7-patch-5

Update Diagnostics_Thermal_Equation.F90

src/Diagnostics/Diagnostics_Thermal_Equation.F90

@@ -917,6 +917,7 @@ Subroutine Compute_Thermal_HeatSource(buffer)
         !The "Flux" associated with the volume heating
         If (compute_quantity(vol_heat_flux)) Then
             ! Note that radial_integral_weights give int{f r^2}/int(r^2}
+            tmp1d(N_R) = 0.0d0 ! Initialize heat flux to zero at lower boundary
             Do r = N_R-1, 1,-1
                 mean_rho = half*(ref%density(r)     +  ref%density(r+1)    )
                 mean_t   = half*(ref%temperature(r) +  ref%temperature(r+1))