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/g2s_nodes.f90 | |
| parent | 5321198af9510e29be2b6a5a3245314e1b5c27cb (diff) | |
Resolve "Correct SFR geometry issues in module SALT:"
Diffstat (limited to 'Dragon/src/g2s_nodes.f90')
| -rw-r--r-- | Dragon/src/g2s_nodes.f90 | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Dragon/src/g2s_nodes.f90 b/Dragon/src/g2s_nodes.f90 index 4d3bb19..17111b1 100644 --- a/Dragon/src/g2s_nodes.f90 +++ b/Dragon/src/g2s_nodes.f90 @@ -405,7 +405,6 @@ contains ! correction of plain CAR2D bug by Alain Hebert (May 2016) integer :: nbFile logical :: isOpen - logical,parameter :: drawMix = .true. real,parameter,dimension(2) :: zoomx = (/ 0.0, 1.0 /) ! no x zoom on postscript plot real,parameter,dimension(2) :: zoomy = (/ 0.0, 1.0 /) ! no y zoom on postscript plot @@ -425,14 +424,14 @@ contains nbFile = nbFile + 1 inquire(nbFile,opened=isOpen) if(isOpen) cycle - open(nbFile,file='errorMix.ps') + open(nbFile,file='errorMix.eps') exit enddo - call drawSegArc(nbFile,szSA,.false.,drawMix,zoomx,zoomy) + call drawSegArc(nbFile,szSA,2,zoomx,zoomy) close(nbFile) write(*,*) 'i,j,mixAv,mixAp : ',i,j,mixAv,mixAp call XABORT("G2S: internal problem for mix values. See the file & - &errorMix.ps") + &errorMix.eps") endif ! CS-IV : fin de la mise en commentaires de Alain indNodeAv=getNodeAv(i,j) ; indNodeAp=getNodeAp(i,j) |