diff --git a/src/MNH/ini_aircraft.f90 b/src/MNH/ini_aircraft.f90 index 40be297467af3fdff58183479da32c89a667975a..64e39beb3c82047dd42ed9f19ccd5d9c94f2a434 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 bbcaa9abad8b08aa5af220fc8fc9cc6055de02b5..e3ca63c57f4548453f78fef314f1cf78e9f11ed2 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 4ce19c1558c9b1b90c8c30c16ab0631bd4037214..6a50b045d044f43e3a1ae420c44edadfc66d488c 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 c1eb1a20dab4975e5cb9021e1154403505ed7996..a14cc771c37a1852a1ff9cd1991400cfb71795d7 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