From d06cde23389dc2cb6fb0771ae41c52171eb739ca Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Thu, 7 Nov 2013 20:08:33 +0100
Subject: [PATCH] Juan 7/11/2013: correct INTENT(INOUT) for PR var
---
MNH/ppm.f90 | 26 +++++++++++++-------------
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/MNH/ppm.f90 b/MNH/ppm.f90
index 41e6da7da..8f431e0cd 100644
--- a/MNH/ppm.f90
+++ b/MNH/ppm.f90
@@ -24,7 +24,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step
!
! output source term
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!acc reflected (PSRC,PCR,PRHO,PR)
!
!!$END FUNCTION PPM_01_X
@@ -44,7 +44,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step
!
! output source term
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!acc reflected (PSRC,PCR,PRHO,PR)
!
END SUBROUTINE PPM_01_Y
@@ -61,7 +61,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step
!
! output source term
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!acc reflected (PSRC,PCR,PRHO,PR)
!
END SUBROUTINE PPM_01_Z
@@ -82,7 +82,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step
!
! output source term
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!
END SUBROUTINE PPM_S0_X
@@ -122,7 +122,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step
!
! output source term
-REAL, DIMENSION(SIZE(PCR,1),SIZE(PCR,2),SIZE(PCR,3)) :: PR
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!
END SUBROUTINE PPM_S0_Z
!
@@ -208,7 +208,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step
!
! output source term
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
INTEGER :: IZQL,IZQR,IZDQ,IZQ6,IZDMQ,IZQL0,IZQR0,IZQ60,IZFPOS,IZFNEG
@@ -267,7 +267,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step
!
! output source term
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!$acc declare present (PSRC,PCR,PRHO,PR)
!
!* 0.2 Declarations of local variables :
@@ -764,7 +764,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PCR & ! Courant number
, PRHO ! density
!
! output source term
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
INTEGER :: IZQL,IZQR,IZDQ,IZQ6,IZDMQ,IZQL0,IZQR0,IZQ60,IZFPOS,IZFNEG
@@ -820,7 +820,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PCR & ! Courant number
, PRHO ! density
!
! output source term
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!$acc declare present (PSRC,PCR,PRHO,PR)
!
!
@@ -1331,7 +1331,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PCR & ! Courant number
, PRHO ! density
!
! output source term
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
INTEGER :: IZQL,IZQR,IZDQ,IZQ6,IZDMQ,IZQL0,IZQR0,IZQ60,IZFPOS,IZFNEG
@@ -1380,7 +1380,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PCR & ! Courant number
, PRHO ! density
!
! output source term
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!$acc declare present (PSRC,PCR,PRHO,PR)
!
!* 0.2 Declarations of local variables :
@@ -1634,7 +1634,7 @@ SUBROUTINE PPM_S0_X(HLBCX, KGRID, PSRC, PCR, PRHO, PTSTEP , PR)
REAL, INTENT(IN) :: PTSTEP ! Time step
!
! output source term
- REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR
+ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
INTEGER :: IZFPOS,IZFNEG,IZPHAT,IZRHO_MXM,IZCR_MXM,IZCR_DXF
@@ -1696,7 +1696,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step
!
! output source term
-REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!$acc declare present (PSRC,PCR,PRHO,PR)
!
!* 0.2 Declarations of local variables :
--
GitLab