From 686c78753d07bc6a450bc8d63117c4614b4dfd04 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Thu, 10 Mar 2022 10:15:20 +0100
Subject: [PATCH] Juan 10/03/2022:ZSOLVER/tridz.f90 , add MPPDB_CHECK call for
ZSOLV
---
src/ZSOLVER/tridz.f90 | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/src/ZSOLVER/tridz.f90 b/src/ZSOLVER/tridz.f90
index 203c413f8..302cb30aa 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
--
GitLab