From 8f5cd3ef3026e3e3000b8e01d9081da74eaa6e4a Mon Sep 17 00:00:00 2001
From: Gaelle DELAUTIER <gaelle.delautier@meteo.fr>
Date: Thu, 19 Oct 2017 14:50:55 +0200
Subject: [PATCH] G.Delautier : error in IF test
---
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 f03dfd2f3..284def011 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' .OR. CCLOUD='KESS') THEN
+ IF (CCLOUD=='NONE' .OR. CCLOUD=='KESS') THEN
DEALLOCATE(XCIT)
ALLOCATE(XCIT(IIU,IJU,IKU))
XCIT(:,:,:)=800.
--
GitLab