From f19b43f7cd3f1cbbe01ffd00b060ed1bd254aafb Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Mon, 1 Dec 2025 09:43:55 +0100 Subject: #17: Correct the SPH option in module BREF: for cases with many feeding assemblies --- Dragon/src/BRENEM.f | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'Dragon/src/BRENEM.f') diff --git a/Dragon/src/BRENEM.f b/Dragon/src/BRENEM.f index 3e0a281..862ea80 100644 --- a/Dragon/src/BRENEM.f +++ b/Dragon/src/BRENEM.f @@ -169,6 +169,11 @@ ENDIF ENDIF *---- +* THE SPH PARAMETERS ARE NOT DEGENERATE IN NON-FUNDAMENTAL MODE +* CONDITION. THE ONLY SOLUTION CORRESPONDS TO J_FUEL=1 +*---- + IF(ISPH.EQ.1) J_FUEL=1 +*---- * NGET NORMALIZATION OF THE DISCONTINUITY FACTORS *---- IF(J_FUEL.GT.0) THEN -- cgit v1.2.3