Skip to content
Snippets Groups Projects
Commit cf6d28da authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 10/10/2023: tridz: remove wrong condition (was there to prevent...

Philippe 10/10/2023: tridz: remove wrong condition (was there to prevent problem with ZSOLVER; correct condition is based on HPRESOPT)
parent b5408916
No related branches found
No related tags found
No related merge requests found
......@@ -683,7 +683,6 @@ IF (L2D) THEN
!
ELSE
IF ( HPRESOPT /= 'ZSOLV' ) THEN
IF ( CSPLIT /= 'BSPLITTING' ) THEN
!print*,"WARNING CSPLIT /= 'BSPLITTING =", CSPLIT
DO JK= IKB,IKE
DO JJ= 1, IYMODEY_ll
......@@ -702,7 +701,6 @@ ELSE
!
PBFY(1:IYMODEY_ll,1:IXMODEY_ll,IKE+1) = 0.5 * ( PRHOM(IKE) + PRHOM(IKE+1) ) / &
ZDZM(IKE+1) **2
END IF
END IF
!
......
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