Missing (:,:) in declaration to 0 or a single value

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

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.
 
 !
 !----------------------------------------------------------------------------

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.
 
 !
 !----------------------------------------------------------------------------

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.