--- 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 )