Symbol Description Uses
Iobc position-index of open boundary 193



File Line number Procedure Code
./pkg/obcs/obcs_apply_eta.F 46 OBCS_APPLY_ETA
      INTEGER Iobc, Jobc
./pkg/obcs/obcs_apply_eta.F 76 OBCS_APPLY_ETA
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F 77 OBCS_APPLY_ETA
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_eta.F 78 OBCS_APPLY_ETA
            IF ( kSurfW(Iobc,j,bi,bj).LE.Nr )
./pkg/obcs/obcs_apply_eta.F 79 OBCS_APPLY_ETA
     &        etaFld(Iobc,j,bi,bj) = OBEeta(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F 86 OBCS_APPLY_ETA
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F 87 OBCS_APPLY_ETA
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_eta.F 88 OBCS_APPLY_ETA
            IF ( kSurfW(Iobc+1,j,bi,bj).LE.Nr )
./pkg/obcs/obcs_apply_eta.F 89 OBCS_APPLY_ETA
     &        etaFld(Iobc,j,bi,bj) = OBWeta(j,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 103 OBCS_APPLY_PTRACER
        Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 104 OBCS_APPLY_PTRACER
        IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_ptracer.F 107 OBCS_APPLY_PTRACER
          pFld(Iobc,j,kl) = OBEptr(j,k,bi,bj,iTracer)
./pkg/obcs/obcs_apply_ptracer.F 118 OBCS_APPLY_PTRACER
        Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 119 OBCS_APPLY_PTRACER
        IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_ptracer.F 122 OBCS_APPLY_PTRACER
          pFld(Iobc,j,kl) = OBWptr(j,k,bi,bj,iTracer)
./pkg/obcs/obcs_apply_ptracer.F 55 OBCS_APPLY_PTRACER
      INTEGER Iobc, Jobc
./pkg/obcs/obcs_apply_seaice.F 101 OBCS_APPLY_SEAICE
            HSALT(Iobc,j,bi,bj) = OBEsl(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 112 OBCS_APPLY_SEAICE
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 113 OBCS_APPLY_SEAICE
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_seaice.F 114 OBCS_APPLY_SEAICE
            HEFF (Iobc,j,bi,bj) = OBWh (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 115 OBCS_APPLY_SEAICE
            AREA (Iobc,j,bi,bj) = OBWa (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 116 OBCS_APPLY_SEAICE
            HSNOW(Iobc,j,bi,bj) = OBWsn(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 118 OBCS_APPLY_SEAICE
            HSALT(Iobc,j,bi,bj) = OBWsl(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 212 OBCS_APPLY_SEAICE
          Iobc = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 213 OBCS_APPLY_SEAICE
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_seaice.F 214 OBCS_APPLY_SEAICE
           IF ( _maskW(Iobc-1,j,k,bi,bj) .NE. 0. ) THEN
./pkg/obcs/obcs_apply_seaice.F 217 OBCS_APPLY_SEAICE
     &           (HEFF(Iobc-1,j,bi,bj)+HEFF(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 218 OBCS_APPLY_SEAICE
             HEFF(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 219 OBCS_APPLY_SEAICE
             HEFF(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 223 OBCS_APPLY_SEAICE
     &           (AREA(Iobc-1,j,bi,bj)+AREA(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 224 OBCS_APPLY_SEAICE
             AREA(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 225 OBCS_APPLY_SEAICE
             AREA(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 229 OBCS_APPLY_SEAICE
     &           (HSNOW(Iobc-1,j,bi,bj)+HSNOW(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 230 OBCS_APPLY_SEAICE
             HSNOW(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 231 OBCS_APPLY_SEAICE
             HSNOW(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 236 OBCS_APPLY_SEAICE
     &           (HSALT(Iobc-1,j,bi,bj)+HSALT(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 237 OBCS_APPLY_SEAICE
             HSALT(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 238 OBCS_APPLY_SEAICE
             HSALT(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 251 OBCS_APPLY_SEAICE
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 252 OBCS_APPLY_SEAICE
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_seaice.F 253 OBCS_APPLY_SEAICE
           IF ( _maskW(Iobc+2,j,k,bi,bj) .NE. 0. ) THEN
./pkg/obcs/obcs_apply_seaice.F 256 OBCS_APPLY_SEAICE
     &           (HEFF(Iobc+1,j,bi,bj)+HEFF(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 257 OBCS_APPLY_SEAICE
             HEFF(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 258 OBCS_APPLY_SEAICE
             HEFF(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 262 OBCS_APPLY_SEAICE
     &           (AREA(Iobc+1,j,bi,bj)+AREA(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 263 OBCS_APPLY_SEAICE
             AREA(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 264 OBCS_APPLY_SEAICE
             AREA(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 268 OBCS_APPLY_SEAICE
     &           (HSNOW(Iobc+1,j,bi,bj)+HSNOW(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 269 OBCS_APPLY_SEAICE
             HSNOW(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 270 OBCS_APPLY_SEAICE
             HSNOW(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 275 OBCS_APPLY_SEAICE
     &           (HSALT(Iobc+1,j,bi,bj)+HSALT(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 276 OBCS_APPLY_SEAICE
             HSALT(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 277 OBCS_APPLY_SEAICE
             HSALT(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 48 OBCS_APPLY_SEAICE
      INTEGER Iobc, Jobc
./pkg/obcs/obcs_apply_seaice.F 95 OBCS_APPLY_SEAICE
          Iobc = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 96 OBCS_APPLY_SEAICE
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_seaice.F 97 OBCS_APPLY_SEAICE
            HEFF (Iobc,j,bi,bj) = OBEh (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 98 OBCS_APPLY_SEAICE
            AREA (Iobc,j,bi,bj) = OBEa (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 99 OBCS_APPLY_SEAICE
            HSNOW(Iobc,j,bi,bj) = OBEsn(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F 152 OBCS_APPLY_TS
           Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F 153 OBCS_APPLY_TS
           IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_ts.F 155 OBCS_APPLY_TS
             tFld(Iobc,j,k,bi,bj) = tFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 157 OBCS_APPLY_TS
             sFld(Iobc,j,k,bi,bj) = sFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 167 OBCS_APPLY_TS
           Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F 168 OBCS_APPLY_TS
           IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_ts.F 170 OBCS_APPLY_TS
             tFld(Iobc,j,k,bi,bj) = OBEt(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 171 OBCS_APPLY_TS
             sFld(Iobc,j,k,bi,bj) = OBEs(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 186 OBCS_APPLY_TS
           Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F 187 OBCS_APPLY_TS
           IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_ts.F 189 OBCS_APPLY_TS
             tFld(Iobc,j,k,bi,bj) = tFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 191 OBCS_APPLY_TS
             sFld(Iobc,j,k,bi,bj) = sFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 201 OBCS_APPLY_TS
           Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F 202 OBCS_APPLY_TS
           IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_ts.F 204 OBCS_APPLY_TS
             tFld(Iobc,j,k,bi,bj) = OBWt(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 205 OBCS_APPLY_TS
             sFld(Iobc,j,k,bi,bj) = OBWs(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 51 OBCS_APPLY_TS
      INTEGER Iobc, Jobc
./pkg/obcs/obcs_apply_uv.F 117 OBCS_APPLY_UV
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_uv.F 118 OBCS_APPLY_UV
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_uv.F 120 OBCS_APPLY_UV
             vFld(Iobc,j,k,bi,bj) = OBEv(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 121 OBCS_APPLY_UV
     &                            *_maskS(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 131 OBCS_APPLY_UV
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_uv.F 132 OBCS_APPLY_UV
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_uv.F 134 OBCS_APPLY_UV
             vFld(Iobc,j,k,bi,bj) = OBWv(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 135 OBCS_APPLY_UV
     &                            *_maskS(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 184 OBCS_APPLY_UV
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_uv.F 185 OBCS_APPLY_UV
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_uv.F 187 OBCS_APPLY_UV
             uFld(Iobc,j,k,bi,bj)   = OBEu(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 188 OBCS_APPLY_UV
     &                              *_maskW(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 189 OBCS_APPLY_UV
             uFld(Iobc+1,j,k,bi,bj) = OBEu(j,K,bi,bj)
./pkg/obcs/obcs_apply_uv.F 190 OBCS_APPLY_UV
     &                              *_maskW(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 201 OBCS_APPLY_UV
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_uv.F 202 OBCS_APPLY_UV
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_uv.F 204 OBCS_APPLY_UV
             uFld(Iobc+1,j,k,bi,bj) = OBWu(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 205 OBCS_APPLY_UV
     &                              *_maskW(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 206 OBCS_APPLY_UV
             uFld(Iobc,j,k,bi,bj)   = OBWu(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 207 OBCS_APPLY_UV
     &                              *_maskW(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 52 OBCS_APPLY_UV
      INTEGER Iobc, Jobc
./pkg/obcs/obcs_apply_uvice.F 108 OBCS_APPLY_UVICE
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 109 OBCS_APPLY_UVICE
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_uvice.F 110 OBCS_APPLY_UVICE
           vFld(Iobc,j,bi,bj) = OBEvice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 111 OBCS_APPLY_UVICE
     &                        *seaiceMaskV(Iobc,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 121 OBCS_APPLY_UVICE
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 122 OBCS_APPLY_UVICE
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_uvice.F 123 OBCS_APPLY_UVICE
           vFld(Iobc,j,bi,bj) = OBWvice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 124 OBCS_APPLY_UVICE
     &                        *seaiceMaskV(Iobc,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 172 OBCS_APPLY_UVICE
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 173 OBCS_APPLY_UVICE
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_uvice.F 174 OBCS_APPLY_UVICE
           uFld(Iobc,j,bi,bj)   = OBEuice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 175 OBCS_APPLY_UVICE
     &                          *seaiceMaskU(Iobc,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 177 OBCS_APPLY_UVICE
     &     uFld(Iobc+1,j,bi,bj) = OBEuice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 178 OBCS_APPLY_UVICE
     &                          *seaiceMaskU(Iobc,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 189 OBCS_APPLY_UVICE
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 190 OBCS_APPLY_UVICE
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_uvice.F 191 OBCS_APPLY_UVICE
           uFld(Iobc+1,j,bi,bj) = OBWuice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 192 OBCS_APPLY_UVICE
     &                          *seaiceMaskU(Iobc+1,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 194 OBCS_APPLY_UVICE
     &     uFld(Iobc,j,bi,bj)   = OBWuice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 195 OBCS_APPLY_UVICE
     &                          *seaiceMaskU(Iobc+1,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 55 OBCS_APPLY_UVICE
      INTEGER Iobc, Jobc
./pkg/obcs/obcs_apply_w.F 107 OBCS_APPLY_W
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_w.F 108 OBCS_APPLY_W
          IF ( Iobc.NE.OB_indexNone .AND. kArg.EQ.0 ) THEN
./pkg/obcs/obcs_apply_w.F 111 OBCS_APPLY_W
            obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_w.F 112 OBCS_APPLY_W
            wFld(Iobc,j,k,bi,bj) = OBEw(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F 114 OBCS_APPLY_W
          ELSEIF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_w.F 115 OBCS_APPLY_W
            obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_w.F 116 OBCS_APPLY_W
            wFld(Iobc,j,k,bi,bj) = OBEw(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F 126 OBCS_APPLY_W
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_w.F 127 OBCS_APPLY_W
          IF ( Iobc.NE.OB_indexNone .AND. kArg.EQ.0 ) THEN
./pkg/obcs/obcs_apply_w.F 130 OBCS_APPLY_W
            obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_w.F 131 OBCS_APPLY_W
            wFld(Iobc,j,k,bi,bj) = OBWw(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F 133 OBCS_APPLY_W
          ELSEIF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_w.F 134 OBCS_APPLY_W
            obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_w.F 135 OBCS_APPLY_W
            wFld(Iobc,j,k,bi,bj) = OBWw(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F 50 OBCS_APPLY_W
      INTEGER Iobc, Jobc
./pkg/obcs/obcs_calc_stevens.F 1042 OBCS_STEVENS_SAVE_TRACERS
      INTEGER bi,bj,i,j,k,Iobc,Jobc
./pkg/obcs/obcs_calc_stevens.F 1083 OBCS_STEVENS_SAVE_TRACERS
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 1084 OBCS_STEVENS_SAVE_TRACERS
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc_stevens.F 1086 OBCS_STEVENS_SAVE_TRACERS
            OBEtStevens(j,k,bi,bj) = theta(Iobc-1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 1087 OBCS_STEVENS_SAVE_TRACERS
     &           *maskC(Iobc-1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 1088 OBCS_STEVENS_SAVE_TRACERS
            OBEsStevens(j,k,bi,bj) = salt(Iobc-1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 1089 OBCS_STEVENS_SAVE_TRACERS
     &           *maskC(Iobc-1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 1099 OBCS_STEVENS_SAVE_TRACERS
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 1100 OBCS_STEVENS_SAVE_TRACERS
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc_stevens.F 1102 OBCS_STEVENS_SAVE_TRACERS
            OBWtStevens(j,k,bi,bj) = theta(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 1103 OBCS_STEVENS_SAVE_TRACERS
     &           *maskC(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 1104 OBCS_STEVENS_SAVE_TRACERS
            OBWsStevens(j,k,bi,bj) = salt(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 1105 OBCS_STEVENS_SAVE_TRACERS
     &           *maskC(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_copy_tracer.F 109 OBCS_COPY_TRACER
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_copy_tracer.F 110 OBCS_COPY_TRACER
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_copy_tracer.F 112 OBCS_COPY_TRACER
            DO i = Iobc-OLx, Iobc-1
./pkg/obcs/obcs_copy_tracer.F 113 OBCS_COPY_TRACER
             trFld(i,j,k) = trFld(Iobc,j,k)
./pkg/obcs/obcs_copy_tracer.F 53 OBCS_COPY_TRACER
      INTEGER Iobc, Jobc
./pkg/obcs/obcs_copy_tracer.F 93 OBCS_COPY_TRACER
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_copy_tracer.F 94 OBCS_COPY_TRACER
          IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_copy_tracer.F 96 OBCS_COPY_TRACER
            DO i = Iobc+1, Iobc+OLx
./pkg/obcs/obcs_copy_tracer.F 97 OBCS_COPY_TRACER
             trFld(i,j,k) = trFld(Iobc,j,k)
./pkg/obcs/obcs_copy_uv_n.F 107 OBCS_COPY_UV_N
        Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_copy_uv_n.F 108 OBCS_COPY_UV_N
        IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_copy_uv_n.F 110 OBCS_COPY_UV_N
          DO i = Iobc-OLx, Iobc
./pkg/obcs/obcs_copy_uv_n.F 111 OBCS_COPY_UV_N
           uFld(i,j,k) = uFld(Iobc+1,j,k)
./pkg/obcs/obcs_copy_uv_n.F 51 OBCS_COPY_UV_N
      INTEGER Iobc, Jobc
./pkg/obcs/obcs_copy_uv_n.F 91 OBCS_COPY_UV_N
        Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_copy_uv_n.F 92 OBCS_COPY_UV_N
        IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_copy_uv_n.F 94 OBCS_COPY_UV_N
          DO i = Iobc+1, Iobc+OLx
./pkg/obcs/obcs_copy_uv_n.F 95 OBCS_COPY_UV_N
           uFld(i,j,k) = uFld(Iobc,j,k)
./pkg/obcs/obcs_save_uv_n.F 100 OBCS_SAVE_UV_N
        IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_save_uv_n.F 102 OBCS_SAVE_UV_N
          OBEuStevens(j,k,bi,bj) = uFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 103 OBCS_SAVE_UV_N
     &         *_maskW(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 113 OBCS_SAVE_UV_N
        Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 114 OBCS_SAVE_UV_N
        IF ( Iobc.NE.OB_indexNone ) THEN
./pkg/obcs/obcs_save_uv_n.F 116 OBCS_SAVE_UV_N
          OBWuStevens(j,k,bi,bj) = uFld(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 117 OBCS_SAVE_UV_N
     &         *_maskW(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 55 OBCS_SAVE_UV_N
      INTEGER Iobc, Jobc
./pkg/obcs/obcs_save_uv_n.F 99 OBCS_SAVE_UV_N
        Iobc = OB_Ie(j,bi,bj)