BF for LMDZ and belenosndl

UMR-CNRM · Feb 2, 2025 · 9334cb6 · 9334cb6
1 parent 8adc564
commit 9334cb6
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/src/common/turb/mode_compute_mf_cloud_direct.F90 b/src/common/turb/mode_compute_mf_cloud_direct.F90
@@ -56,6 +56,7 @@ SUBROUTINE COMPUTE_MF_CLOUD_DIRECT(D, PARAMMF, &
 !          ------------
 USE MODD_DIMPHYEX,        ONLY: DIMPHYEX_t
 USE MODD_PARAM_MFSHALL_n, ONLY : PARAM_MFSHALL_t
+USE MODI_SHUMAN_MF, ONLY: MZF_MF
 USE YOMHOOK , ONLY : LHOOK, DR_HOOK, JPHOOK
 !
 IMPLICIT NONE

diff --git a/src/common/turb/mode_mf_turb_expl.F90 b/src/common/turb/mode_mf_turb_expl.F90
@@ -133,6 +133,7 @@ SUBROUTINE MF_TURB_EXPL(D, PARAMMF,                             &
 PRTDT(:,:)  = 0.
 PUDT(:,:)   = 0.
 PVDT(:,:)   = 0.
+PTKEDT(:,:) = 0.
 !
 IF(PARAMMF%LRELAX_ALPHA_MF) THEN
   !$mnh_expand_array(JIJ=IIJB:IIJE,JK=1:IKT)

diff --git a/src/lmdz/ext/physiqex_mod.F90 b/src/lmdz/ext/physiqex_mod.F90
@@ -155,7 +155,6 @@ SUBROUTINE physiqex (nlon,nlev, &
 REAL, DIMENSION(klon,klev+2)  ::  ZCEI ! Cloud Entrainment instability index to emphasize localy turbulent fluxes
 REAL, DIMENSION(klon,klev+2,0)::  ZRSVS ! Source terms for all passive scalar variables
 REAL, DIMENSION(klon,klev+2)  ::  ZFLXZTHVMF ! MF contribution for vert. turb. transport used in the buoy. prod. of TKE
-REAL, DIMENSION(klon,klev+2)  ::  ZFLXZUMF, ZFLXZVMF ! MF contribution for vert. turb. transport used in the dyn. prod. of TKE
 REAL, DIMENSION(klon,klev+2)  ::  ZWTH       ! heat flux
 REAL, DIMENSION(klon,klev+2)  ::  ZWRC       ! cloud water flux
 REAL, DIMENSION(klon,klev+2,0)::  ZWSV       ! scalar flux
@@ -462,7 +461,7 @@ SUBROUTINE physiqex (nlon,nlev, &
      &PDTHLDT_MF=PDTHLDT_MF(:,:),PDRTDT_MF=PDRTDT_MF(:,:),PDSVDT_MF=PDSVDT_MF(:,:,:),                &
      &PSIGMF=PSIGMF(:,:),PRC_MF=PRC_MF(:,:),PRI_MF=PRI_MF(:,:),PCF_MF=PCF_MF(:,:),                   &
      &PHLC_HRC=PHLC_HRC_MF(:,:), PHLC_HCF=PHLC_HCF_MF(:,:), PHLI_HRI=PHLI_HRI_MF(:,:), PHLI_HCF=PHLI_HCF_MF(:,:), &
-     &PWEIGHT_MF_CLOUD=PWEIGHT_MF_CLOUD(:,:), PFLXZTHVMF=ZFLXZTHVMF(:,:), PFLXZUMF=ZFLXZUMF(:,:), PFLXZVMF=ZFLXZVMF(:,:),                    &
+     &PWEIGHT_MF_CLOUD=PWEIGHT_MF_CLOUD(:,:), PFLXZTHVMF=ZFLXZTHVMF(:,:), &
      &PFLXZTHMF=ZFLXZTHMF(:,:),PFLXZRMF=ZFLXZRMF(:,:),PFLXZUMF=ZFLXZUMF(:,:),PFLXZVMF=ZFLXZVMF(:,:), &
      &PFLXZTKEMF=ZFLXZTKEMF(:,:), &
      &PTHL_UP=PTHL_UP(:,:),PRT_UP=PRT_UP(:,:),PRV_UP=PRV_UP(:,:),                                    &
@@ -476,7 +475,7 @@ SUBROUTINE physiqex (nlon,nlev, &
 d_v(:,1:klev) = d_v(:,1:klev) + PDVDT_MF(:,2:klev+1) 
 ZRXS(:,:,1)=ZRXS(:,:,1)+PDRTDT_MF(:,:)
 ZTHETAS(:,:)=ZTHETAS(:,:)+PDTHLDT_MF(:,:)
-ZTKES(:,:) = ZRTKES(:,:)+PDTKEDT_MF(:,:)
+ZTKES(:,:) = ZTKES(:,:)+PDTKEDT_MF(:,:)
 ! TODO add SV tendencies
 !
 !------------------------------------------------------------