--- MITgcm/verification/internal_wave/code/obcs_calc.F	2002/08/07 16:55:52	1.5
+++ MITgcm/verification/internal_wave/code/obcs_calc.F	2009/12/15 17:03:29	1.6
@@ -1,9 +1,9 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/verification/internal_wave/code/obcs_calc.F,v 1.5 2002/08/07 16:55:52 mlosch Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/verification/internal_wave/code/obcs_calc.F,v 1.6 2009/12/15 17:03:29 jahn Exp $
 C $Name:  $
 
 #include "OBCS_OPTIONS.h"
 
-      SUBROUTINE OBCS_CALC( bi, bj, futureTime, futureIter,
+      SUBROUTINE OBCS_CALC( futureTime, futureIter,
      &                      uVel, vVel, wVel, theta, salt, 
      &                      myThid )
 C     /==========================================================\
@@ -23,7 +23,6 @@
 #include "OBCS.h"
 
 C     == Routine arguments ==
-      INTEGER bi, bj
       INTEGER futureIter
       _RL futureTime
       _RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
@@ -36,6 +35,7 @@
 #ifdef ALLOW_OBCS
 
 C     == Local variables ==
+      INTEGER bi, bj
       INTEGER I, J ,K
 
 #include "GRID.h"
@@ -71,6 +71,8 @@
 C for smoother looking solutions.
       rampTime2 = 4. _d 0*44567.0 _d 0
 
+      DO bj=myByLo(myThid),myByHi(myThid)
+      DO bi=myBxLo(myThid),myBxHi(myThid)
 
 C     Eastern OB
       IF (useOrlanskiEast) THEN
@@ -185,6 +187,10 @@
         ENDDO
       ENDIF
 
+C--   end bi,bj loops.
+      ENDDO 
+      ENDDO
+
 #endif /* ALLOW_OBCS */
       RETURN
       END