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

Philippe 01/10/2020: bugfix: add missing default values/initializations for balloons

(cherry picked from commit a02a7488)
parent 88b2d19b
No related branches found
No related tags found
No related merge requests found
!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC Copyright 2000-2020 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 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
...@@ -128,7 +128,8 @@ END MODULE MODI_AIRCRAFT_BALLOON_EVOL ...@@ -128,7 +128,8 @@ END MODULE MODI_AIRCRAFT_BALLOON_EVOL
!! October, 2016 (G.DELAUTIER) LIMA !! October, 2016 (G.DELAUTIER) LIMA
!! March,28, 2018 (P. Wautelet) replace TEMPORAL_DIST by DATETIME_DISTANCE !! March,28, 2018 (P. Wautelet) replace TEMPORAL_DIST by DATETIME_DISTANCE
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
!! ! P. Wautelet 01/10/2020: bugfix: initialize GSTORE
!
!! -------------------------------------------------------------------------- !! --------------------------------------------------------------------------
! !
!* 0. DECLARATIONS !* 0. DECLARATIONS
...@@ -346,6 +347,7 @@ ALLOCATE(XSVW_FLUX(SIZE(PSV,1),SIZE(PSV,2),SIZE(PSV,3),SIZE(PSV,4))) ...@@ -346,6 +347,7 @@ ALLOCATE(XSVW_FLUX(SIZE(PSV,1),SIZE(PSV,2),SIZE(PSV,3),SIZE(PSV,4)))
ILUOUT = TLUOUT%NLU ILUOUT = TLUOUT%NLU
! !
ZR = 0. ZR = 0.
GSTORE = .FALSE.
! !
!* 1.0 initialization of processor test !* 1.0 initialization of processor test
! -------------------------------- ! --------------------------------
......
...@@ -3,6 +3,10 @@ ...@@ -3,6 +3,10 @@
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
!----------------------------------------------------------------- !-----------------------------------------------------------------
! Modifications:
! P. Wautelet 01/10/2020: bugfix: DEFAULT_FLYER: add missing default values
!-----------------------------------------------------------------
! ######################### ! #########################
MODULE MODI_INI_AIRCRAFT_BALLOON MODULE MODI_INI_AIRCRAFT_BALLOON
! ######################### ! #########################
...@@ -319,15 +323,24 @@ TPFLYER%STEP = 60. ! s ...@@ -319,15 +323,24 @@ TPFLYER%STEP = 60. ! s
! !
TPFLYER%LAT = XUNDEF TPFLYER%LAT = XUNDEF
TPFLYER%LON = XUNDEF TPFLYER%LON = XUNDEF
TPFLYER%XLAUNCH = XUNDEF! X coordinate of launch
TPFLYER%YLAUNCH = XUNDEF! Y coordinate of launch
TPFLYER%ALT = XUNDEF TPFLYER%ALT = XUNDEF
TPFLYER%WASCENT = 5. ! m/s TPFLYER%WASCENT = 5. ! m/s
TPFLYER%RHO = XUNDEF TPFLYER%RHO = XUNDEF
TPFLYER%PRES = XUNDEF TPFLYER%PRES = XUNDEF
TPFLYER%DIAMETER= XUNDEF
TPFLYER%AERODRAG= XUNDEF
TPFLYER%INDDRAG = XUNDEF
TPFLYER%VOLUME = XUNDEF
TPFLYER%MASS = XUNDEF
! !
TPFLYER%SEG = 0 TPFLYER%SEG = 0
TPFLYER%SEGCURN = 1 TPFLYER%SEGCURN = 1
TPFLYER%SEGCURT = 0. TPFLYER%SEGCURT = 0.
! !
TPFLYER%ALTDEF = .FALSE.
!
TPFLYER%X_CUR = XUNDEF TPFLYER%X_CUR = XUNDEF
TPFLYER%Y_CUR = XUNDEF TPFLYER%Y_CUR = XUNDEF
TPFLYER%Z_CUR = XUNDEF TPFLYER%Z_CUR = XUNDEF
......
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