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

Philippe 08/10/2020: add check in Budget_store_add

parent 57c4ac34
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 0 deletions
src/MNH/budget.f90
+ 3
− 0
View file @ 618bb886
...@@ -211,6 +211,9 @@ subroutine Budget_store_add( tpbudget, hsource, pvars ) ...@@ -211,6 +211,9 @@ subroutine Budget_store_add( tpbudget, hsource, pvars )
call Print_msg( NVERB_DEBUG, 'BUD', 'Budget_store_add', trim( tpbudget%cname )//':'//trim( hsource ) ) call Print_msg( NVERB_DEBUG, 'BUD', 'Budget_store_add', trim( tpbudget%cname )//':'//trim( hsource ) )
if ( tpbudget%ntmpstoresource /= 0 ) &
call Print_msg( NVERB_ERROR, 'BUD', 'Budget_store_add', 'inside a Budget_store_init/Budget_store_end zone' )
if ( lles_call ) call Les_budget( pvars, tpbudget%nid, hsource, oadd = .true. ) if ( lles_call ) call Les_budget( pvars, tpbudget%nid, hsource, oadd = .true. )
! Nothing to do if budgets are not enabled ! Nothing to do if budgets are not enabled
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme