S. Riette 9 Jan 2024: fixes #47

src/arome/ext/aro_turb_mnh.F90

@@ -74,7 +74,7 @@ SUBROUTINE  ARO_TURB_MNH(PHYEX, &
 USE MODD_PARAMETERS,     ONLY: JPVEXT_TURB
 USE MODD_DIMPHYEX,       ONLY: DIMPHYEX_t
 USE MODD_IO, ONLY: TFILEDATA
-USE MODD_BUDGET, ONLY: NBUDGET_RI, TBUDGETDATA, TBUCONF
+USE MODD_BUDGET, ONLY: NBUDGET_RH, TBUDGETDATA, TBUCONF
 !
 USE MODI_TURB
 !
@@ -172,7 +172,7 @@ SUBROUTINE  ARO_TURB_MNH(PHYEX, &
 TYPE(TMDDH),   INTENT(IN), TARGET      :: YDMDDH
 !
 !
-TYPE(TBUDGETDATA), DIMENSION(NBUDGET_RI) :: YLBUDGET !NBUDGET_RI is the one with the highest number needed for turb
+TYPE(TBUDGETDATA), DIMENSION(NBUDGET_RH) :: YLBUDGET !NBUDGET_RH is the one with the highest number needed for turb
 TYPE(TFILEDATA) :: ZTFILE !I/O for MesoNH
 !*       0.2   Declarations of local variables :
 !
@@ -355,7 +355,7 @@ SUBROUTINE  ARO_TURB_MNH(PHYEX, &
 !pour AROME, on n'utilise pas les modifs de Mireille pour la turb au bord des nuages
 ZCEI=0.0
 
-DO JRR=1, NBUDGET_RI
+DO JRR=1, NBUDGET_RH
   YLBUDGET(JRR)%NBUDGET=JRR
   YLBUDGET(JRR)%YDDDH=>YDDDH
   YLBUDGET(JRR)%YDLDDH=>YDLDDH

src/testprogs/turb_mnh/main_turb.F90

@@ -397,7 +397,7 @@ PROGRAM MAIN_TURB
 
 SUBROUTINE INIT_PHYEX(KRR, KRRL, KRRI, KSV, KSIZE_PSIGS, PHYEX)
 
-USE MODD_BUDGET, ONLY: TBUCONF_ASSOCIATE, NBUDGET_RI, TBUCONF, LBU_ENABLE, LBUDGET_U, LBUDGET_V, LBUDGET_W, LBUDGET_TH, &
+USE MODD_BUDGET, ONLY: TBUCONF_ASSOCIATE, NBUDGET_RH, TBUCONF, LBU_ENABLE, LBUDGET_U, LBUDGET_V, LBUDGET_W, LBUDGET_TH, &
                        LBUDGET_TKE, LBUDGET_RV, LBUDGET_RC, LBUDGET_RR, LBUDGET_RI, LBUDGET_RS, LBUDGET_RG, LBUDGET_RH, LBUDGET_SV
 USE MODD_PHYEX, ONLY: PHYEX_t
 USE MODI_INI_PHYEX, ONLY: INI_PHYEX
@@ -480,7 +480,7 @@ SUBROUTINE INIT_PHYEX(KRR, KRRL, KRRI, KSV, KSIZE_PSIGS, PHYEX)
 
 !Budgets
 CALL TBUCONF_ASSOCIATE
-PHYEX%MISC%NBUDGET=NBUDGET_RI
+PHYEX%MISC%NBUDGET=NBUDGET_RH
 DO JRR=1, PHYEX%MISC%NBUDGET
   PHYEX%MISC%YLBUDGET(JRR)%NBUDGET=JRR
 ENDDO