diff --git a/src/ZSOLVER/tridz.f90 b/src/ZSOLVER/tridz.f90
index 302cb30aaeb5fefaaed67d751e0d00e6f33990aa..028e241a00950c384ed1428852e68d8db158a74d 100644
--- a/src/ZSOLVER/tridz.f90
+++ b/src/ZSOLVER/tridz.f90
@@ -672,6 +672,8 @@ IF (L2D) THEN
                                ZDZM(IKE+1) **2
   !
 ELSE
+  IF ( CSPLIT /= 'BSPLITTING' ) THEN
+  print*,"WARNING CSPLIT /= 'BSPLITTING =", CSPLIT     
   DO JK= IKB,IKE
     DO JJ= 1, IYMODEY_ll
       DO JI= 1, IXMODEY_ll
@@ -689,6 +691,7 @@ ELSE
   !
   PBFY(1:IYMODEY_ll,1:IXMODEY_ll,IKE+1) =  0.5 * ( PRHOM(IKE)   + PRHOM(IKE+1) ) /  &
                                ZDZM(IKE+1) **2
+  END IF
   !
 
 !JUAN Z_SPLITTING