diff --git a/src/MNH/ini_aircraft.f90 b/src/MNH/ini_aircraft.f90 index e571b03a74de22cbc1fc0c63058d2442b967c653..530cb390cf71f355a423fdbc836e950f34577a16 100644 --- a/src/MNH/ini_aircraft.f90 +++ b/src/MNH/ini_aircraft.f90 @@ -199,6 +199,15 @@ DO JI = 1, NAIRCRAFTS ! Read CSV data (trajectory) CALL AIRCRAFT_CSV_READ( TZAIRCRAFT, CFILE(JI) ) + IF ( TZAIRCRAFT%LALTDEF ) THEN + ! Print a warning if pressures seem too high (> 2000 hPa) + IF ( ANY( TZAIRCRAFT%XPOSP > 2.E5 ) ) THEN + CMNHMSG(1) = TRIM( TZAIRCRAFT%CTITLE ) // ': pressure values seem too high' + CMNHMSG(2) = 'check that they are given in hPa and not Pa' + CALL PRINT_MSG( NVERB_WARNING, 'GEN', 'INI_AIRCRAFT', OLOCAL = .TRUE. ) + END IF + END IF + END DO IF ( NAIRCRAFTS > 0 ) CALL AIRCRAFTS_NML_DEALLOCATE()