From ba93363db875e1e1bd93a1e03b1b80a04a7f2e3a Mon Sep 17 00:00:00 2001 From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr> Date: Fri, 8 Jul 2022 16:15:13 +0200 Subject: [PATCH] Juan 08/07/2022:pressurez.f90, comment MPPDB_CHECK for FFT tab not use on GPU --- src/MNH/pressurez.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/MNH/pressurez.f90 b/src/MNH/pressurez.f90 index c2217cc4d..ee3bbf18b 100644 --- a/src/MNH/pressurez.f90 +++ b/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") -- GitLab