From fc9ce93706b4fd637f3b1ffabb06efe0a7e42b6c Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Thu, 20 Jul 2023 15:21:52 +0200
Subject: [PATCH] Missing (:,:) in declaration to 0 or a single value
---
src/common/turb/mode_compute_mf_cloud.F90 | 8 ++++----
src/common/turb/mode_mf_turb.F90 | 4 ++--
src/common/turb/mode_mf_turb_expl.F90 | 18 +++++++++---------
src/common/turb/shallow_mf.F90 | 10 +++++-----
4 files changed, 20 insertions(+), 20 deletions(-)
diff --git a/src/common/turb/mode_compute_mf_cloud.F90 b/src/common/turb/mode_compute_mf_cloud.F90
index a9a6d4568..be31aef00 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 fd87dd143..6335849b1 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 6ab461f4e..10a9ff175 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 495ad85aa..261b1d236 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.
--
GitLab