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

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

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

revision 1.1 by mlosch, Thu Apr 26 11:10:06 2012 UTC revision 1.2 by heimbach, Fri Jun 1 16:11:28 2012 UTC
# Line 185  c--         Write the data. Line 185  c--         Write the data.
185        do icvar = 1,maxcvars        do icvar = 1,maxcvars
186           if ( ncvarindex(icvar) .ne. -1 ) then           if ( ncvarindex(icvar) .ne. -1 ) then
187              do icvrec = 1,ncvarrecs(icvar)              do icvrec = 1,ncvarrecs(icvar)
188                 do bj = 1,nsy  cph               do bj = 1,nsy
189                    do bi = 1,nsx  cph                  do bi = 1,nsx
190                       write( funit ) ncvarindex(icvar)                       write( funit ) ncvarindex(icvar)
191                       write( funit ) bj                       write( funit ) bj
192                       write( funit ) bi                       write( funit ) bi
# Line 246  c                              if (iobcs Line 246  c                              if (iobcs
246                             icvoffset = icvoffset + cbuffindex                             icvoffset = icvoffset + cbuffindex
247                          endif                          endif
248                       enddo                       enddo
249                    enddo  cph                  enddo
250                 enddo  cph               enddo
251              enddo              enddo
252           endif           endif
253        enddo        enddo
254    
255        close( funit )        close( funit )
256  cph(  cph(
257        print *,'in owd: icvoffset', icvoffset        print *,'end of optim_writedata: icvoffset ', icvoffset
258  cph)  cph)
259    
260        return        return
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22