Skip to content
Snippets Groups Projects
Commit 461e264e authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 06/12/2023: PHYEX: lima: correct condition to call BUDGET_STORE_END_PHY for budget RR:SEDI

parent 36a98ba3
No related branches found
No related tags found
No related merge requests found
...@@ -891,7 +891,7 @@ if ( BUCONF%lbu_enable ) then ...@@ -891,7 +891,7 @@ if ( BUCONF%lbu_enable ) then
call BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'SEDI', zths(:, :, :) * prhodj(:, :, :) ) call BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_TH), 'SEDI', zths(:, :, :) * prhodj(:, :, :) )
if ( BUCONF%lbudget_rc .and. nmom_c.ge.1 .and. lsedc ) & if ( BUCONF%lbudget_rc .and. nmom_c.ge.1 .and. lsedc ) &
call BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RC), 'SEDI', zrcs(:, :, :) * prhodj(:, :, :) ) 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(:, :, :) ) call BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RR), 'SEDI', zrrs(:, :, :) * prhodj(:, :, :) )
if ( BUCONF%lbudget_ri .and. nmom_i.ge.1 .and. lsedi ) & if ( BUCONF%lbudget_ri .and. nmom_i.ge.1 .and. lsedi ) &
call BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI), 'SEDI', zris(:, :, :) * prhodj(:, :, :) ) call BUDGET_STORE_END_PHY(D, TBUDGETS(NBUDGET_RI), 'SEDI', zris(:, :, :) * prhodj(:, :, :) )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment