Skip to content
Snippets Groups Projects
Commit 77d66a36 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 22/09/2023: sensors: set LFIX field for all sensors (not used for the moment)

parent 04c12ac2
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
......@@ -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
......
......@@ -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
!----------------------------------------------------------------------------
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment