From ed6bcf158478ac2cca6359990d7555e80668f616 Mon Sep 17 00:00:00 2001 From: ESCOBAR Juan <escj@nuwa> Date: Wed, 12 Nov 2014 19:13:20 +0100 Subject: [PATCH] Juan 12/11/2014: only update_halo if LX or LY --- MNH/get_halo.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/MNH/get_halo.f90 b/MNH/get_halo.f90 index f8d117278..c8d200bf7 100644 --- a/MNH/get_halo.f90 +++ b/MNH/get_halo.f90 @@ -244,9 +244,11 @@ IF (LY) THEN ENDIF !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +IF (LX .OR. LY) THEN CALL ADD3DFIELD_ll(TZ_PSRC_ll,PSRC) CALL UPDATE_HALO_ll(TZ_PSRC_ll,IERROR, HDIR=HDIR ) CALL CLEANLIST_ll(TZ_PSRC_ll) +ENDIF IF (LX) THEN IF (.NOT.GWEST) THEN -- GitLab