--- MITgcm/optim/optim_readdata.F	2011/07/25 08:58:47	1.10
+++ MITgcm/optim/optim_readdata.F	2012/06/01 16:13:56	1.11
@@ -286,8 +286,8 @@
        do icvar = 1,maxcvars
         if ( ncvarindex(icvar) .ne. -1 ) then
          do icvrec = 1,ncvarrecs(icvar)
-          do bj = 1,nsy
-           do bi = 1,nsx
+cph          do bj = 1,nsy
+cph           do bi = 1,nsx
             read( funit ) ncvarindex(icvar)
             read( funit ) filej
             read( funit ) filei
@@ -361,8 +361,8 @@
               icvoffset = icvoffset + cbuffindex
              endif
             enddo
-           enddo
-          enddo
+cph           enddo
+cph          enddo
          enddo
         endif
        enddo