Skip to content
Snippets Groups Projects
Commit d06cde23 authored by ESCOBAR Juan's avatar ESCOBAR Juan
Browse files

Juan 7/11/2013: correct INTENT(INOUT) for PR var

parent d4b39a20
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 13 additions and 13 deletions
MNH/ppm.f90
+ 13
− 13
View file @ d06cde23
...@@ -24,7 +24,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density ...@@ -24,7 +24,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step REAL, INTENT(IN) :: PTSTEP ! Time step
! !
! output source term ! output source term
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!acc reflected (PSRC,PCR,PRHO,PR) !acc reflected (PSRC,PCR,PRHO,PR)
! !
!!$END FUNCTION PPM_01_X !!$END FUNCTION PPM_01_X
...@@ -44,7 +44,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density ...@@ -44,7 +44,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step REAL, INTENT(IN) :: PTSTEP ! Time step
! !
! output source term ! output source term
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!acc reflected (PSRC,PCR,PRHO,PR) !acc reflected (PSRC,PCR,PRHO,PR)
! !
END SUBROUTINE PPM_01_Y END SUBROUTINE PPM_01_Y
...@@ -61,7 +61,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density ...@@ -61,7 +61,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step REAL, INTENT(IN) :: PTSTEP ! Time step
! !
! output source term ! output source term
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!acc reflected (PSRC,PCR,PRHO,PR) !acc reflected (PSRC,PCR,PRHO,PR)
! !
END SUBROUTINE PPM_01_Z END SUBROUTINE PPM_01_Z
...@@ -82,7 +82,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density ...@@ -82,7 +82,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step REAL, INTENT(IN) :: PTSTEP ! Time step
! !
! output source term ! output source term
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
! !
END SUBROUTINE PPM_S0_X END SUBROUTINE PPM_S0_X
...@@ -122,7 +122,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density ...@@ -122,7 +122,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step REAL, INTENT(IN) :: PTSTEP ! Time step
! !
! output source term ! 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 END SUBROUTINE PPM_S0_Z
! !
...@@ -208,7 +208,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density ...@@ -208,7 +208,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step REAL, INTENT(IN) :: PTSTEP ! Time step
! !
! output source term ! output source term
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
INTEGER :: IZQL,IZQR,IZDQ,IZQ6,IZDMQ,IZQL0,IZQR0,IZQ60,IZFPOS,IZFNEG INTEGER :: IZQL,IZQR,IZDQ,IZQ6,IZDMQ,IZQL0,IZQR0,IZQ60,IZFPOS,IZFNEG
...@@ -267,7 +267,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density ...@@ -267,7 +267,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step REAL, INTENT(IN) :: PTSTEP ! Time step
! !
! output source term ! output source term
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!$acc declare present (PSRC,PCR,PRHO,PR) !$acc declare present (PSRC,PCR,PRHO,PR)
! !
!* 0.2 Declarations of local variables : !* 0.2 Declarations of local variables :
...@@ -764,7 +764,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PCR & ! Courant number ...@@ -764,7 +764,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PCR & ! Courant number
, PRHO ! density , PRHO ! density
! !
! output source term ! output source term
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
INTEGER :: IZQL,IZQR,IZDQ,IZQ6,IZDMQ,IZQL0,IZQR0,IZQ60,IZFPOS,IZFNEG INTEGER :: IZQL,IZQR,IZDQ,IZQ6,IZDMQ,IZQL0,IZQR0,IZQ60,IZFPOS,IZFNEG
...@@ -820,7 +820,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PCR & ! Courant number ...@@ -820,7 +820,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PCR & ! Courant number
, PRHO ! density , PRHO ! density
! !
! output source term ! output source term
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!$acc declare present (PSRC,PCR,PRHO,PR) !$acc declare present (PSRC,PCR,PRHO,PR)
! !
! !
...@@ -1331,7 +1331,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PCR & ! Courant number ...@@ -1331,7 +1331,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PCR & ! Courant number
, PRHO ! density , PRHO ! density
! !
! output source term ! output source term
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
INTEGER :: IZQL,IZQR,IZDQ,IZQ6,IZDMQ,IZQL0,IZQR0,IZQ60,IZFPOS,IZFNEG INTEGER :: IZQL,IZQR,IZDQ,IZQ6,IZDMQ,IZQL0,IZQR0,IZQ60,IZFPOS,IZFNEG
...@@ -1380,7 +1380,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PCR & ! Courant number ...@@ -1380,7 +1380,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PCR & ! Courant number
, PRHO ! density , PRHO ! density
! !
! output source term ! output source term
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!$acc declare present (PSRC,PCR,PRHO,PR) !$acc declare present (PSRC,PCR,PRHO,PR)
! !
!* 0.2 Declarations of local variables : !* 0.2 Declarations of local variables :
...@@ -1634,7 +1634,7 @@ SUBROUTINE PPM_S0_X(HLBCX, KGRID, PSRC, PCR, PRHO, PTSTEP , PR) ...@@ -1634,7 +1634,7 @@ SUBROUTINE PPM_S0_X(HLBCX, KGRID, PSRC, PCR, PRHO, PTSTEP , PR)
REAL, INTENT(IN) :: PTSTEP ! Time step REAL, INTENT(IN) :: PTSTEP ! Time step
! !
! output source term ! output source term
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
INTEGER :: IZFPOS,IZFNEG,IZPHAT,IZRHO_MXM,IZCR_MXM,IZCR_DXF INTEGER :: IZFPOS,IZFNEG,IZPHAT,IZRHO_MXM,IZCR_MXM,IZCR_DXF
...@@ -1696,7 +1696,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density ...@@ -1696,7 +1696,7 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHO ! density
REAL, INTENT(IN) :: PTSTEP ! Time step REAL, INTENT(IN) :: PTSTEP ! Time step
! !
! output source term ! output source term
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PR REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PR
!$acc declare present (PSRC,PCR,PRHO,PR) !$acc declare present (PSRC,PCR,PRHO,PR)
! !
!* 0.2 Declarations of local variables : !* 0.2 Declarations of local variables :
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme