--- MITgcm/pkg/ctrl/ctrl_getobcsw.F	2004/12/03 00:48:57	1.6
+++ MITgcm/pkg/ctrl/ctrl_getobcsw.F	2007/05/14 22:02:33	1.7
@@ -120,7 +120,7 @@
 
       do iobcs = 1,nobcs
         if ( obcswfirst ) then
-          call active_read_yz_loc( fnameobcsw, tmpfldyz, 
+          call active_read_yz( fnameobcsw, tmpfldyz, 
      &                         (obcswcount0-1)*nobcs+iobcs,
      &                         doglobalread, ladinit, optimcycle,
      &                         mythid, xx_obcsw_dummy )
@@ -241,7 +241,7 @@
             enddo
           enddo
 
-          call active_read_yz_loc( fnameobcsw, tmpfldyz, 
+          call active_read_yz( fnameobcsw, tmpfldyz, 
      &                         (obcswcount1-1)*nobcs+iobcs,
      &                         doglobalread, ladinit, optimcycle,
      &                         mythid, xx_obcsw_dummy )