Changeset 4081 for branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

Timestamp:

2013-10-20T20:48:20+02:00 (11 years ago)

Author:

andrewryan

Message:

Merge with trunk to pick up gfortran_linux build fix

File:

• branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 (modified) (1 diff)

branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

@@ -2179 +2179 @@
 !!gm Remark : this is very time consumming!!!
       !                                         ! ------------------------ !
-            IF( ijpt0 > ijpt1 .OR. iipt0 > iipt1 ) THEN
+        IF(((nbondi .ne. 0) .AND. (ktype .eq. 2)) .OR. ((nbondj .ne. 0) .AND. (ktype .eq. 1))) THEN
             ! there is nothing to be migrated
-               lmigr = .FALSE.
+              lmigr = .TRUE.
             ELSE
-              lmigr = .TRUE.
+              lmigr = .FALSE.
             ENDIF