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

Philippe 20/01/2021: bugfix: condition was wrong if HLES_AVG='H'. Budgets were not written.

(cherry picked from commit cb7345d0e6c373de6b9310858acc39266c4717d4)
parent 445eb9cf
No related branches found
No related tags found
No related merge requests found
!MNH_LIC Copyright 2000-2020 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC Copyright 2000-2021 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.
......@@ -59,6 +59,7 @@ END MODULE MODI_WRITE_LES_n
! C. Lac 02/2019: add rain fraction as a LES diagnostic
! P. Wautelet 13/10/2020: bugfix: correct some names for LES_DIACHRO_2PT diagnostics (Ri)
! P. Wautelet 26/10/2020: bugfix: correct some comments and conditions + add missing RES_RTPZ
! P. Wautelet 20/01/2021: bugfix: condition was wrong if HLES_AVG='H'. Budgets were not written.
!! --------------------------------------------------------------------------
!
!* 0. DECLARATIONS
......@@ -121,8 +122,8 @@ IF (.NOT. LLES) RETURN
IF (HLES_AVG=='A' &
.AND. (XLES_TEMP_MEAN_START==XUNDEF .OR. XLES_TEMP_MEAN_END==XUNDEF)) RETURN
IF (HLES_AVG=='E' .AND. CLES_NORM_TYPE=='NONE' ) RETURN
IF (HLES_AVG=='H' .AND. (CLES_NORM_TYPE=='NONE' &
.OR. XLES_TEMP_MEAN_START/=XUNDEF .OR. XLES_TEMP_MEAN_END/=XUNDEF)) RETURN
IF ( HLES_AVG == 'H' .AND. ( CLES_NORM_TYPE == 'NONE' &
.OR. XLES_TEMP_MEAN_START == XUNDEF .OR. XLES_TEMP_MEAN_END == XUNDEF ) ) RETURN
!
!* 1. Initializations
! ---------------
......
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