From 38e0762ffd31fb3dec553bc8507a898ea5464ae9 Mon Sep 17 00:00:00 2001 From: ESCOBAR Juan <escj@nuwa> Date: Mon, 14 Mar 2022 19:40:17 +0100 Subject: [PATCH] Juan 14/03/2022:ZSOLVER/pressurez.f90, comment some mppdb_check doing deadlock --- src/ZSOLVER/pressurez.f90 | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/ZSOLVER/pressurez.f90 b/src/ZSOLVER/pressurez.f90 index 38cc006d0..4cd5cad08 100644 --- a/src/ZSOLVER/pressurez.f90 +++ b/src/ZSOLVER/pressurez.f90 @@ -434,20 +434,20 @@ IF (MPPDB_INITIALIZED) THEN CALL MPPDB_CHECK(PDZZ,"PRESSUREZ beg:PDZZ") CALL MPPDB_CHECK(PDZX,"PRESSUREZ beg:PDZX") CALL MPPDB_CHECK(PRHOT,"PRESSUREZ beg:PRHOT") - CALL MPPDB_CHECK(PAF,"PRESSUREZ beg:PAF") - CALL MPPDB_CHECK(PCF,"PRESSUREZ beg:PCF") - CALL MPPDB_CHECK(PBF,"PRESSUREZ beg:PBF") - CALL MPPDB_CHECK(PTRIGSX,"PRESSUREZ beg:PTRIGSX") - CALL MPPDB_CHECK(PTRIGSY,"PRESSUREZ beg:PTRIGSY") - CALL MPPDB_CHECK(KIFAXX,"PRESSUREZ beg:KIFAXX") - CALL MPPDB_CHECK(KIFAXY,"PRESSUREZ beg:KIFAXY") +!!$ CALL MPPDB_CHECK(PAF,"PRESSUREZ beg:PAF") +!!$ CALL MPPDB_CHECK(PCF,"PRESSUREZ beg:PCF") +!!$ CALL MPPDB_CHECK(PBF,"PRESSUREZ beg:PBF") +!!$ CALL MPPDB_CHECK(PTRIGSX,"PRESSUREZ beg:PTRIGSX") +!!$ CALL MPPDB_CHECK(PTRIGSY,"PRESSUREZ beg:PTRIGSY") +!!$ CALL MPPDB_CHECK(KIFAXX,"PRESSUREZ beg:KIFAXX") +!!$ CALL MPPDB_CHECK(KIFAXY,"PRESSUREZ beg:KIFAXY") CALL MPPDB_CHECK(PTHT,"PRESSUREZ beg:PTHT") CALL MPPDB_CHECK(PRT,"PRESSUREZ beg:PRT") CALL MPPDB_CHECK(PRHODREF,"PRESSUREZ beg:PRHODREF") CALL MPPDB_CHECK(PTHVREF,"PRESSUREZ beg:PTHVREF") CALL MPPDB_CHECK(PRVREF,"PRESSUREZ beg:PRVREF") CALL MPPDB_CHECK(PEXNREF,"PRESSUREZ beg:PEXNREF") - CALL MPPDB_CHECK(PBFB,"PRESSUREZ beg:PBFB") +!!$ CALL MPPDB_CHECK(PBFB,"PRESSUREZ beg:PBFB") !/!\ don't work not of size NX/NY/NZ CALL MPPDB_CHECK(PBF_SXP2_YP1_Z,"PRESSUREZ beg:PBF_SXP2_YP1_Z") !Check all INOUT arrays CALL MPPDB_CHECK(PRUS,"PRESSUREZ beg:PRUS") -- GitLab