diff --git a/MNH/shuman.f90 b/MNH/shuman.f90 index a9e8c285bf4ec46df14e29709c2c8a1106c5712a..562d6b07d9656b2fbfc85d6344a3b3b9f10ff9dc 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 ! !------------------------------------------------------------------------------- !