From 0d96c728fe9f37ef4d0f0894cb862b5dcb80928e Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 31 Jan 2020 07:02:24 +0100 Subject: [PATCH] better readable --- src/source_thermal_externalheat.f90 | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/source_thermal_externalheat.f90 b/src/source_thermal_externalheat.f90 index 7ae37f037..ccc6ebc29 100644 --- a/src/source_thermal_externalheat.f90 +++ b/src/source_thermal_externalheat.f90 @@ -124,10 +124,8 @@ subroutine source_thermal_externalheat_getRateAndItsTangent(TDot, dTDot_dT, phas sourceOffset = source_thermal_externalheat_offset(phase) do interval = 1, param(instance)%nIntervals ! scan through all rate segments - frac_time = (sourceState(phase)%p(sourceOffset)%state(1,of) - & - param(instance)%time(interval)) / & - (param(instance)%time(interval+1) - & - param(instance)%time(interval)) ! fractional time within segment + frac_time = (sourceState(phase)%p(sourceOffset)%state(1,of) - param(instance)%time(interval)) & + / (param(instance)%time(interval+1) - param(instance)%time(interval)) ! fractional time within segment if ( (frac_time < 0.0_pReal .and. interval == 1) & .or. (frac_time >= 1.0_pReal .and. interval == param(instance)%nIntervals) & .or. (frac_time >= 0.0_pReal .and. frac_time < 1.0_pReal) ) &