Quentin 25/09/2023 : fix double calculation of MEAN in mean_field (already...

Quentin 25/09/2023 : fix double calculation of MEAN in mean_field (already done by UPDATE_WELFORT function

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