From ffc861eb088489a356203a8e74724787ea3f95f3 Mon Sep 17 00:00:00 2001
From: WURTZ Jean <wurtzj@sxville>
Date: Tue, 24 Jan 2023 17:30:59 +0100
Subject: [PATCH] Adding means

---
 src/SURFEX/average_diag.F90 | 7 +++++++
 1 file changed, 7 insertions(+)
 mode change 100644 => 100755 src/SURFEX/average_diag.F90

diff --git a/src/SURFEX/average_diag.F90 b/src/SURFEX/average_diag.F90
old mode 100644
new mode 100755
index 5cf24062b..2cc9d0b3c
--- a/src/SURFEX/average_diag.F90
+++ b/src/SURFEX/average_diag.F90
@@ -258,11 +258,15 @@ IF (DGO%N2M>=1) THEN
     DO JT=1,NTILESFC      
       CALL MAKE_AVERAGE_MW(PFRAC_TILE(:,JT),ND%AL(JT)%XT2M_MAX,D%XT2M_MAX,JT,ZLAND,ZSEA,ZFRL)
     ENDDO
+    DO JT=1,NTILESFC
+      CALL MAKE_AVERAGE_MW(PFRAC_TILE(:,JT),ND%AL(JT)%XT2M_MEAN,D%XT2M_MEAN,JT,ZLAND,ZSEA,ZFRL)
+    ENDDO
   ELSE
     DO JT=1,NTILESFC
       CALL MAKE_AVERAGE(PFRAC_TILE(:,JT),ND%AL(JT)%XT2M,D%XT2M,JT)
       CALL MAKE_AVERAGE(PFRAC_TILE(:,JT),ND%AL(JT)%XT2M_MIN,D%XT2M_MIN,JT)
       CALL MAKE_AVERAGE(PFRAC_TILE(:,JT),ND%AL(JT)%XT2M_MAX,D%XT2M_MAX,JT)
+      CALL MAKE_AVERAGE(PFRAC_TILE(:,JT),ND%AL(JT)%XT2M_MEAN,D%XT2M_MEAN,JT)
     ENDDO
   ENDIF
 !
@@ -272,10 +276,13 @@ IF (DGO%N2M>=1) THEN
   CALL MAKE_AVERAGE(PFRAC_TILE(:,JT),ND%AL(JT)%XHU2M,D%XHU2M,JT)
   CALL MAKE_AVERAGE(PFRAC_TILE(:,JT),ND%AL(JT)%XHU2M_MIN,D%XHU2M_MIN,JT)
   CALL MAKE_AVERAGE(PFRAC_TILE(:,JT),ND%AL(JT)%XHU2M_MAX,D%XHU2M_MAX,JT)
+  CALL MAKE_AVERAGE(PFRAC_TILE(:,JT),ND%AL(JT)%XHU2M_MEAN,D%XHU2M_MEAN,JT)
+
 !
 ! Specific humidity at 2 meters
 !
   CALL MAKE_AVERAGE(PFRAC_TILE(:,JT),ND%AL(JT)%XQ2M,D%XQ2M,JT)
+  CALL MAKE_AVERAGE(PFRAC_TILE(:,JT),ND%AL(JT)%XQ2M_MEAN,D%XQ2M_MEAN,JT)
 !
 ! Wind at 10 meters
 !
-- 
GitLab