Juan 12/11/2014: comment if (NHALO...)

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
 !