From 169b1858fbdb42c6a1bb5ebffc697c70a20b85c4 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Tue, 28 Jul 2020 17:31:19 +0200
Subject: [PATCH] Marie M. 28/07/2020: correction to read correctly ASCLLV
files during PREP step when coupled to MesoNH (e.g. files to initialize HUG
and TG)
---
src/SURFEX/prep_isba_ascllv.F90 | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/src/SURFEX/prep_isba_ascllv.F90 b/src/SURFEX/prep_isba_ascllv.F90
index 3b9ba798d..561e33e05 100644
--- a/src/SURFEX/prep_isba_ascllv.F90
+++ b/src/SURFEX/prep_isba_ascllv.F90
@@ -91,6 +91,11 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
IF (LHOOK) CALL DR_HOOK('PREP_ISBA_ASCLLV',0,ZHOOK_HANDLE)
!
+IF ((.NOT.ALLOCATED(NINDEX)).AND.(HPROGRAM=='MESONH')) THEN
+ ALLOCATE(NINDEX(U%NDIM_FULL))
+ NINDEX(:) = 0
+ENDIF
+!
IF (.NOT.ALLOCATED(NNUM)) THEN
ALLOCATE(NNUM(U%NDIM_FULL))
IF (NRANK/=NPIO) THEN
--
GitLab