From 34320971a5f9264d535d9b8c8cdaf94dacbae4b3 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Thu, 18 Feb 2021 15:45:00 +0100 Subject: [PATCH] Philippe 18/02/2021: budgets: add DISSH terms to NLES_DISS index (as in older MNH versions) --- src/MNH/les_budget.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/MNH/les_budget.f90 b/src/MNH/les_budget.f90 index 356736f0f..7209f09ae 100644 --- a/src/MNH/les_budget.f90 +++ b/src/MNH/les_budget.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 2002-2020 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2002-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. @@ -430,7 +430,9 @@ ELSE IF (HBU=='TP') THEN KLES_BU = NLES_TP ELSE IF (HBU=='TR') THEN KLES_BU = NLES_TR -ELSE IF (HBU=='DISS') THEN +ELSE IF ( HBU == 'DISS' .OR. HBU == 'DISSH' ) THEN + !Both DISS and DISSH source terms are included in the same index + !but they are stored in different budgets (DISS goes to NBUDGET_TKE, DISSH to NBUDGET_TH) KLES_BU = NLES_DISS ELSE IF (HBU=='DIF') THEN KLES_BU = NLES_DIFF -- GitLab