--- MITgcm/pkg/ctrl/ctrl_getobcsw.F	2003/06/19 15:18:48	1.1.2.3
+++ MITgcm/pkg/ctrl/ctrl_getobcsw.F	2003/09/29 19:24:31	1.4
@@ -120,7 +120,7 @@
 
       do iobcs = 1,nobcs
         if ( obcswfirst ) then
-          call active_read_yz( fnameobcsw, tmpfldyz, 
+          call active_read_yz_loc( fnameobcsw, tmpfldyz, 
      &                         (obcswcount0-1)*nobcs+iobcs,
      &                         doglobalread, ladinit, optimcycle,
      &                         mythid, xx_obcsw_dummy )
@@ -212,7 +212,7 @@
 
         if ( (obcswfirst) .or. (obcswchanged)) then
           
-cgg(    This is a terribly long way to do it. However, the dimensions don't exactly
+cgg(    This is a terribly long way to do it. However, the dimensions do not exactly
 cgg     match up. I will blame Fortran for the ugliness.
 
           do bj = jtlo,jthi
@@ -237,7 +237,7 @@
             enddo
           enddo
 
-          call active_read_yz( fnameobcsw, tmpfldyz, 
+          call active_read_yz_loc( fnameobcsw, tmpfldyz, 
      &                         (obcswcount1-1)*nobcs+iobcs,
      &                         doglobalread, ladinit, optimcycle,
      &                         mythid, xx_obcsw_dummy )