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

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

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

revision 1.1.2.3 by heimbach, Thu Jun 19 15:18:48 2003 UTC revision 1.1.2.4 by heimbach, Wed Jul 16 16:38:58 2003 UTC
# Line 120  c--   Get the counters, flags, and the i Line 120  c--   Get the counters, flags, and the i
120    
121        do iobcs = 1,nobcs        do iobcs = 1,nobcs
122          if ( obcswfirst ) then          if ( obcswfirst ) then
123            call active_read_yz( fnameobcsw, tmpfldyz,            call active_read_yz_loc( fnameobcsw, tmpfldyz,
124       &                         (obcswcount0-1)*nobcs+iobcs,       &                         (obcswcount0-1)*nobcs+iobcs,
125       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
126       &                         mythid, xx_obcsw_dummy )       &                         mythid, xx_obcsw_dummy )
# Line 237  cgg     match up. I will blame Fortran f Line 237  cgg     match up. I will blame Fortran f
237              enddo              enddo
238            enddo            enddo
239    
240            call active_read_yz( fnameobcsw, tmpfldyz,            call active_read_yz_loc( fnameobcsw, tmpfldyz,
241       &                         (obcswcount1-1)*nobcs+iobcs,       &                         (obcswcount1-1)*nobcs+iobcs,
242       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
243       &                         mythid, xx_obcsw_dummy )       &                         mythid, xx_obcsw_dummy )
Legend:
Removed from v.1.1.2.3  
changed lines
  Added in v.1.1.2.4
  ViewVC Help
Powered by ViewVC 1.1.22