diff --git a/src/common/turb/mode_compute_mf_cloud.F90 b/src/common/turb/mode_compute_mf_cloud.F90 index a9a6d456848a4ccfc3ed64fa2c5798c134574f2e..be31aef002ab4c5994fde856e3246378f12096ab 100644 --- a/src/common/turb/mode_compute_mf_cloud.F90 +++ b/src/common/turb/mode_compute_mf_cloud.F90 @@ -117,10 +117,10 @@ REAL(KIND=JPHOOK) :: ZHOOK_HANDLE IF (LHOOK) CALL DR_HOOK('COMPUTE_MF_CLOUD',0,ZHOOK_HANDLE) ! ! 2.1 Internal domain -PRC_MF = 0. -PRI_MF = 0. -PCF_MF = 0. -PSIGMF = 0. +PRC_MF(:,:) = 0. +PRI_MF(:,:) = 0. +PCF_MF(:,:) = 0. +PSIGMF(:,:) = 0. IF (PARAMMF%CMF_CLOUD == 'DIRE') THEN !Direct cloud scheme diff --git a/src/common/turb/mode_mf_turb.F90 b/src/common/turb/mode_mf_turb.F90 index fd87dd143fd5339f8a86658f5098ab5bf0fe0d24..6335849b192905e7dd0194c1eef7a544fdff1f9b 100644 --- a/src/common/turb/mode_mf_turb.F90 +++ b/src/common/turb/mode_mf_turb.F90 @@ -143,8 +143,8 @@ IIJE=D%NIJE IIJB=D%NIJB IKT=D%NKT ! -PFLXZSVMF = 0. -PSVDT = 0. +PFLXZSVMF(:,:,:) = 0. +PSVDT(:,:,:) = 0. ! !---------------------------------------------------------------------------- diff --git a/src/common/turb/mode_mf_turb_expl.F90 b/src/common/turb/mode_mf_turb_expl.F90 index 6ab461f4e37f0d0e3da0b8595807e59a3a5dad76..10a9ff175d47f462ecb8bd98dca7cbff50f692b7 100644 --- a/src/common/turb/mode_mf_turb_expl.F90 +++ b/src/common/turb/mode_mf_turb_expl.F90 @@ -115,15 +115,15 @@ IKB=D%NKB IKE=D%NKE IKL=D%NKL ! -PFLXZRMF = 0. -PFLXZTHVMF = 0. -PFLXZTHLMF = 0. -PFLXZUMF = 0. -PFLXZVMF = 0. -PTHLDT = 0. -PRTDT = 0. -PUDT = 0. -PVDT = 0. +PFLXZRMF(:,:) = 0. +PFLXZTHVMF(:,:) = 0. +PFLXZTHLMF(:,:) = 0. +PFLXZUMF(:,:) = 0. +PFLXZVMF(:,:) = 0. +PTHLDT(:,:) = 0. +PRTDT(:,:) = 0. +PUDT(:,:) = 0. +PVDT(:,:) = 0. ! !---------------------------------------------------------------------------- diff --git a/src/common/turb/shallow_mf.F90 b/src/common/turb/shallow_mf.F90 index 495ad85aad6fd6f071fe6e755603285f5e9b418f..261b1d236664b1bcc76e3142caa2884cca579898 100644 --- a/src/common/turb/shallow_mf.F90 +++ b/src/common/turb/shallow_mf.F90 @@ -199,10 +199,10 @@ IKT=D%NKT ! ! updraft governing variables IF (PARAMMF%CMF_UPDRAFT == 'EDKF' .OR. PARAMMF%CMF_UPDRAFT == 'RHCJ') THEN - PENTR = 1.E20 - PDETR = 1.E20 - PEMF = 1.E20 - ZBUO_INTEG = 1.E20 + PENTR(:,:) = 1.E20 + PDETR(:,:) = 1.E20 + PEMF(:,:) = 1.E20 + ZBUO_INTEG(:,:) = 1.E20 ENDIF ! Thermodynamics functions @@ -327,7 +327,7 @@ ENDIF ! to be modified if 'DUAL' is evolving (momentum mixing for example) IF( PARAMMF%CMF_UPDRAFT == 'DUAL') THEN ! Now thetav_up from vdfhghtnn is used! - PFLXZTHVMF=0. + PFLXZTHVMF(:,:)=0. ! Yes/No UV mixing! ! PDUDT_MF=0. ! PDVDT_MF=0.