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

Diff of /MITgcm/pkg/ctrl/ctrl_getobcse.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 120  c--   Get the counters, flags, and the i Line 120  c--   Get the counters, flags, and the i
120        do iobcs = 1,nobcs        do iobcs = 1,nobcs
121    
122          if ( obcsefirst ) then          if ( obcsefirst ) then
123            call active_read_yz( fnameobcse, tmpfldyz,            call active_read_yz_loc( fnameobcse, tmpfldyz,
124       &                         (obcsecount0-1)*nobcs+iobcs,       &                         (obcsecount0-1)*nobcs+iobcs,
125       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
126       &                         mythid, xx_obcse_dummy )       &                         mythid, xx_obcse_dummy )
# Line 234  cgg     & Line 234  cgg     &
234              enddo              enddo
235            enddo            enddo
236    
237            call active_read_yz( fnameobcse, tmpfldyz,            call active_read_yz_loc( fnameobcse, tmpfldyz,
238       &                         (obcsecount1-1)*nobcs+iobcs,       &                         (obcsecount1-1)*nobcs+iobcs,
239       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
240       &                         mythid, xx_obcse_dummy )       &                         mythid, xx_obcse_dummy )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22