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

Philippe 29/02/2024: aircrafts: treat correctly aircrafts that won't fly in the current segment

parent 56a12f04
No related branches found
No related tags found
No related merge requests found
......@@ -154,6 +154,8 @@ IF ( ISP == NFLYER_DEFAULT_RANK ) THEN
ELSE IF ( TDTCUR > TZAIRCRAFT%TLAND ) THEN
! Nothing to do
! Aircraft will never be in flight in this run. Data will remain on the initial process.
NRANKNXT_AIRCRAFT(JI) = NFLYER_DEFAULT_RANK
CYCLE
ELSE
! Aircraft is already in flight at the beginning of the run
TZDATE = TDTCUR
......
!MNH_LIC Copyright 2000-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC Copyright 2000-2024 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
......@@ -998,7 +998,6 @@ USE MODD_AIRCRAFT_BALLOON, ONLY: TAIRCRAFTDATA
USE MODD_TYPE_DATE, ONLY: DATE_TIME
USE MODE_DATETIME
USE MODE_POSITION_TOOLS, ONLY: FIND_PROCESS_AND_MODEL_FROM_XY_POS
IMPLICIT NONE
......
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