diff options
| author | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-21 19:25:34 -0500 |
|---|---|---|
| committer | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-21 19:25:34 -0500 |
| commit | 33730217cfd6de8a38c93c2400265e4025ab404a (patch) | |
| tree | ed40c4131e0c1b4493183936f34d2233a7ec4cfe /Dragon/src/BRERT.f | |
| parent | 5c0d4cce527b0d42dc794a475550783ea846b30a (diff) | |
#20: Correct more issues in non-regression tests
Diffstat (limited to 'Dragon/src/BRERT.f')
| -rw-r--r-- | Dragon/src/BRERT.f | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Dragon/src/BRERT.f b/Dragon/src/BRERT.f index 10d4155..19afde9 100644 --- a/Dragon/src/BRERT.f +++ b/Dragon/src/BRERT.f @@ -334,6 +334,7 @@ IF(J_FUEL.GT.0) ISTATE(4)=1 IF(ICODE(2).NE.0) ISTATE(8)=1 ! physical albedo information ISTATE(9)=1 ! diffusion coefficient information + IF(IDIFF.EQ.1) ISTATE(10)=NL-1 ! NTOT1 is present IF(ISPH.EQ.0) ISTATE(12)=3 ! discontinuity factor information IF(ISPH.EQ.1) ISTATE(14)=1 ! SPH factor information CALL LCMPUT(IPMAC1,'STATE-VECTOR',NSTATE,1,ISTATE) |