diff options
| author | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-01 09:43:55 +0100 |
|---|---|---|
| committer | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-01 09:43:55 +0100 |
| commit | f19b43f7cd3f1cbbe01ffd00b060ed1bd254aafb (patch) | |
| tree | f6c715cf649827c919dd155a94be439e03151a02 /Dragon | |
| parent | d87cf2b7386ddef30f84802366aec3a9515681c8 (diff) | |
#17: Correct the SPH option in module BREF: for cases with many feeding assemblies
Diffstat (limited to 'Dragon')
| -rw-r--r-- | Dragon/src/BREANM.f | 5 | ||||
| -rw-r--r-- | Dragon/src/BRENEM.f | 5 | ||||
| -rw-r--r-- | Dragon/src/BRERT.f | 5 |
3 files changed, 15 insertions, 0 deletions
diff --git a/Dragon/src/BREANM.f b/Dragon/src/BREANM.f index 99287ef..345268d 100644 --- a/Dragon/src/BREANM.f +++ b/Dragon/src/BREANM.f @@ -155,6 +155,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 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 diff --git a/Dragon/src/BRERT.f b/Dragon/src/BRERT.f index 3dd87fb..10d4155 100644 --- a/Dragon/src/BRERT.f +++ b/Dragon/src/BRERT.f @@ -214,6 +214,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 |