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

Philippe 16/04/2020: budgets: bugfix: correct ENDF for scalar variables budgets

parent 5037d167
No related branches found
No related tags found
No related merge requests found
......@@ -557,7 +557,7 @@ IF (LBU_ENABLE) THEN
if ( lbudget_rh ) call Budget_store_end( tbudgets(NBUDGET_RH ), 'ENDF', prs (:, :, :, 7) * prhodj(:, :, :) / ptstep )
if ( lbudget_sv ) then
do jsv = 1, ksv
call Budget_store_end( tbudgets(jsv + NBUDGET_SV1 - 1), 'ENDF', psvs(:, :, :, jsv) * zrhodjontime(:, :, :) )
call Budget_store_end( tbudgets(jsv + NBUDGET_SV1 - 1), 'ENDF', psvs(:, :, :, jsv) * prhodj(:, :, :) / ptstep )
end do
end if
......
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