Changeset 4466 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/exchmod.F90

Timestamp:

2014-02-04T13:18:04+01:00 (10 years ago)

Author:

trackstand2

Message:

Tidy commented-out lines that do not use mbkmax in pack/unpack in exchs_generic

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/exchmod.F90 (modified) (3 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/exchmod.F90

@@ -3802 +3802 @@
                  DO j=jstart, jend, 1
                     DO i=istart, iend, 1
-                       DO k=1,mbkmax(i,j),1 ! nzsendp(ipatch,isend,1),1
+                       DO k=1,mbkmax(i,j),1
+                       !DO k=1, nzsendp(ipatch,isend,1),1
 #else
                  DO k=1,nzsendp(ipatch,isend,1),1
@@ -3919 +3920 @@
                 DO j=jstart, jend, 1
                    DO i=istart, iend, 1
-                      DO k=1,mbkmax(i,j),1 ! nzrecvp(ipatch,irecv,1),1
+                      DO k=1,mbkmax(i,j),1
                       !DO k=1, nzrecvp(ipatch,irecv,1),1
 #else
@@ -3964 +3965 @@
                 DO j=jstart, jend, 1
                    DO i=istart, iend, 1
-                      DO k=1,mbkmax(i,j),1 ! nzrecvp(ipatch,irecv,1),1
+                      DO k=1,mbkmax(i,j),1
+                      !DO k=1,nzrecvp(ipatch,irecv,1),1
 #else
                 DO k=1,nzrecvp(ipatch,irecv,1),1