Juan 08/07/2022:pressurez.f90, comment MPPDB_CHECK for FFT tab not use on GPU

src/MNH/pressurez.f90

@@ -397,17 +397,17 @@ IF (MPPDB_INITIALIZED) THEN
   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(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")
   CALL MPPDB_CHECK(PBF_SXP2_YP1_Z,"PRESSUREZ beg:PBF_SXP2_YP1_Z")
   !Check all INOUT arrays
   CALL MPPDB_CHECK(PRUS,"PRESSUREZ beg:PRUS")