--- MITgcm/pkg/ctrl/ctrl_getobcsw.F	2012/08/10 19:38:57	1.15
+++ MITgcm/pkg/ctrl/ctrl_getobcsw.F	2012/09/18 20:21:23	1.16
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ctrl/ctrl_getobcsw.F,v 1.15 2012/08/10 19:38:57 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ctrl/ctrl_getobcsw.F,v 1.16 2012/09/18 20:21:23 jmc Exp $
 C $Name:  $
 
 #include "CTRL_OPTIONS.h"
@@ -130,6 +130,7 @@
           if (iobcs .gt. 2) then
            do j = jmin,jmax
             i = OB_Iw(j,bi,bj)
+            IF ( i.EQ.OB_indexNone ) i = 1
 cih    Determine number of open vertical layers.
             nz = 0
             do k = 1,Nr
@@ -198,6 +199,7 @@
           if (iobcs .gt. 2) then
            do j = jmin,jmax
             i = OB_Iw(j,bi,bj)
+            IF ( i.EQ.OB_indexNone ) i = 1
 cih    Determine number of open vertical layers.
             nz = 0
             do k = 1,Nr
@@ -249,6 +251,7 @@
          do k = 1,nr
           do j = 1,sny
            i = OB_Iw(j,bi,bj)
+           IF ( i.EQ.OB_indexNone ) i = 1
            if (iobcs .EQ. 1) then
             OBWt(j,k,bi,bj) = OBWt (j,k,bi,bj)
      &           + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)