Quentin 19/01/2022: fix Budget names (respect the old names of AROME with the new budget procedure

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