diff --git a/src/PHYEX/micro/lima.f90 b/src/PHYEX/micro/lima.f90 index 9859c4bd02f194d19caae1e7e1cbd7c522344a7c..868b01ea7f87b5c75d85e39d8a8833e412f51f51 100644 --- a/src/PHYEX/micro/lima.f90 +++ b/src/PHYEX/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(:, :, :) )