diff --git a/src/arome/ext/aro_turb_mnh.F90 b/src/arome/ext/aro_turb_mnh.F90
index da9dc27d866df0b7da6d7bd6f7fab2667764f028..510562a72a233cb9a3856378c86a5e413325c768 100644
--- a/src/arome/ext/aro_turb_mnh.F90
+++ b/src/arome/ext/aro_turb_mnh.F90
@@ -209,7 +209,7 @@ LOGICAL :: OTURB_FLX ! switch to write the
LOGICAL :: OTURB_DIAG ! switch to write some
! diagnostic fields in the syncronous FM-file
LOGICAL :: ORMC01 ! switch for RMC01 lengths in SBL
-LOGICAL :: OOCEAN ! switch for OCEAN version of turbulence scheme
+LOGICAL :: OOCEAN,ODEEPOC! switch for OCEAN version of turbulence scheme
LOGICAL :: OCOUPLES ! switch for ocean-atm LES coupling
LOGICAL :: OBLOWSNOW ! switch for prognostic blow snow scheme
CHARACTER(LEN=4) :: HTURBDIM ! dimensionality of the
@@ -295,6 +295,7 @@ ZIMPL=1.
!Version Ocean du schema de turbulence
OOCEAN=.FALSE.
+ODEEPOC=.FALSE.
HPROGRAM='AROME '
@@ -447,7 +448,7 @@ HCLOUD="ICE3"
CALL TURB (CST,CSTURB,TBUCONF,KLEV+2,1,KKL,IMI, KRR, KRRL, KRRI, HLBCX, HLBCY,&
& ISPLIT,IMI, KSV, KSV_LGBEG, KSV_LGEND, &
& HPROGRAM, O2D, ONOMIXLG, OFLAT, LLES_CALL,OCOUPLES,OBLOWSNOW,&
- & OTURB_FLX,OTURB_DIAG,OSUBG_COND,ORMC01,OOCEAN,LDHARATU, &
+ & OTURB_FLX,OTURB_DIAG,OSUBG_COND,ORMC01,OOCEAN,ODEEPOC,LDHARATU, &
& HTURBDIM,HTURBLEN,'NONE','NONE','LIMA', &
& ZIMPL, &
& 2*PTSTEP,ZTFILE, &
diff --git a/src/common/turb/mode_bl89.F90 b/src/common/turb/mode_bl89.F90
index 7d4e21b2055f0108055891e4a8d4eb9e9584636e..ce0ef18133d54bfacad948517beb219e8ab97b26 100644
--- a/src/common/turb/mode_bl89.F90
+++ b/src/common/turb/mode_bl89.F90
@@ -58,7 +58,7 @@ CONTAINS
!
USE MODD_CST, ONLY: CST_t
USE MODD_CTURB, ONLY: CSTURB_t
-USE MODD_PARAMETERS
+USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
USE MODD_PRECISION, ONLY: MNHREAL
!
!
diff --git a/src/common/turb/mode_prandtl.F90 b/src/common/turb/mode_prandtl.F90
index e3d237cd63cf42bb7f5e9574bc05012a78b14760..19c8d33ee11663f8267c74ce8455c850781eefae 100644
--- a/src/common/turb/mode_prandtl.F90
+++ b/src/common/turb/mode_prandtl.F90
@@ -14,7 +14,7 @@
! 05/2020 V. Masson and C. Lac : bug in D_PHI3DTDZ2_O_DDTDZ
!
USE MODD_CTURB, ONLY : CSTURB_t
-USE MODD_PARAMETERS, ONLY : JPVEXT_TURB
+USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
!
USE MODI_SHUMAN, ONLY: MZM, MZF
IMPLICIT NONE
@@ -146,7 +146,7 @@ USE MODD_CST, ONLY : CST_t
USE MODD_CTURB, ONLY : CSTURB_t
USE MODD_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
-USE MODD_PARAMETERS
+USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
!
USE MODI_GRADIENT_M
USE MODE_EMOIST
diff --git a/src/common/turb/mode_rmc01.F90 b/src/common/turb/mode_rmc01.F90
index 628b4cad0dda1fcef65f2a70fd43b0ef5ec61e0f..9e6ddb1fb459c01280d3dd5b3ce360af7fa99f8b 100644
--- a/src/common/turb/mode_rmc01.F90
+++ b/src/common/turb/mode_rmc01.F90
@@ -46,7 +46,7 @@ SUBROUTINE RMC01(HTURBLEN,KKA,KKU,KKL,PZZ,PDXX,PDYY, &
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAMETERS
+USE MODD_PARAMETERS, ONLY: JPVEXT_TURB, XUNDEF
USE MODD_CST
USE MODD_CTURB
!
diff --git a/src/common/turb/mode_rotate_wind.F90 b/src/common/turb/mode_rotate_wind.F90
index e117b95f81770e26771aee5999a8ef9aedaef688..e91e2a20684934c1d88905d62c3da628b10258ea 100644
--- a/src/common/turb/mode_rotate_wind.F90
+++ b/src/common/turb/mode_rotate_wind.F90
@@ -73,7 +73,7 @@ CONTAINS
!
!* 0. DECLARATIONS
! ------------
-USE MODD_PARAMETERS
+USE MODD_PARAMETERS, ONLY: JPVEXT
!
IMPLICIT NONE
!
diff --git a/src/common/turb/mode_sbl.F90 b/src/common/turb/mode_sbl.F90
index ef8e3ac6681eebf28d3df0b0351a6bd473149893..d4105044f2426da3361d98abe3f991dfd90cb5ec 100644
--- a/src/common/turb/mode_sbl.F90
+++ b/src/common/turb/mode_sbl.F90
@@ -298,7 +298,7 @@ END FUNCTION PAULSON_PSIM_0D
!
FUNCTION LMO_2D(PUSTAR,PTHETA,PRV,PSFTH,PSFRV)
USE MODD_CST
- USE MODD_PARAMETERS
+ USE MODD_PARAMETERS, ONLY: JPVEXT_TURB,XUNDEF
REAL, DIMENSION(:,:), INTENT(IN) :: PUSTAR
REAL, DIMENSION(:,:), INTENT(IN) :: PTHETA
REAL, DIMENSION(:,:), INTENT(IN) :: PRV
@@ -329,7 +329,7 @@ END FUNCTION LMO_2D
!
FUNCTION LMO_1D(PUSTAR,PTHETA,PRV,PSFTH,PSFRV)
USE MODD_CST
- USE MODD_PARAMETERS
+ USE MODD_PARAMETERS, ONLY: JPVEXT_TURB,XUNDEF
REAL, DIMENSION(:), INTENT(IN) :: PUSTAR
REAL, DIMENSION(:), INTENT(IN) :: PTHETA
REAL, DIMENSION(:), INTENT(IN) :: PRV
@@ -359,7 +359,7 @@ END FUNCTION LMO_1D
!
FUNCTION LMO_0D(PUSTAR,PTHETA,PRV,PSFTH,PSFRV)
USE MODD_CST
- USE MODD_PARAMETERS
+ USE MODD_PARAMETERS, ONLY: JPVEXT_TURB,XUNDEF
REAL, INTENT(IN) :: PUSTAR
REAL, INTENT(IN) :: PTHETA
REAL, INTENT(IN) :: PRV
@@ -391,7 +391,7 @@ END FUNCTION LMO_0D
!
FUNCTION USTAR_2D(PU,PV,PZ,PZ0,PLMO)
USE MODD_CST
- USE MODD_PARAMETERS
+ USE MODD_PARAMETERS, ONLY: JPVEXT_TURB,XUNDEF
REAL, DIMENSION(:,:), INTENT(IN) :: PU
REAL, DIMENSION(:,:), INTENT(IN) :: PV
REAL, DIMENSION(:,:), INTENT(IN) :: PZ
@@ -433,7 +433,7 @@ END FUNCTION USTAR_2D
!
FUNCTION USTAR_1D(PU,PV,PZ,PZ0,PLMO)
USE MODD_CST
- USE MODD_PARAMETERS
+ USE MODD_PARAMETERS, ONLY: JPVEXT_TURB,XUNDEF
REAL, DIMENSION(:), INTENT(IN) :: PU
REAL, DIMENSION(:), INTENT(IN) :: PV
REAL, DIMENSION(:), INTENT(IN) :: PZ
@@ -475,7 +475,7 @@ END FUNCTION USTAR_1D
!
FUNCTION USTAR_0D(PU,PV,PZ,PZ0,PLMO)
USE MODD_CST
- USE MODD_PARAMETERS
+ USE MODD_PARAMETERS, ONLY: JPVEXT_TURB,XUNDEF
REAL, INTENT(IN) :: PU
REAL, INTENT(IN) :: PV
REAL, INTENT(IN) :: PZ
diff --git a/src/common/turb/mode_tke_eps_sources.F90 b/src/common/turb/mode_tke_eps_sources.F90
index e4593c4a38d272beccb338951b49b6124971f937..3b3dd88c73bdde03883062b3554e6df40e517609 100644
--- a/src/common/turb/mode_tke_eps_sources.F90
+++ b/src/common/turb/mode_tke_eps_sources.F90
@@ -138,7 +138,7 @@ USE MODD_DIAG_IN_RUN, ONLY : LDIAG_IN_RUN, XCURRENT_TKE_DISS
USE MODD_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LES
-USE MODD_PARAMETERS
+USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
!
USE MODE_BUDGET, ONLY: BUDGET_STORE_ADD, BUDGET_STORE_END, BUDGET_STORE_INIT
USE MODE_IO_FIELD_WRITE, ONLY: IO_FIELD_WRITE
diff --git a/src/common/turb/mode_tridiag.F90 b/src/common/turb/mode_tridiag.F90
index 82b2ec2b08172cb21bf53a27f11c9b12e1be6abe..3c695e7a55e0421fe8d023818c0c765da645e1be 100644
--- a/src/common/turb/mode_tridiag.F90
+++ b/src/common/turb/mode_tridiag.F90
@@ -114,7 +114,7 @@ SUBROUTINE TRIDIAG(KKA,KKU,KKL,PVARM,PA,PTSTEP,PEXPL,PIMPL, &
!
!* 0. DECLARATIONS
!
-USE MODD_PARAMETERS
+USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
!
IMPLICIT NONE
!
diff --git a/src/common/turb/mode_turb_ver.F90 b/src/common/turb/mode_turb_ver.F90
index d7920db74d27f9dd1656fe2cf096759fdccbd8a4..24e4422f42fad1e6c6f08de1fc742a1d237dc78a 100644
--- a/src/common/turb/mode_turb_ver.F90
+++ b/src/common/turb/mode_turb_ver.F90
@@ -6,7 +6,7 @@ MODULE MODE_TURB_VER
IMPLICIT NONE
CONTAINS
SUBROUTINE TURB_VER(CST,CSTURB,KKA,KKU,KKL,KRR,KRRL,KRRI, &
- OTURB_FLX, OOCEAN, OHARAT, &
+ OTURB_FLX, OOCEAN, ODEEPOC, OHARAT, &
KSV,KSV_LGBEG,KSV_LGEND, &
HTURBDIM,HTOM,PIMPL,PEXPL, &
HPROGRAM, O2D, ONOMIXLG, OFLAT, &
@@ -215,7 +215,7 @@ USE MODD_CST, ONLY: CST_t
USE MODD_CTURB, ONLY: CSTURB_t
USE MODD_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
-USE MODD_PARAMETERS
+USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
USE MODD_LES
!
USE MODE_EMOIST, ONLY: EMOIST
@@ -254,6 +254,7 @@ INTEGER, INTENT(IN) :: KSV, KSV_LGBEG, KSV_LGEND ! number of sc
LOGICAL, INTENT(IN) :: OTURB_FLX ! switch to write the
! turbulent fluxes in the syncronous FM-file
LOGICAL, INTENT(IN) :: OOCEAN ! switch for Ocean model version
+LOGICAL, INTENT(IN) :: ODEEPOC ! activates sfc forcing for ideal ocean deep conv
LOGICAL, INTENT(IN) :: OHARAT !
LOGICAL, INTENT(IN) :: OFLAT ! Logical for zero ororography
LOGICAL, INTENT(IN) :: OLES_CALL ! compute the LES diagnostics at current time-step
@@ -510,7 +511,7 @@ ELSE
ENDIF
!
CALL TURB_VER_THERMO_FLUX(CST,CSTURB,KKA,KKU,KKL,KRR,KRRL,KRRI, &
- OTURB_FLX,HTURBDIM,HTOM,OOCEAN,OHARAT, &
+ OTURB_FLX,HTURBDIM,HTOM,OOCEAN,ODEEPOC,OHARAT,&
OCOUPLES,OLES_CALL, &
PIMPL,PEXPL,PTSTEP,HPROGRAM,TPFILE, &
PDXX,PDYY,PDZZ,PDZX,PDZY,PDIRCOSZW,PZZ, &
diff --git a/src/common/turb/mode_turb_ver_dyn_flux.F90 b/src/common/turb/mode_turb_ver_dyn_flux.F90
index ac80c98d5cb6142141d31929e12aa65e223ba688..e0fb0d1e5cffdaa55c1809756272b8fde5824380 100644
--- a/src/common/turb/mode_turb_ver_dyn_flux.F90
+++ b/src/common/turb/mode_turb_ver_dyn_flux.F90
@@ -211,8 +211,8 @@ USE MODD_CTURB, ONLY: CSTURB_t
USE MODD_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LES
-USE MODD_OCEANH
-USE MODD_PARAMETERS
+USE MODD_OCEANH, ONLY: XSSUFL, XSSUFL_T,XSSVFL
+USE MODD_PARAMETERS, ONLY: JPVEXT_TURB,XUNDEF
USE MODD_TURB_n
!
!
diff --git a/src/common/turb/mode_turb_ver_sv_corr.F90 b/src/common/turb/mode_turb_ver_sv_corr.F90
index 0e40b6b984dab0f8980196ed83a00bb0abcd106a..184117fb2674a56b26951f8c4f4a0175d96ad5e4 100644
--- a/src/common/turb/mode_turb_ver_sv_corr.F90
+++ b/src/common/turb/mode_turb_ver_sv_corr.F90
@@ -58,7 +58,7 @@ USE YOMHOOK , ONLY : LHOOK, DR_HOOK
!
USE MODD_CST, ONLY: CST_t
USE MODD_CTURB, ONLY: CSTURB_t
-USE MODD_PARAMETERS
+USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
USE MODD_LES
USE MODD_BLOWSNOW, ONLY: XRSNOW
!
diff --git a/src/common/turb/mode_turb_ver_sv_flux.F90 b/src/common/turb/mode_turb_ver_sv_flux.F90
index d7881699b56853817ccf2a4f65063f03d4389b99..2dd6d9eafeb66275c0bcf2fb1041dfdc40c0eceb 100644
--- a/src/common/turb/mode_turb_ver_sv_flux.F90
+++ b/src/common/turb/mode_turb_ver_sv_flux.F90
@@ -215,7 +215,7 @@ USE MODD_CST, ONLY: CST_t
USE MODD_CTURB, ONLY: CSTURB_t
USE MODD_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
-USE MODD_PARAMETERS
+USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
USE MODD_LES
USE MODD_BLOWSNOW, ONLY: XRSNOW
USE MODE_IO_FIELD_WRITE, ONLY: IO_FIELD_WRITE
diff --git a/src/common/turb/mode_turb_ver_thermo_corr.F90 b/src/common/turb/mode_turb_ver_thermo_corr.F90
index 885f046af83bcdad6b83e4356a5fddfd20af685f..730b785874cf1e22029c7bfdfaccaaf5b5c77456 100644
--- a/src/common/turb/mode_turb_ver_thermo_corr.F90
+++ b/src/common/turb/mode_turb_ver_thermo_corr.F90
@@ -208,7 +208,7 @@ USE MODD_CST, ONLY: CST_t
USE MODD_CTURB, ONLY: CSTURB_t
USE MODD_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
-USE MODD_PARAMETERS
+USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
!USE MODD_CONF
USE MODD_LES
!
diff --git a/src/common/turb/mode_turb_ver_thermo_flux.F90 b/src/common/turb/mode_turb_ver_thermo_flux.F90
index 565bef065d86460c3ad4be5b32c08f992e72833f..cced903c5baf4bc814cd478fd00dd3aff88a1281 100644
--- a/src/common/turb/mode_turb_ver_thermo_flux.F90
+++ b/src/common/turb/mode_turb_ver_thermo_flux.F90
@@ -7,7 +7,7 @@ IMPLICIT NONE
CONTAINS
SUBROUTINE TURB_VER_THERMO_FLUX(CST,CSTURB,KKA,KKU,KKL,KRR,KRRL,KRRI, &
- OTURB_FLX,HTURBDIM,HTOM,OOCEAN,OHARAT, &
+ OTURB_FLX,HTURBDIM,HTOM,OOCEAN,ODEEPOC,OHARAT,&
OCOUPLES,OLES_CALL, &
PIMPL,PEXPL,PTSTEP,HPROGRAM, &
TPFILE, &
@@ -233,13 +233,13 @@ USE MODD_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODD_GRID_n, ONLY: XZS, XXHAT, XYHAT
USE MODD_IO, ONLY: TFILEDATA
USE MODD_METRICS_n, ONLY: XDXX, XDYY, XDZX, XDZY, XDZZ
-USE MODD_PARAMETERS
+USE MODD_PARAMETERS, ONLY: JPVEXT_TURB
USE MODD_TURB_n, ONLY: LHGRAD, XCOEFHGRADTHL, XCOEFHGRADRM, XALTHGRAD, XCLDTHOLD
USE MODD_LES
-USE MODD_DIM_n
-USE MODD_OCEANH
+USE MODD_DIM_n, ONLY: NIMAX_ll, NJMAX_ll
+USE MODD_OCEANH, ONLY: XSSTFL
USE MODD_TURB_n
-USE MODD_FRC
+USE MODD_FRC, ONLY: XCENTX_OC, XCENTY_OC, XRADX_OC,XRADY_OC
!
USE MODI_GRADIENT_U
USE MODI_GRADIENT_V
@@ -275,6 +275,7 @@ INTEGER, INTENT(IN) :: KRRI ! number of ice water var.
LOGICAL, INTENT(IN) :: OTURB_FLX ! switch to write the
! turbulent fluxes in the syncronous FM-file
LOGICAL, INTENT(IN) :: OOCEAN ! switch for Ocean model version
+LOGICAL, INTENT(IN) :: ODEEPOC ! activates sfc forcing for ideal ocean deep conv
LOGICAL, INTENT(IN) :: OHARAT
CHARACTER(len=4), INTENT(IN) :: HTURBDIM ! dimensionality of the
! turbulence scheme
@@ -427,7 +428,7 @@ IJU=SIZE(PTHLM,2)
!
!! Compute Shape of sfc flux for Oceanic Deep Conv Case
!
-IF (OOCEAN .AND. LDEEPOC) THEN
+IF (OOCEAN .AND. ODEEPOC) THEN
!* COMPUTES THE PHYSICAL SUBDOMAIN BOUNDS
ALLOCATE(ZXHAT_ll(NIMAX_ll+2*JPHEXT),ZYHAT_ll(NJMAX_ll+2*JPHEXT))
!compute ZXHAT_ll = position in the (0:Lx) domain 1 (Lx=Size of domain1 )
@@ -1028,7 +1029,7 @@ IF ( ((OTURB_FLX .AND. TPFILE%LOPENED) .OR. OLES_CALL) .AND. (KRRL > 0) ) THEN
END IF
!
END IF !end of <w Rc>
-IF (OOCEAN .AND. LDEEPOC) THEN
+IF (OOCEAN .AND. ODEEPOC) THEN
DEALLOCATE(ZXHAT_ll,ZYHAT_ll)
END IF
!
diff --git a/src/common/turb/modi_turb.F90 b/src/common/turb/modi_turb.F90
index c624bab70909dbbd4207f47da01b6a5b3368a847..ffa17f0051aebfac268380a6a531fd81c1e1d813 100644
--- a/src/common/turb/modi_turb.F90
+++ b/src/common/turb/modi_turb.F90
@@ -8,7 +8,8 @@ INTERFACE
& KSPLIT,KMODEL_CL,KSV,KSV_LGBEG,KSV_LGEND, &
& HPROGRAM, O2D, ONOMIXLG, OFLAT, &
& OLES_CALL,OCOUPLES,OBLOWSNOW, &
- & OTURB_FLX,OTURB_DIAG,OSUBG_COND,ORMC01,OOCEAN,OHARAT, &
+ & OTURB_FLX,OTURB_DIAG,OSUBG_COND, &
+ & ORMC01,OOCEAN,ODEEPOC,OHARAT, &
& HTURBDIM,HTURBLEN,HTOM,HTURBLEN_CL,HCLOUD, &
& PIMPL,PTSTEP,TPFILE, &
& PDXX,PDYY,PDZZ,PDZX,PDZY,PZZ, &
@@ -55,6 +56,7 @@ LOGICAL, INTENT(IN) :: OSUBG_COND ! switch for SUBGrid
! CONDensation
LOGICAL, INTENT(IN) :: ORMC01 ! switch for RMC01 lengths in SBL
LOGICAL, INTENT(IN) :: OOCEAN ! switch for Ocean model version
+LOGICAL, INTENT(IN) :: ODEEPOC ! activates sfc forcing for ideal ocean deep conv
LOGICAL, INTENT(IN) :: OHARAT
LOGICAL, INTENT(IN) :: OFLAT ! Logical for zero ororography
LOGICAL, INTENT(IN) :: OLES_CALL ! compute the LES diagnostics at current time-step
diff --git a/src/common/turb/turb.F90 b/src/common/turb/turb.F90
index 3734ed5a02530357a2cab3e458854875647d4695..cce0aa25820869a3966a0a67b663eb5f5583be88 100644
--- a/src/common/turb/turb.F90
+++ b/src/common/turb/turb.F90
@@ -6,7 +6,8 @@
SUBROUTINE TURB(CST,CSTURB,BUCONF,KKA,KKU,KKL,KMI,KRR,KRRL,KRRI,HLBCX,HLBCY, &
& KSPLIT,KMODEL_CL,KSV,KSV_LGBEG,KSV_LGEND,HPROGRAM, &
& O2D,ONOMIXLG,OFLAT,OLES_CALL,OCOUPLES,OBLOWSNOW, &
- & OTURB_FLX,OTURB_DIAG,OSUBG_COND,ORMC01,OOCEAN,OHARAT, &
+ & OTURB_FLX,OTURB_DIAG,OSUBG_COND, &
+ & ORMC01,OOCEAN,ODEEPOC,OHARAT, &
& HTURBDIM,HTURBLEN,HTOM,HTURBLEN_CL,HCLOUD,PIMPL, &
& PTSTEP,TPFILE,PDXX,PDYY,PDZZ,PDZX,PDZY,PZZ, &
& PDIRCOSXW,PDIRCOSYW,PDIRCOSZW,PCOSSLOPE,PSINSLOPE, &
@@ -299,6 +300,7 @@ LOGICAL, INTENT(IN) :: OSUBG_COND ! switch for SUBGrid
! CONDensation
LOGICAL, INTENT(IN) :: ORMC01 ! switch for RMC01 lengths in SBL
LOGICAL, INTENT(IN) :: OOCEAN ! switch for Ocean model version
+LOGICAL, INTENT(IN) :: ODEEPOC ! activates sfc forcing for ideal ocean deep conv
LOGICAL, INTENT(IN) :: OHARAT ! switch for LHARATU from AROME
LOGICAL, INTENT(IN) :: OFLAT ! Logical for zero ororography
LOGICAL, INTENT(IN) :: OLES_CALL ! compute the LES diagnostics at current time-step
@@ -876,7 +878,7 @@ IF( BUCONF%LBUDGET_SV ) THEN
END IF
CALL TURB_VER(CST,CSTURB,KKA,KKU,KKL,KRR, KRRL, KRRI, &
- OTURB_FLX, OOCEAN, OHARAT, &
+ OTURB_FLX, OOCEAN, ODEEPOC, OHARAT, &
KSV,KSV_LGBEG,KSV_LGEND, &
HTURBDIM,HTOM,PIMPL,ZEXPL, &
HPROGRAM, O2D, ONOMIXLG, OFLAT, &
diff --git a/src/mesonh/ext/phys_paramn.f90 b/src/mesonh/ext/phys_paramn.f90
index 036d9f8bd8feeb4b917b71bec086621b85a8622d..bc86a11b0568e83bddd80f0360a70d613669f010 100644
--- a/src/mesonh/ext/phys_paramn.f90
+++ b/src/mesonh/ext/phys_paramn.f90
@@ -1490,7 +1490,7 @@ END IF
1, IKU, 1, IMI, NRR, NRRL, NRRI, CLBCX, CLBCY, 1, NMODEL_CLOUD, &
NSV, NSV_LGBEG, NSV_LGEND,CPROGRAM, L2D, LNOMIXLG,LFLAT, &
LLES_CALL, LCOUPLES, LBLOWSNOW, &
- LTURB_FLX, LTURB_DIAG, LSUBG_COND, LRMC01, LOCEAN, .FALSE., &
+ LTURB_FLX, LTURB_DIAG, LSUBG_COND, LRMC01, LOCEAN, LDEEPOC, .FALSE., &
CTURBDIM, CTURBLEN, CTOM, CTURBLEN_CLOUD, CCLOUD,XIMPL, &
XTSTEP, TPFILE, &
XDXX, XDYY, XDZZ, XDZX, XDZY, XZZ, &