diff --git a/src/MNH/advec_ppm_algo.f90 b/src/MNH/advec_ppm_algo.f90
index 6f4b449f5dd68ea0179e4df16d54bb57ff0a3828..8e0bcaf4a745fca1a62c44cf72ecfb5ff617b1a8 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