/[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.5 by mlosch, Fri Dec 3 00:48:57 2004 UTC revision 1.6 by heimbach, Mon May 14 22:02:33 2007 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_loc( fnameobcse, tmpfldyz,            call active_read_yz( 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 238  cgg     & Line 238  cgg     &
238              enddo              enddo
239            enddo            enddo
240    
241            call active_read_yz_loc( fnameobcse, tmpfldyz,            call active_read_yz( fnameobcse, tmpfldyz,
242       &                         (obcsecount1-1)*nobcs+iobcs,       &                         (obcsecount1-1)*nobcs+iobcs,
243       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
244       &                         mythid, xx_obcse_dummy )       &                         mythid, xx_obcse_dummy )
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22