diff --git a/src/MNH/tridz.f90 b/src/MNH/tridz.f90 index 9c7baab1deb34e0607d90e3d67e97802f74a06a1..06f45dc6e6115638a1c253098e5eaec746ec221d 100644 --- a/src/MNH/tridz.f90 +++ b/src/MNH/tridz.f90 @@ -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 !