From c0abe2ef8a565c36652655c88aa0ede5ffa54b36 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 29 Jan 2019 14:23:56 +0100
Subject: [PATCH] Philippe 29/01/2018: typo correction in variable name
---
src/MNH/read_field.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90
index 83febd489..da3a813fc 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
--
GitLab