From ad4f34aefc75bb6a303e4ca6dfe426a756fcd0a2 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 26 Feb 2020 15:29:13 +0100
Subject: [PATCH] Philippe 26/02/2020: bugfix: corrected condition to write
budget CORR_BU_RRS
---
src/MNH/lima.f90 | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/MNH/lima.f90 b/src/MNH/lima.f90
index 4351a3a4c..a0a8d4ca2 100644
--- a/src/MNH/lima.f90
+++ b/src/MNH/lima.f90
@@ -1,6 +1,6 @@
-!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2013-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 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.
! ######spl
MODULE MODI_LIMA
@@ -96,8 +96,8 @@ END MODULE MODI_LIMA
!! Original 15/03/2018
!!
!! B.Vié 02/2019 : minor correction on budget
-!!
-!!
+! P. Wautelet 26/02/2020: bugfix: corrected condition to write budget CORR_BU_RRS
+!
!* 0. DECLARATIONS
! ------------
USE MODD_IO_ll, ONLY: TFILEDATA
@@ -561,7 +561,7 @@ IF(LBU_ENABLE) THEN
IF (LBUDGET_RC .AND. LWARM .AND. LRAIN) CALL BUDGET (ZRCS(:,:,:)*PRHODJ(:,:,:), 7 , 'CORR_BU_RRC')
IF (LBUDGET_RR .AND. LWARM .AND. LRAIN) CALL BUDGET (ZRRS(:,:,:)*PRHODJ(:,:,:), 8 , 'CORR_BU_RRR')
IF (LBUDGET_RI .AND. LCOLD .AND. LSNOW) CALL BUDGET (ZRIS(:,:,:)*PRHODJ(:,:,:), 9 , 'CORR_BU_RRI')
- IF (LBUDGET_RI .AND. LCOLD .AND. LSNOW) CALL BUDGET (ZRSS(:,:,:)*PRHODJ(:,:,:),10 , 'CORR_BU_RRS')
+ IF (LBUDGET_RS .AND. LCOLD .AND. LSNOW) CALL BUDGET (ZRSS(:,:,:)*PRHODJ(:,:,:),10 , 'CORR_BU_RRS')
IF (LBUDGET_SV) THEN
IF (LWARM .AND. LRAIN) CALL BUDGET (ZCCS(:,:,:)*PRHODJ(:,:,:), 12+NSV_LIMA_NC , 'CORR_BU_RSV')
IF (LWARM .AND. LRAIN) CALL BUDGET (ZCRS(:,:,:)*PRHODJ(:,:,:), 12+NSV_LIMA_NR , 'CORR_BU_RSV')
--
GitLab