Changeset 4671 for trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

Timestamp:

2014-06-17T17:00:51+02:00 (10 years ago)

Author:

epico

Message:

bug fix in north fold optimization when land-processes are removed. see ticket #1195

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90 (modified) (4 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

@@ -144 +144 @@
 #endif
 
+      nfilcit(:,:) = ilci(:,:)
+
       IF(lwp) WRITE(numout,*)
       IF(lwp) WRITE(numout,*) ' mpp_init2: defines mpp subdomains'
@@ -175 +177 @@
          END DO
       ENDIF
+      nfiimpp(:,:) = iimppt(:,:)
 
       IF( jpnj > 1 )THEN
@@ -195 +198 @@
          ili = ilci(ii,ij)
          ilj = ilcj(ii,ij)
-
          ibondj(ii,ij) = -1
          IF( jarea >  jpni          )   ibondj(ii,ij) = 0
          IF( jarea >  (jpnj-1)*jpni )   ibondj(ii,ij) = 1
          IF( jpnj  == 1             )   ibondj(ii,ij) = 2
-
          ibondi(ii,ij) = 0
          IF( MOD(jarea,jpni) == 1 )   ibondi(ii,ij) = -1
@@ -308 +309 @@
       END DO
 
+      nfipproc(:,:) = ipproc(:,:)
+
+
       ! Control
       IF(icont+1 /= jpnij) THEN