diff --git a/src/common/turb/mode_tke_eps_sources.F90 b/src/common/turb/mode_tke_eps_sources.F90 index 2d6c8563f4ae7385466a651f77ededb6ec4348d3..e5e3e7316b0489775ebc836dae24f285e92b0805 100644 --- a/src/common/turb/mode_tke_eps_sources.F90 +++ b/src/common/turb/mode_tke_eps_sources.F90 @@ -6,7 +6,7 @@ MODULE MODE_TKE_EPS_SOURCES IMPLICIT NONE CONTAINS SUBROUTINE TKE_EPS_SOURCES(D,CST,CSTURB,BUCONF,TURBN,TLES, & - & HPROGRAM, KMI,PTKEM,PLM,PLEPS,PDP, & + & HPROGRAM, PTKEM,PLM,PLEPS,PDP, & & PTRH,PRHODJ,PDZZ,PDXX,PDYY,PDZX,PDZY,PZZ, & & PTSTEP,PEXPL, & & TPFILE,ODIAG_IN_RUN,OOCEAN, & @@ -164,7 +164,6 @@ TYPE(CSTURB_t), INTENT(IN) :: CSTURB TYPE(TBUDGETCONF_t), INTENT(IN) :: BUCONF TYPE(TURB_t), INTENT(IN) :: TURBN TYPE(TLES_t), INTENT(INOUT):: TLES -INTEGER, INTENT(IN) :: KMI ! model index number REAL, DIMENSION(D%NIJT,D%NKT), INTENT(IN) :: PTKEM ! TKE at t-deltat REAL, DIMENSION(D%NIJT,D%NKT), INTENT(IN) :: PLM ! mixing length REAL, DIMENSION(D%NIJT,D%NKT), INTENT(IN) :: PLEPS ! dissipative length diff --git a/src/common/turb/turb.F90 b/src/common/turb/turb.F90 index bcb950e9dca5313aa7a6f45e94ac56223d7190fb..3188edd69492108e8f5d49d2b3fb08af7ba34834 100644 --- a/src/common/turb/turb.F90 +++ b/src/common/turb/turb.F90 @@ -1210,7 +1210,7 @@ ELSE END IF ! CALL TKE_EPS_SOURCES(D,CST,CSTURB,BUCONF,TURBN,TLES,HPROGRAM, & - & KMI,PTKET,ZLM,ZLEPS,PDP,ZTRH, & + & PTKET,ZLM,ZLEPS,PDP,ZTRH, & & PRHODJ,PDZZ,PDXX,PDYY,PDZX,PDZY,PZZ, & & PTSTEP,ZEXPL, & & TPFILE,ODIAG_IN_RUN,OOCEAN, &