From 64fed845bbdf0e1c8d9ffd111818a18a3f4f94fd Mon Sep 17 00:00:00 2001 From: Dhueper Date: Fri, 29 Nov 2024 15:55:05 +0100 Subject: [PATCH] Minor fix --- Solver/src/libs/timeintegrator/pAdaptationClassRL.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Solver/src/libs/timeintegrator/pAdaptationClassRL.f90 b/Solver/src/libs/timeintegrator/pAdaptationClassRL.f90 index 044285ce6..afc3895d7 100644 --- a/Solver/src/libs/timeintegrator/pAdaptationClassRL.f90 +++ b/Solver/src/libs/timeintegrator/pAdaptationClassRL.f90 @@ -430,9 +430,9 @@ subroutine pAdaptation_pAdapt(this, sem, itera, t, computeTimeDerivative, Comput ! Find the polynomial order that fulfills the error requirement ! ------------------------------------------------------------- ! - if (this % error_estimation) then - Ndir = 4 - end if + ! if (this % error_estimation) then + ! Ndir = 4 + ! end if call Stopwatch % Start("pAdapt: PolOrder selection") adaptedElements = 0