From e84f6b61c9031b7b7c5ca18ff0da16a7a62a6857 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Thu, 26 Mar 2020 10:18:01 +0100 Subject: [PATCH] Philippe 26/03/2020: budgets: bugfix: wrong variable for HGCV budgets --- src/MNH/ini_budget.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/MNH/ini_budget.f90 b/src/MNH/ini_budget.f90 index 93c2224b9..f01574bbc 100644 --- a/src/MNH/ini_budget.f90 +++ b/src/MNH/ini_budget.f90 @@ -2412,7 +2412,7 @@ if ( tbudgets(NBUDGET_RG)%lenabled ) then gcond = hcloud == 'ICE4' .and. lred tzsource%cmnhname = 'HGCV' tzsource%clongname = 'hail to graupel conversion' - call Budget_source_add( tbudgets(NBUDGET_RG), tzsource, gcond, nghcvrg ) + call Budget_source_add( tbudgets(NBUDGET_RG), tzsource, gcond, nhgcvrg ) gcond = hcloud == 'ICE4' .and. lred tzsource%cmnhname = 'DRYH' @@ -2551,7 +2551,7 @@ if ( tbudgets(NBUDGET_RH)%lenabled ) then gcond = hcloud == 'ICE4' .and. lred tzsource%cmnhname = 'HGCV' tzsource%clongname = 'hail to graupel conversion' - call Budget_source_add( tbudgets(NBUDGET_RH), tzsource, gcond, nghcvrh ) + call Budget_source_add( tbudgets(NBUDGET_RH), tzsource, gcond, nhgcvrh ) gcond = hcloud == 'ICE4' .and. lred tzsource%cmnhname = 'DRYH' -- GitLab