From 618bb886ab1f49beb2edf7a6e329b60c3ed6facd Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 8 Oct 2020 15:10:05 +0200
Subject: [PATCH] Philippe 08/10/2020: add check in Budget_store_add

---
 src/MNH/budget.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/MNH/budget.f90 b/src/MNH/budget.f90
index e98d8652d..ebb03d466 100644
--- a/src/MNH/budget.f90
+++ b/src/MNH/budget.f90
@@ -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 ) )
 
+  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. )
 
   ! Nothing to do if budgets are not enabled
-- 
GitLab