Changeset 9132 for branches/UKMO/dev_r6912_GO6_package/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

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_2.h90 (modified) (2 diffs)

branches/UKMO/dev_r6912_GO6_package/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

@@ -152 +152 @@
       irestj = 1 + MOD( jpjglo - nrecj -1 , jpnj )
 
-#if defined key_nemocice_decomp
+!#if defined key_nemocice_decomp
       ! Change padding to be consistent with CICE
       ilci(1:jpni-1      ,:) = jpi
@@ -159 +159 @@
       ilcj(:,      1:jpnj-1) = jpj
       ilcj(:,          jpnj) = jpjglo - (jpnj - 1) * (jpj - nrecj)
-#else
-      ilci(1:iresti      ,:) = jpi
-      ilci(iresti+1:jpni ,:) = jpi-1
-
-      ilcj(:,      1:irestj) = jpj
-      ilcj(:, irestj+1:jpnj) = jpj-1
-#endif
+!#else
+!      ilci(1:iresti      ,:) = jpi
+!      ilci(iresti+1:jpni ,:) = jpi-1
+!
+!      ilcj(:,      1:irestj) = jpj
+!      ilcj(:, irestj+1:jpnj) = jpj-1
+!#endif
 
       nfilcit(:,:) = ilci(:,:)