diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90 index 83febd489515473d389367fbe943292b2113b7af..da3a813fc4094a0bb365d9a3e859f96872e293fd 100644 --- a/src/MNH/read_field.f90 +++ b/src/MNH/read_field.f90 @@ -320,7 +320,7 @@ INTEGER, INTENT(IN) :: KSIZELBY_ll,KSIZELBYV_ll ! for T,U,W and v INTEGER, INTENT(IN) :: KSIZELBYTKE_ll ! for TKE INTEGER, INTENT(IN) :: KSIZELBYR_ll,KSIZELBYSV_ll ! for Rx and SV ! -REAL, DIMENSION(:,:,:), INTENT(OUT) :: PUM1,PVM,PWM ! U,V,W at t-dt +REAL, DIMENSION(:,:,:), INTENT(OUT) :: PUM,PVM,PWM ! U,V,W at t-dt REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PDUM,PDVM,PDWM ! Difference on U,V,W ! between t+dt and t-dt REAL, DIMENSION(:,:), INTENT(OUT) :: PBL_DEPTH ! BL depth