diff --git a/src/PHYEX/micro/lima.f90 b/src/PHYEX/micro/lima.f90 index 27d8c5ac54dfcc1e4245902ac3de887c671634ff..0d912878d5add373f3c6a05af1ca4c03dd85dd6c 100644 --- a/src/PHYEX/micro/lima.f90 +++ b/src/PHYEX/micro/lima.f90 @@ -891,7 +891,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(:, :, :) )