From d07f8359a38ac0affda6d64382b800c8c64b7f22 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 12 Sep 2017 17:25:45 +0200
Subject: [PATCH] Philippe 12/09/2017: IO: MNH: length of record name is set
with LEN_HREC
---
src/MNH/ini_lb.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/ini_lb.f90 b/src/MNH/ini_lb.f90
index d468fed17..855504ff4 100644
--- a/src/MNH/ini_lb.f90
+++ b/src/MNH/ini_lb.f90
@@ -229,7 +229,7 @@ LOGICAL :: GHORELAX_R, GHORELAX_SV ! switch for the horizontal relaxation
! for moist and scalar variables
CHARACTER (LEN= LEN(HGETRVM)), DIMENSION (7) :: YGETRXM ! Arrays with the get indicators
! for the moist variables
-CHARACTER (LEN= 16), DIMENSION (7) :: YRECFMX,YRECFMY ! arrays with the name of the LB fields
+CHARACTER (LEN=LEN_HREC), DIMENSION (7) :: YRECFMX,YRECFMY ! arrays with the name of the LB fields
! in FM files for the moist variables
INTEGER :: IMASDEV
CHARACTER(LEN=2) :: INDICE ! to index CCN and IFN fields of LIMA scheme
--
GitLab