From 30a0114f36147c3d1984e24877664f0996457210 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Wed, 19 Jan 2022 18:28:44 +0100
Subject: [PATCH] Quentin 19/01/2022: fix Budget names (respect the old names
of AROME with the new budget procedure
---
src/arome/aux/budget_DDH.F90 | 13 +++++++++++--
1 file changed, 11 insertions(+), 2 deletions(-)
diff --git a/src/arome/aux/budget_DDH.F90 b/src/arome/aux/budget_DDH.F90
index f934798c0..5e448dc8e 100644
--- a/src/arome/aux/budget_DDH.F90
+++ b/src/arome/aux/budget_DDH.F90
@@ -105,8 +105,17 @@ IF (SIZE(PVARS,3)==NFLEVGDDH+2) THEN
ELSE
IOFF=0
ENDIF
-
-CLPROC=HBUVAR(1:MIN(4, LEN(HBUVAR)))//REPEAT('_', MAX(0, 4-LEN(HBUVAR))) !if length is less than 4, fill with '_'
+!if length is less than 4, fill with budget old names
+IF(LEN(HBUVAR)==1) THEN
+ CLPROC=HBUVAR(1:MIN(4, LEN(HBUVAR)))//'_BU'
+ELSE IF(LEN(HBUVAR)==2) THEN
+ CLPROC=HBUVAR(1:MIN(4, LEN(HBUVAR)))//'_B'
+ELSE IF(LEN(HBUVAR)==3) THEN
+ CLPROC=HBUVAR(1:MIN(4, LEN(HBUVAR)))//'_'
+ELSE
+ CLPROC=HBUVAR(1:MIN(4, LEN(HBUVAR)))
+END IF
+!
IF (YDLDDH%LDDH_OMP) THEN
CLDDH='T'//YDDDH%YVARMULT(KBUDN)%CNAME//CLPROC
ELSE
--
GitLab