--- MITgcm/pkg/ctrl/ctrl_getobcsn.F	2003/06/24 16:07:06	1.2
+++ MITgcm/pkg/ctrl/ctrl_getobcsn.F	2003/07/18 21:10:16	1.3
@@ -124,7 +124,7 @@
 
       do iobcs = 1,nobcs
         if ( obcsnfirst ) then
-          call active_read_xz( fnameobcsn, tmpfldxz, 
+          call active_read_xz_loc( fnameobcsn, tmpfldxz, 
      &                         (obcsncount0-1)*nobcs+iobcs,
      &                         doglobalread, ladinit, optimcycle,
      &                         mythid, xx_obcsn_dummy )
@@ -250,7 +250,7 @@
             enddo
           enddo
 
-          call active_read_xz( fnameobcsn, tmpfldxz, 
+          call active_read_xz_loc( fnameobcsn, tmpfldxz, 
      &                         (obcsncount1-1)*nobcs+iobcs,
      &                         doglobalread, ladinit, optimcycle,
      &                         mythid, xx_obcsn_dummy )