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

Diff of /MITgcm/pkg/ctrl/ctrl_getobcss.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 121  c--   Get the counters, flags, and the i Line 121  c--   Get the counters, flags, and the i
121    
122        do iobcs = 1,nobcs        do iobcs = 1,nobcs
123          if ( obcssfirst ) then          if ( obcssfirst ) then
124            call active_read_xz( fnameobcss, tmpfldxz,            call active_read_xz_loc( fnameobcss, tmpfldxz,
125       &                         (obcsscount0-1)*nobcs+iobcs,       &                         (obcsscount0-1)*nobcs+iobcs,
126       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
127       &                         mythid, xx_obcss_dummy )       &                         mythid, xx_obcss_dummy )
# Line 236  cgg     & Line 236  cgg     &
236              enddo              enddo
237            enddo            enddo
238    
239            call active_read_xz( fnameobcss, tmpfldxz,            call active_read_xz_loc( fnameobcss, tmpfldxz,
240       &                         (obcsscount1-1)*nobcs+iobcs,       &                         (obcsscount1-1)*nobcs+iobcs,
241       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
242       &                         mythid, xx_obcss_dummy )       &                         mythid, xx_obcss_dummy )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22