/[MITgcm]/MITgcm/pkg/ctrl/ctrl_getobcsn.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_getobcsn.F

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

revision 1.2 by heimbach, Tue Jun 24 16:07:06 2003 UTC revision 1.3 by heimbach, Fri Jul 18 21:10:16 2003 UTC
# Line 124  c--   Get the counters, flags, and the i Line 124  c--   Get the counters, flags, and the i
124    
125        do iobcs = 1,nobcs        do iobcs = 1,nobcs
126          if ( obcsnfirst ) then          if ( obcsnfirst ) then
127            call active_read_xz( fnameobcsn, tmpfldxz,            call active_read_xz_loc( fnameobcsn, tmpfldxz,
128       &                         (obcsncount0-1)*nobcs+iobcs,       &                         (obcsncount0-1)*nobcs+iobcs,
129       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
130       &                         mythid, xx_obcsn_dummy )       &                         mythid, xx_obcsn_dummy )
# Line 250  cgg     & Line 250  cgg     &
250              enddo              enddo
251            enddo            enddo
252    
253            call active_read_xz( fnameobcsn, tmpfldxz,            call active_read_xz_loc( fnameobcsn, tmpfldxz,
254       &                         (obcsncount1-1)*nobcs+iobcs,       &                         (obcsncount1-1)*nobcs+iobcs,
255       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
256       &                         mythid, xx_obcsn_dummy )       &                         mythid, xx_obcsn_dummy )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22