From fada430cff58f87b4d88a19763231696a57a959c Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Mon, 25 Sep 2023 14:57:40 +0200
Subject: [PATCH] Quentin 25/09/2023 : fix double calculation of MEAN in
mean_field (already done by UPDATE_WELFORT function
---
src/MNH/mean_field.f90 | 8 --------
1 file changed, 8 deletions(-)
diff --git a/src/MNH/mean_field.f90 b/src/MNH/mean_field.f90
index 8012f453f..346311d2a 100644
--- a/src/MNH/mean_field.f90
+++ b/src/MNH/mean_field.f90
@@ -165,14 +165,8 @@ ZRH_W_MAXCOL(:,:) = MAXVAL(ZRH_W(:,:,:),DIM=3)
ZRH_I_MAXCOL(:,:) = MAXVAL(ZRH_I(:,:,:),DIM=3)
ZRH_P_MAXCOL(:,:) = MAXVAL(ZRH_P(:,:,:),DIM=3)
!
- XUM_MEAN = PUT + XUM_MEAN
- XVM_MEAN = PVT + XVM_MEAN
- XWM_MEAN = PWT + XWM_MEAN
- XTHM_MEAN = PTHT + XTHM_MEAN
- XTEMPM_MEAN = ZTEMPT + XTEMPM_MEAN
IF (LPASPOL) XSVT_MEAN = PSVT + XSVT_MEAN
IF (CTURB/='NONE') XTKEM_MEAN = PTKET + XTKEM_MEAN
- XPABSM_MEAN = PPABST + XPABSM_MEAN
XQ_MEAN = XQ_MEAN + ZQACT
XRH_W_MEAN = XRH_W_MEAN + ZRH_W
XRH_I_MEAN = XRH_I_MEAN + ZRH_I
@@ -180,8 +174,6 @@ ZRH_P_MAXCOL(:,:) = MAXVAL(ZRH_P(:,:,:),DIM=3)
XRH_W_MAXCOL_MEAN = XRH_W_MAXCOL_MEAN + ZRH_W_MAXCOL
XRH_I_MAXCOL_MEAN = XRH_I_MAXCOL_MEAN + ZRH_I_MAXCOL
XRH_P_MAXCOL_MEAN = XRH_P_MAXCOL_MEAN + ZRH_P_MAXCOL
-!
- XUW_MEAN = PUT*PWT + XUW_MEAN
IF (LPASPOL) XSVT_MEAN = PSVT + XSVT_MEAN
IF (CTURB/='NONE') XTKEM_MEAN = PTKET + XTKEM_MEAN
--
GitLab