From be410caff1fafec14cda84479d958965190396bf Mon Sep 17 00:00:00 2001
From: VIE Benoit <vie@sxphynh>
Date: Tue, 29 Nov 2022 14:50:24 +0100
Subject: [PATCH] Bugfix init CVRC budget variables to 0

---
 src/mesonh/micro/lima.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/mesonh/micro/lima.f90 b/src/mesonh/micro/lima.f90
index 9859c4bd0..868b01ea7 100644
--- a/src/mesonh/micro/lima.f90
+++ b/src/mesonh/micro/lima.f90
@@ -419,6 +419,8 @@ ZHOMFT(:,:,:)   = 0.
 ZHOMFS(:,:,:)   = 0.
 
 if ( lbu_enable ) then
+  Z_RR_CVRC(:,:,:) = 0.
+  Z_CR_CVRC(:,:,:) = 0.
   allocate( ZTOT_CR_BRKU (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_BRKU(:,:,:) = 0.
   allocate( ZTOT_TH_HONR (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_HONR(:,:,:) = 0.
   allocate( ZTOT_RR_HONR (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_HONR(:,:,:) = 0.
@@ -767,8 +769,6 @@ IF (LWARM .AND. LDEPOC) THEN
 END IF
 !
 !
-!!$Z_RR_CVRC(:,:,:) = 0.
-!!$Z_CR_CVRC(:,:,:) = 0.
 !!$IF (LWARM .AND. LRAIN) THEN
 !!$   if( lbu_enable ) then
 !!$    if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC),                    'R2C1', zrcs(:, :, :) * prhodj(:, :, :) )
-- 
GitLab