From 583830eabad7d6dc8070a8b4cc57c033de27b39f Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Thu, 23 Nov 2023 16:41:18 +0100
Subject: [PATCH] Juan 23/11/2023:ppm.f90, /!\ Bug , double "!!" before
!$mnh_do_concurrent ( only in FFT version )
---
src/MNH/ppm.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/ppm.f90 b/src/MNH/ppm.f90
index 2b8a1a1db..3570b5caa 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()
--
GitLab