Changeset 6625 for branches/UKMO/dev_r5518_v3.4_asm_nemovar_community/NEMOGCM/TOOLS/MPP_PREP

Timestamp:

2016-05-26T11:08:07+02:00 (8 years ago)

Author:

kingr

Message:

Rolled back to r6613

Location:

branches/UKMO/dev_r5518_v3.4_asm_nemovar_community/NEMOGCM/TOOLS/MPP_PREP/src

Files:

• mpp_optimiz_zoom_nc.f90 (modified) (1 diff)
• mppopt_showproc_nc.f90 (modified) (1 diff)

branches/UKMO/dev_r5518_v3.4_asm_nemovar_community/NEMOGCM/TOOLS/MPP_PREP/src/mpp_optimiz_zoom_nc.f90

@@ -258 +258 @@
                  ijlb=ijdom(jni2,jnj2)
               ENDIF
-
-              ! Check wet points over the entire domain to preserve the MPI communication stencil
               isurf=0
-              DO jj=1,ippdj(jni2,jnj2)
-                 DO  ji=1,ippdi(jni2,jnj2)
+              DO jj=1+jprecj,ippdj(jni2,jnj2)-jprecj
+                 DO  ji=1+jpreci,ippdi(jni2,jnj2)-jpreci
                     IF(zmask(ji+iilb-1,jj+ijlb-1).EQ.1.) isurf=isurf+1
                  END DO
               END DO
-
               IF(isurf.EQ.0) THEN
                  ivide=ivide+1

branches/UKMO/dev_r5518_v3.4_asm_nemovar_community/NEMOGCM/TOOLS/MPP_PREP/src/mppopt_showproc_nc.f90

@@ -289 +289 @@
                  ijlb=ijdom(jni2,jnj2)
               ENDIF
-
-              ! Check wet points over the entire domain to preserve the MPI communication stencil
               isurf=0
-              DO jj=1,ippdj(jni2,jnj2)
-                 DO  ji=1,ippdi(jni2,jnj2)
+
+              DO jj=1+jprecj,ippdj(jni2,jnj2)-jprecj
+                 DO  ji=1+jpreci,ippdi(jni2,jnj2)-jpreci
                     IF(zmask(ji+iilb-1,jj+ijlb-1).EQ.1.) isurf=isurf+1
                  END DO
               END DO
-
               IF(isurf.EQ.0) THEN
                  ivide=ivide+1