From 089fa483a01b84811bf7988b26e6e5cd0ddd85c7 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Fri, 22 Mar 2013 15:01:15 +0100
Subject: [PATCH] Juan 22/03/2013: test if numproc=0 return
---
MNH/get_halo.f90 | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/MNH/get_halo.f90 b/MNH/get_halo.f90
index 23ad1d771..55b64ed7b 100644
--- a/MNH/get_halo.f90
+++ b/MNH/get_halo.f90
@@ -129,6 +129,9 @@ USE MODE_ll
USE MODD_ARGSLIST_ll, ONLY : LIST_ll
USE MODD_PARAMETERS, ONLY : JPHEXT
!
+USE MODD_IO_ll, ONLY : GSMONOPROC
+!
+!
IMPLICIT NONE
!
REAL, DIMENSION(:,:,:) :: PSRC ! variable at t
@@ -144,8 +147,11 @@ INTEGER,SAVE :: IIU,IJU,IKU
!
!LOGICAL, SAVE :: GFIRST_GET_HALO_D = .TRUE.
!
-NULLIFY( TZ_PSRC_ll)
+IF (GSMONOPROC) RETURN
+!
+NULLIFY( TZ_PSRC_ll)
+!
IF (GFIRST_GET_HALO_D ) THEN
CALL GET_INDICE_ll(IIB,IJB,IIE,IJE)
!
--
GitLab