Philippe 17/06/2016: change variable status INOUT->OUT
authorPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Fri, 17 Jun 2016 08:07:25 +0000 (10:07 +0200)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Fri, 17 Jun 2016 08:07:25 +0000 (10:07 +0200)
src/MNH/advection_uvw_cen.f90

index 7b4b7e9..aaed2d1 100644 (file)
@@ -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