Skip to content
Snippets Groups Projects
Commit 38e0762f authored by ESCOBAR Juan's avatar ESCOBAR Juan
Browse files

Juan 14/03/2022:ZSOLVER/pressurez.f90, comment some mppdb_check doing deadlock

parent 159681ea
No related branches found
No related tags found
No related merge requests found
......@@ -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")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment