From 4546482b130fc8e145e8dcdc5633a5cb8d085845 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 16 Apr 2020 10:59:00 +0200
Subject: [PATCH] Philippe 16/04/2020: budgets: bugfix: correct ENDF for scalar
variables budgets
---
src/MNH/endstep.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/endstep.f90 b/src/MNH/endstep.f90
index a272d4473..d22aa9148 100644
--- a/src/MNH/endstep.f90
+++ b/src/MNH/endstep.f90
@@ -557,7 +557,7 @@ IF (LBU_ENABLE) THEN
if ( lbudget_rh ) call Budget_store_end( tbudgets(NBUDGET_RH ), 'ENDF', prs (:, :, :, 7) * prhodj(:, :, :) / ptstep )
if ( lbudget_sv ) then
do jsv = 1, ksv
- call Budget_store_end( tbudgets(jsv + NBUDGET_SV1 - 1), 'ENDF', psvs(:, :, :, jsv) * zrhodjontime(:, :, :) )
+ call Budget_store_end( tbudgets(jsv + NBUDGET_SV1 - 1), 'ENDF', psvs(:, :, :, jsv) * prhodj(:, :, :) / ptstep )
end do
end if
--
GitLab