From e789dbfbf31c64f05adf08dcafffc6549357839c Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa.aerologie.net>
Date: Tue, 9 Apr 2013 18:04:13 +0200
Subject: [PATCH] Juan 9/04/2013: add update for PRT <=> mirror array
---
MNH/advection.f90 | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/MNH/advection.f90 b/MNH/advection.f90
index edc78d768..005ba4bd2 100644
--- a/MNH/advection.f90
+++ b/MNH/advection.f90
@@ -152,7 +152,6 @@ USE MODI_MPDATA_SCALAR
USE MODI_PPM_MET
USE MODI_PPM_SCALAR
!
-USE MODE_MNH_ZWORK, ONLY : ZW3D20
!
!-------------------------------------------------------------------------------
!
@@ -320,11 +319,11 @@ ELSEIF (HMET_ADV_SCHEME(1:3)=='PPM') THEN
ZRVCT = ZRVCT*PTSTEP_MET
ZRWCT = ZRWCT*PTSTEP_MET
+ !$acc update device(PRT)
CALL PPM_MET (HLBCX,HLBCY, KRR, KTCOUNT, &
ZRUCT, ZRVCT, ZRWCT, PTSTEP_MET, PRHODJ, &
PTHT, PTKET, PRT, PRTHS, PRTKES, PRRS, &
- HMET_ADV_SCHEME, &
- ZW3D20 )
+ HMET_ADV_SCHEME )
!
END IF
!
--
GitLab