diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-10-26 06:09:46 -0400 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-10-26 06:09:46 -0400 |
| commit | e2cfb58950594a3ad6f9ee3f66f97ac3ce11711e (patch) | |
| tree | 7e0c68faf0ab9c65ec1ec4e8115325e314864a3f /Dragon/src/MUSACG.f90 | |
| parent | 5321198af9510e29be2b6a5a3245314e1b5c27cb (diff) | |
Resolve "Correct SFR geometry issues in module SALT:"
Diffstat (limited to 'Dragon/src/MUSACG.f90')
| -rw-r--r-- | Dragon/src/MUSACG.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Dragon/src/MUSACG.f90 b/Dragon/src/MUSACG.f90 index 3d560e4..95d6a3a 100644 --- a/Dragon/src/MUSACG.f90 +++ b/Dragon/src/MUSACG.f90 @@ -427,7 +427,7 @@ SUBROUTINE MUSACG(ITRACK,IFTRK,IPRINT,IMACRO,NBSLIN,RCUTOF,GG,LGINF,NBNODE_MACRO & GG_MAC%IDATA_BC2) ITBC=0 IF(GG_MAC%NBBCDA>0)THEN - DO I=1,GG%NBBCDA + DO I=1,GG_MAC%NBBCDA ITBC=ITBC+1 TYPE=GG_MAC%BCDATAREAD(I)%SALTYPE IF(TYPE.NE.0) CALL XABORT('MUSACG: TYPE=0 EXPECTED.') |