From b9dad5cfdd72fd3452b3b6f5baf4283f8e7cec78 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 17 Jun 2016 10:07:25 +0200
Subject: [PATCH] Philippe 17/06/2016: change variable status INOUT->OUT
---
src/MNH/advection_uvw_cen.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/advection_uvw_cen.f90 b/src/MNH/advection_uvw_cen.f90
index 7b4b7e9fe..aaed2d1de 100644
--- a/src/MNH/advection_uvw_cen.f90
+++ b/src/MNH/advection_uvw_cen.f90
@@ -26,7 +26,7 @@ CHARACTER(LEN=4),DIMENSION(2),INTENT(IN):: HLBCX, HLBCY ! X- and Y-direc LBC
!
REAL, INTENT(IN) :: PTSTEP! time step
INTEGER, INTENT(IN) :: KTCOUNT
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PUM, PVM, PWM
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PUM, PVM, PWM
! Variables at t-dt
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PDUM, PDVM, PDWM
REAL, DIMENSION(:,:,:), INTENT(IN) :: PUT , PVT , PWT, PRHODJ
@@ -121,7 +121,7 @@ CHARACTER(LEN=4),DIMENSION(2),INTENT(IN):: HLBCX, HLBCY ! X- and Y-direc LBC
!
REAL, INTENT(IN) :: PTSTEP! time step
INTEGER, INTENT(IN) :: KTCOUNT
-REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PUM, PVM, PWM
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PUM, PVM, PWM
! Variables at t-dt
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PDUM, PDVM, PDWM
REAL, DIMENSION(:,:,:), INTENT(IN) :: PUT , PVT , PWT, PRHODJ
--
GitLab