From 13922abc599c876cf9ccfa37fd7cbdb2a5bfc041 Mon Sep 17 00:00:00 2001 From: ESCOBAR Juan <escj@nuwa.aerologie.net> Date: Wed, 26 Sep 2012 19:34:17 +0200 Subject: [PATCH] Juan 26/09/2012: remove acc in shuman => use macro inside --- MNH/shuman.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/MNH/shuman.f90 b/MNH/shuman.f90 index a9e8c285b..562d6b07d 100644 --- a/MNH/shuman.f90 +++ b/MNH/shuman.f90 @@ -662,10 +662,10 @@ IKU = SIZE(PA,3) !!$END DO -!$acc region +! acc region PMZM(:,:,2:IKU) = 0.5*( PA(:,:,2:IKU)+PA(:,:,1:IKU-1) ) PMZM(:,:,1) = -999. -!$acc end region +! acc end region ! !------------------------------------------------------------------------------- ! -- GitLab