From f1c81e4c5c5530642b307ab211b6046f2b22aa13 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 7 Feb 2022 16:42:29 +0100
Subject: [PATCH] Philippe 07/02/2022: OpenACC: bugfix PTSTEP -> PTSTEP_PPM
---
src/MNH/advec_ppm_algo.f90 | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/src/MNH/advec_ppm_algo.f90 b/src/MNH/advec_ppm_algo.f90
index 6f4b449f5..8e0bcaf4a 100644
--- a/src/MNH/advec_ppm_algo.f90
+++ b/src/MNH/advec_ppm_algo.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2007-2020 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2007-2022 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -315,7 +315,7 @@ CASE('PPM_01')
PPM_01_X(HLBCX, KGRID, PSRC, PCRU, PRHODJ, PTSTEP_PPM)
PSRC = PSRC / PRHOX1
#else
- CALL PPM_01_X(HLBCX, KGRID, PSRC, PCRU, PRHODJ, PTSTEP, ZPPM)
+ CALL PPM_01_X(HLBCX, KGRID, PSRC, PCRU, PRHODJ, PTSTEP_PPM, ZPPM)
!$acc kernels present(PSRC,PRHODJ,ZPPM,PRHOX1)
PSRC = ( PSRC * PRHODJ ) - ZPPM
PSRC = PSRC / PRHOX1
@@ -330,7 +330,7 @@ CASE('PPM_01')
PPM_01_Y(HLBCY, KGRID, PSRC, PCRV, PRHOX1, PTSTEP_PPM)
PSRC = PSRC / PRHOY1
#else
- CALL PPM_01_Y(HLBCY, KGRID, PSRC, PCRV, PRHOX1, PTSTEP, ZPPM)
+ CALL PPM_01_Y(HLBCY, KGRID, PSRC, PCRV, PRHOX1, PTSTEP_PPM, ZPPM)
!$acc kernels present(PSRC,PRHOX1,ZPPM,PRHOY1)
PSRC = (PSRC * PRHOX1) - ZPPM
PSRC = PSRC / PRHOY1
@@ -345,7 +345,7 @@ CASE('PPM_01')
PPM_01_Z(KGRID, PSRC, PCRW, PRHOY1, PTSTEP_PPM)
PSRC = PSRC / PRHOZ1
#else
- CALL PPM_01_Z(KGRID, PSRC, PCRW, PRHOY1, PTSTEP, ZPPM)
+ CALL PPM_01_Z(KGRID, PSRC, PCRW, PRHOY1, PTSTEP_PPM, ZPPM)
!$acc kernels present(PSRC,PRHOY1,ZPPM,PRHOZ1)
PSRC = (PSRC * PRHOY1) - ZPPM
PSRC = PSRC / PRHOZ1
@@ -362,7 +362,7 @@ CASE('PPM_01')
PPM_01_Z(KGRID, PSRC, PCRW, PRHODJ, PTSTEP_PPM)
PSRC = PSRC / PRHOZ2
#else
- CALL PPM_01_Z(KGRID, PSRC, PCRW, PRHODJ, PTSTEP, ZPPM)
+ CALL PPM_01_Z(KGRID, PSRC, PCRW, PRHODJ, PTSTEP_PPM, ZPPM)
!$acc kernels present(PSRC,PRHODJ,ZPPM,PRHOZ2)
PSRC = (PSRC * PRHODJ) - ZPPM
PSRC = PSRC / PRHOZ2
@@ -377,7 +377,7 @@ CASE('PPM_01')
PPM_01_Y(HLBCY, KGRID, PSRC, PCRV, PRHOZ2, PTSTEP_PPM)
PSRC = PSRC / PRHOY2
#else
- CALL PPM_01_Y(HLBCY, KGRID, PSRC, PCRV, PRHOZ2, PTSTEP, ZPPM)
+ CALL PPM_01_Y(HLBCY, KGRID, PSRC, PCRV, PRHOZ2, PTSTEP_PPM, ZPPM)
!$acc kernels present(PSRC,PRHOZ2,ZPPM,PRHOY2)
PSRC = (PSRC * PRHOZ2) - ZPPM
PSRC = PSRC / PRHOY2
@@ -392,7 +392,7 @@ CASE('PPM_01')
PPM_01_X(HLBCX, KGRID, PSRC, PCRU, PRHOY2, PTSTEP_PPM)
PSRC = PSRC / PRHOX2
#else
- CALL PPM_01_X(HLBCX, KGRID, PSRC, PCRU, PRHOY2, PTSTEP, ZPPM)
+ CALL PPM_01_X(HLBCX, KGRID, PSRC, PCRU, PRHOY2, PTSTEP_PPM, ZPPM)
!$acc kernels present(PSRC,PRHOY2,ZPPM,PRHOX2)
PSRC = (PSRC * PRHOY2) - ZPPM
PSRC = PSRC / PRHOX2
--
GitLab