--- MITgcm/pkg/ctrl/ctrl_getobcsw.F 2003/10/26 00:58:03 1.5 +++ MITgcm/pkg/ctrl/ctrl_getobcsw.F 2007/05/14 22:02:33 1.7 @@ -120,11 +120,13 @@ 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 ) +#ifdef ALLOW_CTRL_OBCS_BALANCE + if ( optimcycle .gt. 0) then if (iobcs .eq. 3) then cgg Special attention is needed for the normal velocity. @@ -198,6 +200,8 @@ endif endif +#endif /* ALLOW_CTRL_OBCS_BALANCE */ + do bj = jtlo,jthi do bi = itlo,ithi do k = 1,nr @@ -237,11 +241,13 @@ 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 ) +#ifdef ALLOW_CTRL_OBCS_BALANCE + if ( optimcycle .gt. 0) then if (iobcs .eq. 3) then cgg Special attention is needed for the normal velocity. @@ -315,6 +321,8 @@ endif endif +#endif /* ALLOW_CTRL_OBCS_BALANCE */ + do bj = jtlo,jthi do bi = itlo,ithi do k = 1,nr