From ef1ef293ef345e55f37fa5d38ebab9180901e321 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Mon, 12 Jun 2017 14:44:23 +0200
Subject: [PATCH] Juan 12/06/2015 :zoom_pgd_cover.F90, Bug in SPAWNING in // ,
compute/update LCOVER in // with SUM_ON_ALL_PROCS
---
src/SURFEX/zoom_pgd_cover.F90 | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/src/SURFEX/zoom_pgd_cover.F90 b/src/SURFEX/zoom_pgd_cover.F90
index 18d7ffdb9..f0ab22b28 100644
--- a/src/SURFEX/zoom_pgd_cover.F90
+++ b/src/SURFEX/zoom_pgd_cover.F90
@@ -40,6 +40,7 @@
!! ABOR1_SFX if (.NOT.OECOCLIMAP) in comment
! Modification 05/02/15 M.Moge : MPPDB_CHECK + use NSIZE_FULL instead of SIZE(XLAT) (for clarity)
!! J.Escobar 18/12/2015 : missing interface
+!! J.Escobar 12/06/2015 : Bug in SPAWNING in // , compute/update LCOVER in // with SUM_ON_ALL_PROCS
!----------------------------------------------------------------------------
!
!* 0. DECLARATION
@@ -246,7 +247,7 @@ ICPT2 = 0
DO JCOVER = 1,JPCOVER
IF (U%LCOVER(JCOVER)) THEN
ICPT1 = ICPT1 + 1
- IF (ALL(U%XCOVER(:,ICPT1)==0.)) THEN
+ IF ( SUM_ON_ALL_PROCS(HPROGRAM,UG%CGRID,U%XCOVER(:,ICPT1)/=0., 'COV') == 0 ) THEN
U%LCOVER(JCOVER) = .FALSE.
ELSE
ICPT2 = ICPT2 + 1
@@ -315,7 +316,9 @@ DO JCOVER=1,SIZE(U%XCOVER,2)
END DO
!
DO JCOVER=1,SIZE(U%XCOVER,2)
- IF (ALL(U%XCOVER(:,JCOVER)==0.)) U%LCOVER(JCOVER) = .FALSE.
+ IF ( SUM_ON_ALL_PROCS(HPROGRAM,UG%CGRID,U%XCOVER(:,JCOVER)/=0., 'COV') == 0 ) THEN
+ U%LCOVER(JCOVER) = .FALSE.
+ END IF
END DO
!------------------------------------------------------------------------------
!
--
GitLab