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 ...@@ -54,6 +54,8 @@ DO JI = 1, NAIRCRAFTS
TZAIRCRAFT%NID = JI TZAIRCRAFT%NID = JI
TZAIRCRAFT%LFIX = .FALSE.
IF ( CTITLE(JI) == '' ) THEN IF ( CTITLE(JI) == '' ) THEN
WRITE( CTITLE(JI), FMT = '( A, I3.3) ') TRIM( CTYPE(JI) ), JI WRITE( CTITLE(JI), FMT = '( A, I3.3) ') TRIM( CTYPE(JI) ), JI
......
...@@ -48,6 +48,8 @@ DO JI = 1, NBALLOONS ...@@ -48,6 +48,8 @@ DO JI = 1, NBALLOONS
TZBALLOON%NID = JI TZBALLOON%NID = JI
TZBALLOON%LFIX = .FALSE.
IF ( CTITLE(JI) == '' ) THEN IF ( CTITLE(JI) == '' ) THEN
WRITE( CTITLE(JI), FMT = '( A, I3.3) ') TRIM( CTYPE(JI) ), JI WRITE( CTITLE(JI), FMT = '( A, I3.3) ') TRIM( CTYPE(JI) ), JI
......
...@@ -141,6 +141,7 @@ END IF ...@@ -141,6 +141,7 @@ END IF
LPROFILER = ( INUMBPROF > 0 ) LPROFILER = ( INUMBPROF > 0 )
DO JI = 1, NUMBPROFILER_LOC DO JI = 1, NUMBPROFILER_LOC
TPROFILERS(JI)%LFIX = .TRUE.
CALL TPROFILERS(JI)%DATA_ARRAYS_ALLOCATE( ISTORE ) CALL TPROFILERS(JI)%DATA_ARRAYS_ALLOCATE( ISTORE )
END DO END DO
!---------------------------------------------------------------------------- !----------------------------------------------------------------------------
......
...@@ -142,6 +142,7 @@ END IF ...@@ -142,6 +142,7 @@ END IF
LSTATION = ( INUMBSTAT > 0 ) LSTATION = ( INUMBSTAT > 0 )
DO JI = 1, NUMBSTAT_LOC DO JI = 1, NUMBSTAT_LOC
TSTATIONS(JI)%LFIX = .TRUE.
CALL TSTATIONS(JI)%DATA_ARRAYS_ALLOCATE( ISTORE ) CALL TSTATIONS(JI)%DATA_ARRAYS_ALLOCATE( ISTORE )
END DO 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