diff --git a/src/MNH/ppm.f90 b/src/MNH/ppm.f90
index 2b8a1a1db0d8adaad45c5365fc945b87b1920dee..3570b5caa06c5832d9af32dee7ad514796fe1ae9 100644
--- a/src/MNH/ppm.f90
+++ b/src/MNH/ppm.f90
@@ -2279,7 +2279,7 @@ ZDQ = ZQR - ZQL
 !
 ! and finally calculate fluxes for the advection
 !
-!!$mnh_do_concurrent( ji = 1:iiu , jj = 1:iju ,  jk = ikb + 1: ike + 1 )
+!$mnh_do_concurrent( ji = 1:iiu , jj = 1:iju ,  jk = ikb + 1: ike + 1 )
       ZFPOS(ji, jj, jk ) = ZQR(ji, jj, jk-1 ) - 0.5 * PCR(ji, jj, jk ) &
                                    * ( ZDQ(ji, jj, jk-1 ) - ( 1.0 - 2.0 * PCR(ji, jj, jk ) / 3.0) * ZQ6(ji, jj, jk-1 ) )
 !$mnh_end_do()