From fe314dfd82f579c4bf68baad590eddebeda4bae1 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Mon, 21 Nov 2022 15:25:05 +0100
Subject: [PATCH] Quentin 21/11/2022: bugfix, LWU and LWD not filled with ECRAD
 with profiler

---
 src/MNH/ground_paramn.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MNH/ground_paramn.f90 b/src/MNH/ground_paramn.f90
index 194e6fd47..2954d2084 100644
--- a/src/MNH/ground_paramn.f90
+++ b/src/MNH/ground_paramn.f90
@@ -935,7 +935,7 @@ IF (LDIAG_IN_RUN) THEN
   XCURRENT_SFCO2(:,:) = ZSFCO2(:,:)
   XCURRENT_DSTAOD(:,:)=0.0
   XCURRENT_SLTAOD(:,:)=0.0
-  IF (CRAD=='ECMW') THEN
+  IF (CRAD/='NONE') THEN
   XCURRENT_LWD  (:,:) = XFLALWD(:,:)
   XCURRENT_SWD  (:,:) = SUM(XDIRSRFSWD(:,:,:)+XSCAFLASWD(:,:,:),DIM=3)
   XCURRENT_LWU  (:,:) = XLWU(:,:,IKB) 
-- 
GitLab