From c2f318f221c6e8f981a52a5784b62057a08cc6a8 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 9 Feb 2023 10:49:50 +0100
Subject: [PATCH] Philippe 09/02/2023: BLAZE: bugfix: write correct namelist
 NAM_FIRE + always write it (necessary to start without problems)

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

diff --git a/src/MNH/write_desfmn.f90 b/src/MNH/write_desfmn.f90
index 7c1496b3c..afe05b41e 100644
--- a/src/MNH/write_desfmn.f90
+++ b/src/MNH/write_desfmn.f90
@@ -417,7 +417,7 @@ IF(LPASPOL) WRITE(UNIT=ILUSEG,NML=NAM_PASPOL)
 #ifdef MNH_FOREFIRE
 IF(LFOREFIRE) WRITE(UNIT=ILUSEG,NML=NAM_FOREFIRE)
 #endif
-IF(LBLAZE) WRITE(UNIT=ILUSEG,NML=NAM_PASPOL)
+WRITE(UNIT=ILUSEG,NML=NAM_FIRE)
 IF(LCONDSAMP) WRITE(UNIT=ILUSEG,NML=NAM_CONDSAMP)
 IF(LORILAM.AND.LUSECHEM) WRITE(UNIT=ILUSEG,NML=NAM_CH_ORILAM)
 !
-- 
GitLab