Juan 10/03/2022:ZSOLVER/tridz.f90 , add MPPDB_CHECK call for ZSOLV

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