diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-19 17:40:49 -0500 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-19 17:40:49 -0500 |
| commit | 5c0d4cce527b0d42dc794a475550783ea846b30a (patch) | |
| tree | e92710519ff6643ab037232229ef4d931875f3ee /Dragon | |
| parent | 0086fa5c672a20b4fcefea39fca31313b9c08d68 (diff) | |
| parent | 01887e0b210adccd23ad216476b0a782a6574787 (diff) | |
Merge branch '8-correct-sfr-geometry-issues-in-module-salt' into 'main'
#8: Correct a bug in the multicell surfacic numerotation
See merge request dragon/5.1!35
Diffstat (limited to 'Dragon')
| -rw-r--r-- | Dragon/src/MUSACG.f90 | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Dragon/src/MUSACG.f90 b/Dragon/src/MUSACG.f90 index 95d6a3a..5a10a94 100644 --- a/Dragon/src/MUSACG.f90 +++ b/Dragon/src/MUSACG.f90 @@ -100,6 +100,9 @@ SUBROUTINE MUSACG(ITRACK,IFTRK,IPRINT,IMACRO,NBSLIN,RCUTOF,GG,LGINF,NBNODE_MACRO I=I+1 ELEM_LIST(ELEM)=I NODE_LIST(I2)=1 + IF(I3.GT.0) THEN + IF(GG%NUM_MACRO(GG%NUM_MERGE(I3)) == IMACRO) NODE_LIST(I3)=1 + ENDIF ENDIF ENDIF IF((I3.GT.0).AND.(ELEM_LIST(ELEM) == 0)) THEN @@ -110,6 +113,7 @@ SUBROUTINE MUSACG(ITRACK,IFTRK,IPRINT,IMACRO,NBSLIN,RCUTOF,GG,LGINF,NBNODE_MACRO ENDIF ENDIF ENDDO ! ELEM + NBNODE_MACRO = 0 DO J=1,GG%NB_NODE IF(NODE_LIST(J) /= -9999) THEN NBNODE_MACRO = NBNODE_MACRO+1 |