From 5a8d15d02af12cc9a95636bd9b4ec4d31cc35a2e Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 6 Dec 2023 14:26:52 +0100
Subject: [PATCH] Philippe 06/12/2023: PHYEX: lima: correct condition to call
BUDGET_STORE_END_PHY for budget RR:SEDI
---
src/common/micro/lima.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/common/micro/lima.F90 b/src/common/micro/lima.F90
index f8d9070a9..db3144ccb 100644
--- a/src/common/micro/lima.F90
+++ b/src/common/micro/lima.F90
@@ -901,7 +901,7 @@ if ( BUCONF%lbu_enable ) then
call BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'SEDI', zths(:, :, :) * prhodj(:, :, :) )
if ( BUCONF%lbudget_rc .and. nmom_c.ge.1 .and. lsedc ) &
call BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RC), 'SEDI', zrcs(:, :, :) * prhodj(:, :, :) )
- if ( BUCONF%lbudget_rr .and. nmom_r.ge.2 ) &
+ if ( BUCONF%lbudget_rr .and. nmom_r.ge.1 ) &
call BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR), 'SEDI', zrrs(:, :, :) * prhodj(:, :, :) )
if ( BUCONF%lbudget_ri .and. nmom_i.ge.1 .and. lsedi ) &
call BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI), 'SEDI', zris(:, :, :) * prhodj(:, :, :) )
--
GitLab