/[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.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    
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.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22