diff --git a/src/MNH/advection_uvw_cen.f90 b/src/MNH/advection_uvw_cen.f90 index 7b4b7e9fe784ad69890bf133c8a2a5b570dfde1c..aaed2d1de4237086e346a1b7adb2d4321895d4cc 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