--- MITgcm/pkg/ctrl/ctrl_getobcsw.F 2003/10/26 00:58:03 1.5 +++ MITgcm/pkg/ctrl/ctrl_getobcsw.F 2004/12/03 00:48:57 1.6 @@ -125,6 +125,8 @@ & 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 @@ -242,6 +246,8 @@ & 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