From 87e1ad9b5abd363dd0ab0a889007919ac51c3d75 Mon Sep 17 00:00:00 2001 From: ESCOBAR Juan <escj@nuwa> Date: Sat, 23 Nov 2013 22:56:57 +0100 Subject: [PATCH] Juan 23/11/2013: replace reflected by declare pcopy(in) --- MNH/contrav.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/MNH/contrav.f90 b/MNH/contrav.f90 index 3aa636585..38ef8d54d 100644 --- a/MNH/contrav.f90 +++ b/MNH/contrav.f90 @@ -40,7 +40,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZY ! Metric coefficients REAL, DIMENSION(:,:,:), INTENT(OUT) :: PRUCT ! Contrav comp along x-bar REAL, DIMENSION(:,:,:), INTENT(OUT) :: PRVCT ! Contrav comp along y-bar REAL, DIMENSION(:,:,:), INTENT(OUT) :: PRWCT ! Contrav comp along z-bar -!$acc reflected (pdxx,pdyy,pdzz,pdzx,pdzy,prut,prvt,prwt,PRUCT,PRVCT,PRWCT) ! END SUBROUTINE CONTRAV_ACC @@ -284,7 +283,8 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZY ! Metric coefficients REAL, DIMENSION(:,:,:), INTENT(OUT) :: PRUCT ! Contrav comp along x-bar REAL, DIMENSION(:,:,:), INTENT(OUT) :: PRVCT ! Contrav comp along y-bar REAL, DIMENSION(:,:,:), INTENT(OUT) :: PRWCT ! Contrav comp along z-bar -!$acc reflected (pdxx,pdyy,pdzz,pdzx,pdzy,prut,prvt,prwt,PRUCT,PRVCT,PRWCT) +!$acc declare pcopyin (PRUT,PRVT,PRWT,pdxx,pdyy,pdzz,pdzx,pdzy) +!$acc declare pcopyout(PRUCT,PRVCT,PRWCT) ! ! !* 0.2 declarations of local variables -- GitLab