From a2fd6cdc54ea64af7cc0f69d07ace94f36e89b82 Mon Sep 17 00:00:00 2001
From: Gaelle DELAUTIER <gaelle.delautier@meteo.fr>
Date: Thu, 19 Oct 2017 13:00:39 +0200
Subject: [PATCH] G.Delautier 19/10/2017 : bug call ini_radar
---
src/MNH/write_lfifm1_for_diag.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index 081980b2d..f03dfd2f3 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/src/MNH/write_lfifm1_for_diag.f90
@@ -2999,7 +2999,7 @@ END IF
!
IF(LRADAR .AND. LUSERR) THEN
! CASE PREP_REAL_CASE after arome
- IF (CCLOUD=='NONE') THEN
+ IF (CCLOUD=='NONE' .OR. CCLOUD='KESS') THEN
DEALLOCATE(XCIT)
ALLOCATE(XCIT(IIU,IJU,IKU))
XCIT(:,:,:)=800.
--
GitLab