Changeset 9132 for branches/UKMO/dev_r6912_GO6_package/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

Timestamp:

2017-12-19T15:42:23+01:00 (6 years ago)

Author:

andmirek

Message:

#1868 changes enabling coupling

File:

• branches/UKMO/dev_r6912_GO6_package/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90 (modified) (2 diffs)

branches/UKMO/dev_r6912_GO6_package/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

@@ -154 +154 @@
       IF(  iresti == 0 )   iresti = jpni
 
-#if defined key_nemocice_decomp
+!#if defined key_nemocice_decomp
       ! In order to match CICE the size of domains in NEMO has to be changed
       ! The last line of blocks (west) will have fewer points
@@ -165 +165 @@
       END DO
 
-#else
-
-      DO jj = 1, jpnj
-         DO ji = 1, iresti
-            ilcit(ji,jj) = jpi
-         END DO
-         DO ji = iresti+1, jpni
-            ilcit(ji,jj) = jpi -1
-         END DO
-      END DO
-      
-#endif
+!#else
+
+!      DO jj = 1, jpnj
+!         DO ji = 1, iresti
+!            ilcit(ji,jj) = jpi
+!         END DO
+!         DO ji = iresti+1, jpni
+!            ilcit(ji,jj) = jpi -1
+!         END DO
+!      END DO
+      
+!#endif
       nfilcit(:,:) = ilcit(:,:)
       IF( irestj == 0 )   irestj = jpnj