diff --git a/src/ZSOLVER/tridz.f90 b/src/ZSOLVER/tridz.f90
index 203c413f8251bcfb5bd4d6e242198a7923efd16d..302cb30aaeb5fefaaed67d751e0d00e6f33990aa 100644
--- a/src/ZSOLVER/tridz.f90
+++ b/src/ZSOLVER/tridz.f90
@@ -542,6 +542,12 @@ PCF_ZS(IIB:IIE,IJB:IJE,IKE+1) = 0.0
 IKBE = IKU
 
 IF ( HPRESOPT == 'ZSOLV' ) THEN
+   if ( mppdb_initialized ) then  
+      call Mppdb_check( A_K,       "Tridz zsolv beg:A_K"       )
+      call Mppdb_check( B_K,       "Tridz zsolv beg:B_K"       )
+      call Mppdb_check( C_K,       "Tridz zsolv beg:C_K"       )
+      call Mppdb_check( D_K,       "Tridz zsolv beg:D_K"       )
+   end if
    call mg_main_mnh_init(IIMAX_ll,IKBE,PDXHATM*IIMAX_ll,ZDZM(IKB)*IKBE,&
         A_K,B_K,C_K,D_K)
 END IF