/[MITgcm]/MITgcm/optim/optim_readdata.F
ViewVC logotype

Diff of /MITgcm/optim/optim_readdata.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.10 by mlosch, Mon Jul 25 08:58:47 2011 UTC revision 1.11 by heimbach, Fri Jun 1 16:13:56 2012 UTC
# Line 286  c--   Read the data. Line 286  c--   Read the data.
286         do icvar = 1,maxcvars         do icvar = 1,maxcvars
287          if ( ncvarindex(icvar) .ne. -1 ) then          if ( ncvarindex(icvar) .ne. -1 ) then
288           do icvrec = 1,ncvarrecs(icvar)           do icvrec = 1,ncvarrecs(icvar)
289            do bj = 1,nsy  cph          do bj = 1,nsy
290             do bi = 1,nsx  cph           do bi = 1,nsx
291              read( funit ) ncvarindex(icvar)              read( funit ) ncvarindex(icvar)
292              read( funit ) filej              read( funit ) filej
293              read( funit ) filei              read( funit ) filei
# Line 361  c              if (iobcs .eq. 4) vv(icvo Line 361  c              if (iobcs .eq. 4) vv(icvo
361                icvoffset = icvoffset + cbuffindex                icvoffset = icvoffset + cbuffindex
362               endif               endif
363              enddo              enddo
364             enddo  cph           enddo
365            enddo  cph          enddo
366           enddo           enddo
367          endif          endif
368         enddo         enddo
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22