Quentin 14/12/2022: bugfix from merge 15917023

src/arome/ext/aro_turb_mnh.F90

@@ -69,7 +69,6 @@
 !              ------------
 !
 USE MODD_CONF
-USE MODD_NSV, ONLY: NSV_LIMA_NR, NSV_LIMA_NS, NSV_LIMA_NG, NSV_LIMA_NH
 USE MODD_CST, ONLY:CST
 USE MODD_CTURB, ONLY:CSTURB
 USE MODD_LES, ONLY:TLES
@@ -217,6 +216,7 @@ INTEGER   :: KSV_LGBEG, KSV_LGEND ! number of scalar variables
 !
 REAL, DIMENSION(KLON,1,KLEV+2)   :: ZDXX,ZDYY,ZDZZ,ZDZX,ZDZY
                                         ! metric coefficients
+INTEGER :: NSV_LIMA_NR, NSV_LIMA_NS, NSV_LIMA_NG, NSV_LIMA_NH ! TODO LIMA integration : to be sent from above aro_turb_mnh
 REAL, DIMENSION(KLON,1) :: PZS ! TODO: to be sent from above aro_turb_mnh
 REAL, POINTER ::  ZDIRCOSXW(:,:), ZDIRCOSYW(:,:), ZDIRCOSZW(:,:)
 ! Director Cosinus along x, y and z directions at surface w-point
@@ -429,7 +429,7 @@ CALL TURB (CST,CSTURB,TBUCONF,TURBN, YLDIMPHYEX,TLES,&
    & IMI, KRR, KRRL, KRRI, HLBCX, HLBCY, KGRADIENTS,1, &
    & ISPLIT,IMI, KSV, KSV_LGBEG, KSV_LGEND, HPROGRAM,&
    & NSV_LIMA_NR, NSV_LIMA_NS, NSV_LIMA_NG, NSV_LIMA_NH,   &
-   & O2D, ONOMIXLG, OFLAT, TLES%LLES_CALL,OCOUPLES,OBLOWSNOW,& 
+   & O2D, ONOMIXLG, OFLAT, OCOUPLES,OBLOWSNOW,& 
    & OCOMPUTE_SRC, 1.0, &
    & OOCEAN,ODEEPOC, .FALSE.,   &
    & 'NONE',CMICRO,           &

src/common/turb/mode_turb_hor.F90

@@ -366,8 +366,9 @@ REAL, DIMENSION(:,:,:),   INTENT(INOUT) ::  PSIGS
                       PSVM,                                          &
                       PRSVS                                          )
 !
-      IF (KSPLT==1 .AND. TLES%LLES_CALL)                              &
-      CALL      TURB_HOR_SV_CORR(D,CST,CSTURB,KSV,KSV_LGBEG,KSV_LGEND,&
+      IF (KSPLT==1 .AND. TLES%LLES_CALL)                             &
+      CALL      TURB_HOR_SV_CORR(D,CST,CSTURB,TLES,                  &
+                      KSV,KSV_LGBEG,KSV_LGEND,                       &
                       KRR,KRRL,KRRI,OOCEAN,OCOMPUTE_SRC,OBLOWSNOW,   &
                       ONOMIXLG,O2D,                                  &
                       PDXX,PDYY,PDZZ,PDZX,PDZY,PRSNOW,               &

src/mesonh/ext/phys_paramn.f90

@@ -1570,7 +1570,7 @@ END IF
               NSV, NSV_LGBEG, NSV_LGEND,CPROGRAM,                                    &
               NSV_LIMA_NR, NSV_LIMA_NS, NSV_LIMA_NG, NSV_LIMA_NH,                    &
               L2D, LNOMIXLG,LFLAT,                                                   &
-              LLES_CALL, LCOUPLES, LBLOWSNOW,                                        &
+              LCOUPLES, LBLOWSNOW,                                                   &
               GCOMPUTE_SRC, XRSNOW,                                                  &
               LOCEAN, LDEEPOC, LDIAG_IN_RUN,                                         &
               CTURBLEN_CLOUD, CCLOUD,                                                &