/[MITgcm]/MITgcm_contrib/mlosch/optim_m1qn3/optim_readdata.F
ViewVC logotype

Diff of /MITgcm_contrib/mlosch/optim_m1qn3/optim_readdata.F

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

revision 1.2 by mlosch, Fri Apr 27 09:50:46 2012 UTC revision 1.3 by heimbach, Fri Jun 1 16:11:28 2012 UTC
# Line 284  c--   Read the data. Line 284  c--   Read the data.
284         do icvar = 1,maxcvars         do icvar = 1,maxcvars
285          if ( ncvarindex(icvar) .ne. -1 ) then          if ( ncvarindex(icvar) .ne. -1 ) then
286           do icvrec = 1,ncvarrecs(icvar)           do icvrec = 1,ncvarrecs(icvar)
287            do bj = 1,nsy  cph          do bj = 1,nsy
288             do bi = 1,nsx  cph           do bi = 1,nsx
289              read( funit ) ncvarindex(icvar)              read( funit ) ncvarindex(icvar)
290              read( funit ) filej              read( funit ) filej
291              read( funit ) filei              read( funit ) filei
# Line 359  c              if (iobcs .eq. 4) vv(icvo Line 359  c              if (iobcs .eq. 4) vv(icvo
359                icvoffset = icvoffset + cbuffindex                icvoffset = icvoffset + cbuffindex
360               endif               endif
361              enddo              enddo
362             enddo  cph           enddo
363            enddo  cph          enddo
364           enddo           enddo
365          endif          endif
366         enddo         enddo
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22