diff --git a/src/ZSOLVER/pressurez.f90 b/src/ZSOLVER/pressurez.f90 index 38cc006d04519e1be335f0c4c104d751814bdfe1..4cd5cad08909fc32c67dec3c4744fdebd975c238 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")