From a0b7122fae6f7f8b349a4f067994c19dc371cbab Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 9 Feb 2023 10:50:40 +0100
Subject: [PATCH] Philippe 09/02/2023: BLAZE: bugfix: provide KLFITYPE argument
 to IO_FILE_ADD2LIST

---
 src/MNH/firemodel.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/MNH/firemodel.f90 b/src/MNH/firemodel.f90
index d90f051a6..0ed93811a 100644
--- a/src/MNH/firemodel.f90
+++ b/src/MNH/firemodel.f90
@@ -1995,7 +1995,7 @@ SUBROUTINE FIRE_READFUEL( TPFILE, PFIREFUELMAP, PFMIGNITION, PFMWALKIG )
 
   !*      2. Open file
 
-  CALL IO_FILE_ADD2LIST( TFUELFILE, 'FuelMap', 'MNH', 'READ', HFORMAT='NETCDF4' )
+  CALL IO_FILE_ADD2LIST( TFUELFILE, 'FuelMap', 'MNH', 'READ', HFORMAT = 'NETCDF4', KLFITYPE = 2 )
   CALL IO_File_open( TFUELFILE )
 
   !*      3. Read fuels properties
@@ -2116,7 +2116,7 @@ SUBROUTINE FIRE_READBMAP(TPFILE, PBMAP)
 
   !*      2. Open file
 
-  CALL IO_FILE_ADD2LIST( TFUELFILE, CBMAPFILE, 'MNH', 'READ', HFORMAT='NETCDF4' )
+  CALL IO_FILE_ADD2LIST( TFUELFILE, CBMAPFILE, 'MNH', 'READ', HFORMAT = 'NETCDF4', KLFITYPE = 2 )
   CALL IO_File_open( TFUELFILE )
 
   !*      4. read Burning map file
-- 
GitLab