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

Philippe 08/11/2019: corrected wrong budget name VISC_BU_RU -> VISC_BU_RTH

parent a362b4c1
No related branches found
No related tags found
No related merge requests found
!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 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.
!-------------------------------------------------------------------------------
! !
! ##################### ! #####################
MODULE MODI_VISCOSITY MODULE MODI_VISCOSITY
...@@ -89,6 +90,7 @@ SUBROUTINE VISCOSITY(HLBCX, HLBCY, KRR, KSV, PNU, PPRANDTL, & ...@@ -89,6 +90,7 @@ SUBROUTINE VISCOSITY(HLBCX, HLBCY, KRR, KSV, PNU, PPRANDTL, &
!! MODIFICATIONS !! MODIFICATIONS
!! ------------- !! -------------
!! 01/18 (C.Lac) Add budgets !! 01/18 (C.Lac) Add budgets
! P. Wautelet 08/11/2019: corrected wrong budget name VISC_BU_RU -> VISC_BU_RTH
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
!* 0. DECLARATIONS !* 0. DECLARATIONS
...@@ -192,7 +194,7 @@ IF (OVISC_TH) THEN ...@@ -192,7 +194,7 @@ IF (OVISC_TH) THEN
! !
END IF END IF
! !
IF (LBUDGET_TH) CALL BUDGET (PRTHS,4,'VISC_BU_RU') IF (LBUDGET_TH) CALL BUDGET (PRTHS,4,'VISC_BU_RTH')
! !
!------------------------------------------------------------------------------- !-------------------------------------------------------------------------------
! !
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment