From 77d66a3604177c77e6f381bb2e35e20729ceff9e Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 22 Sep 2023 10:40:52 +0200
Subject: [PATCH] Philippe 22/09/2023: sensors: set LFIX field for all sensors
 (not used for the moment)

---
 src/MNH/ini_aircraft.f90     | 2 ++
 src/MNH/ini_balloon.f90      | 2 ++
 src/MNH/ini_posprofilern.f90 | 1 +
 src/MNH/ini_surfstationn.f90 | 1 +
 4 files changed, 6 insertions(+)

diff --git a/src/MNH/ini_aircraft.f90 b/src/MNH/ini_aircraft.f90
index 40be29746..64e39beb3 100644
--- a/src/MNH/ini_aircraft.f90
+++ b/src/MNH/ini_aircraft.f90
@@ -54,6 +54,8 @@ DO JI = 1, NAIRCRAFTS
 
     TZAIRCRAFT%NID = JI
 
+    TZAIRCRAFT%LFIX = .FALSE.
+
   IF ( CTITLE(JI) == '' ) THEN
     WRITE( CTITLE(JI), FMT = '( A, I3.3) ') TRIM( CTYPE(JI) ), JI
 
diff --git a/src/MNH/ini_balloon.f90 b/src/MNH/ini_balloon.f90
index bbcaa9aba..e3ca63c57 100644
--- a/src/MNH/ini_balloon.f90
+++ b/src/MNH/ini_balloon.f90
@@ -48,6 +48,8 @@ DO JI = 1, NBALLOONS
 
   TZBALLOON%NID = JI
 
+  TZBALLOON%LFIX = .FALSE.
+
   IF ( CTITLE(JI) == '' ) THEN
     WRITE( CTITLE(JI), FMT = '( A, I3.3) ') TRIM( CTYPE(JI) ), JI
 
diff --git a/src/MNH/ini_posprofilern.f90 b/src/MNH/ini_posprofilern.f90
index 4ce19c155..6a50b045d 100644
--- a/src/MNH/ini_posprofilern.f90
+++ b/src/MNH/ini_posprofilern.f90
@@ -141,6 +141,7 @@ END IF
 LPROFILER = ( INUMBPROF > 0 )
 
 DO JI = 1, NUMBPROFILER_LOC
+  TPROFILERS(JI)%LFIX = .TRUE.
   CALL TPROFILERS(JI)%DATA_ARRAYS_ALLOCATE( ISTORE )
 END DO
 !----------------------------------------------------------------------------
diff --git a/src/MNH/ini_surfstationn.f90 b/src/MNH/ini_surfstationn.f90
index c1eb1a20d..a14cc771c 100644
--- a/src/MNH/ini_surfstationn.f90
+++ b/src/MNH/ini_surfstationn.f90
@@ -142,6 +142,7 @@ END IF
 LSTATION = ( INUMBSTAT > 0 )
 
 DO JI = 1, NUMBSTAT_LOC
+  TSTATIONS(JI)%LFIX = .TRUE.
   CALL TSTATIONS(JI)%DATA_ARRAYS_ALLOCATE( ISTORE )
 END DO
 
-- 
GitLab