From 5a8797b8a6ff1b9b8aede203e509154ef616eb40 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Wed, 12 Nov 2014 17:00:56 +0100
Subject: [PATCH] Juan 12/11/2014: comment if (NHALO...)

---
 MNH/advection_metsv.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/MNH/advection_metsv.f90 b/MNH/advection_metsv.f90
index 0fb9585e9..89e3c5daf 100644
--- a/MNH/advection_metsv.f90
+++ b/MNH/advection_metsv.f90
@@ -414,7 +414,7 @@ END DO
 ! Exchanges on processors
 !
 NULLIFY(TZFIELDS0_ll)
-IF(NHALO == 1) THEN
+!!$IF(NHALO == 1) THEN
   CALL ADD3DFIELD_ll(TZFIELDS0_ll, ZRTHS_OTHER)
   IF (GTKE) CALL ADD3DFIELD_ll(TZFIELDS0_ll, ZRTKES_OTHER)
   DO JR=1,KRR
@@ -425,7 +425,7 @@ IF(NHALO == 1) THEN
   END DO
   CALL UPDATE_HALO_ll(TZFIELDS0_ll,IINFO_ll)
   CALL CLEANLIST_ll(TZFIELDS0_ll)
-END IF
+!!$END IF
 !
 !
 
@@ -500,7 +500,7 @@ DO JSPL=1,KSPLIT
 !  Exchanges fields between processors
 !
    NULLIFY(TZFIELDS1_ll)
-   IF(NHALO == 1) THEN
+!!$   IF(NHALO == 1) THEN
     CALL ADD3DFIELD_ll(TZFIELDS1_ll, ZTH)
     IF (GTKE) CALL ADD3DFIELD_ll(TZFIELDS1_ll, ZTKE)
     DO JR=1,KRR
@@ -511,7 +511,7 @@ DO JSPL=1,KSPLIT
     END DO
     CALL UPDATE_HALO_ll(TZFIELDS1_ll,IINFO_ll)
     CALL CLEANLIST_ll(TZFIELDS1_ll)
-   END IF
+!!$   END IF
 !
 END DO
 !
-- 
GitLab