diff --git a/MNH/contrav.f90 b/MNH/contrav.f90 index 3aa636585f36e173b7bb2b4962a395b524405187..38ef8d54d01fe67e2be5377f60e2d5734af0ae04 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