From bc88039ce9c103b060670cd6bacd287eaab1e4e7 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 8 Jul 2020 16:29:20 +0200
Subject: [PATCH] Philippe 08/07/2020: bugfix: budgets: add missing
multiplication by prhodj for scalar variables budgets
(cherry picked from commit 0faa41f358226019fcbbe3a006891eb1c08da51b)
---
src/MNH/sources_neg_correct.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/sources_neg_correct.f90 b/src/MNH/sources_neg_correct.f90
index c0fc8062e..7a0c80d42 100644
--- a/src/MNH/sources_neg_correct.f90
+++ b/src/MNH/sources_neg_correct.f90
@@ -273,12 +273,12 @@ else !NECON + NEGA
if ( lbudget_sv .and. (hcloud == 'C2R2' .or. hcloud == 'KHKO' )) then
do ji = 1, 3
- call Budget( prsvs(:, :, :, nsv_c2r2beg - 1 + ji), 12 + nsv_c2r2beg - 1 + ji, Trim( hbudname )//'_BU_RSV' )
+ call Budget( prsvs(:, :, :, nsv_c2r2beg - 1 + ji) * prhodj(:, :, :), 12 + nsv_c2r2beg - 1 + ji, Trim( hbudname )//'_BU_RSV' )
end do
end if
if ( lbudget_sv .and. hcloud == 'LIMA' ) then
do ji = nsv_lima_beg, nsv_lima_end
- call Budget( prsvs(:, :, :, ji), 12 + ji, Trim( hbudname )//'_BU_RSV' )
+ call Budget( prsvs(:, :, :, ji) * prhodj(:, :, :), 12 + ji, Trim( hbudname )//'_BU_RSV' )
end do
end if
end if
--
GitLab