diff --git a/MNH/advection_metsv.f90 b/MNH/advection_metsv.f90 index 0fb9585e9e508d801e5197a123e9eb57a7d4d990..89e3c5daf0a9fa413e7d73408954e470b116b62b 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 !