Skip to content
Snippets Groups Projects
Commit e4008c6e authored by Chi-Tuân Pham's avatar Chi-Tuân Pham
Browse files

[telemac3d] Fix deleting useless check of ZPLANE for planes 1 and NPLAN

(bottom and free surface planes) with mesh transformation = 3 (fixed z)
Check introduced in MR !233
parent 2e1642fa
No related branches found
No related tags found
No related merge requests found
...@@ -252,7 +252,7 @@ ...@@ -252,7 +252,7 @@
CALL PLANTE(1) CALL PLANTE(1)
ENDIF ENDIF
ENDDO ENDDO
DO I=1,NPLAN-1 DO I=2,NPLAN-2
IF((TRANSF_PLANE%I(I).EQ.3.AND.TRANSF_PLANE%I(I+1).EQ.3) IF((TRANSF_PLANE%I(I).EQ.3.AND.TRANSF_PLANE%I(I+1).EQ.3)
& .AND.ZPLANE%R(I+1).LE.ZPLANE%R(I)) THEN & .AND.ZPLANE%R(I+1).LE.ZPLANE%R(I)) THEN
WRITE(LU,*) 'Z COORDINATE (ZPLANE) DOES NOT INCREASE ', WRITE(LU,*) 'Z COORDINATE (ZPLANE) DOES NOT INCREASE ',
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment