From 24148042ebe201472a70135fa703b0bf4bfcb040 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 8 Nov 2019 11:42:09 +0100
Subject: [PATCH] Philippe 08/11/2019: corrected wrong budget name VISC_BU_RU
-> VISC_BU_RTH
---
src/MNH/viscosity.f90 | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/src/MNH/viscosity.f90 b/src/MNH/viscosity.f90
index 5d822248a..8565643b2 100644
--- a/src/MNH/viscosity.f90
+++ b/src/MNH/viscosity.f90
@@ -1,7 +1,8 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2019 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
+!-------------------------------------------------------------------------------
!
! #####################
MODULE MODI_VISCOSITY
@@ -89,6 +90,7 @@ SUBROUTINE VISCOSITY(HLBCX, HLBCY, KRR, KSV, PNU, PPRANDTL, &
!! MODIFICATIONS
!! -------------
!! 01/18 (C.Lac) Add budgets
+! P. Wautelet 08/11/2019: corrected wrong budget name VISC_BU_RU -> VISC_BU_RTH
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -192,7 +194,7 @@ IF (OVISC_TH) THEN
!
END IF
!
-IF (LBUDGET_TH) CALL BUDGET (PRTHS,4,'VISC_BU_RU')
+IF (LBUDGET_TH) CALL BUDGET (PRTHS,4,'VISC_BU_RTH')
!
!-------------------------------------------------------------------------------
!
--
GitLab