From cb781d763134cf51d0e9287e222a6744e4b78847 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Fri, 29 Apr 2022 11:55:50 +0200
Subject: [PATCH] C.Barthe: 29/04/2022: typo budget rg CMEL in ELEC
---
src/MNH/rain_ice_elec.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/rain_ice_elec.f90 b/src/MNH/rain_ice_elec.f90
index 69721492d..b82bed489 100644
--- a/src/MNH/rain_ice_elec.f90
+++ b/src/MNH/rain_ice_elec.f90
@@ -3227,7 +3227,7 @@ IMPLICIT NONE
if ( lbudget_rs ) call Budget_store_add( tbudgets(NBUDGET_RS), 'CMEL', &
Unpack( -zzw(:) * zrhodj(:), mask = gmicro(:, :, :), field = 0. ) )
- if ( lbudget_rg ) call Budget_store_end( tbudgets(NBUDGET_RG), 'CMEL', &
+ if ( lbudget_rg ) call Budget_store_add( tbudgets(NBUDGET_RG), 'CMEL', &
Unpack( zzw(:) * zrhodj(:), mask = gmicro(:, :, :), field = 0. ) )
if ( lbudget_sv ) then
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_elecbeg + 4 ), 'CMEL', &
--
GitLab