Skip to content
Snippets Groups Projects
Commit ffc861eb authored by WURTZ Jean's avatar WURTZ Jean
Browse files

Adding means

parent 2982558d
No related branches found
No related tags found
No related merge requests found
......@@ -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
!
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment