Symbol Description Uses
I_obc local index of open boundary 239


File Line number Procedure Code
./pkg/obcs/obcs_apply_ptracer.F 42 OBCS_APPLY_PTRACER 
      INTEGER I,J,I_obc,J_obc
./pkg/obcs/obcs_apply_ptracer.F 75 OBCS_APPLY_PTRACER 
       I_obc = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 76 OBCS_APPLY_PTRACER 
       IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_ptracer.F 77 OBCS_APPLY_PTRACER 
        obc_mask = _maskW(I_obc,J,K,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 78 OBCS_APPLY_PTRACER 
        DO I = I_obc, I_obc+Olx
./pkg/obcs/obcs_apply_ptracer.F 86 OBCS_APPLY_PTRACER 
       I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 87 OBCS_APPLY_PTRACER 
       IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_ptracer.F 88 OBCS_APPLY_PTRACER 
        obc_mask = _maskW(I_obc+1,J,K,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 89 OBCS_APPLY_PTRACER 
        DO I = I_obc-Olx, I_obc
./pkg/obcs/obcs_apply_seaice.F 142 OBCS_APPLY_SEAICE 
         I_obc = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 143 OBCS_APPLY_SEAICE 
         IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_seaice.F 144 OBCS_APPLY_SEAICE 
          DO I = I_obc, I_obc+Olx
./pkg/obcs/obcs_apply_seaice.F 157 OBCS_APPLY_SEAICE 
          IF ( _maskW(I_obc-1,J,1,bi,bj) .NE. 0. ) THEN
./pkg/obcs/obcs_apply_seaice.F 160 OBCS_APPLY_SEAICE 
     &           (HEFF(I_obc-1,J,bi,bj)+HEFF(I_obc-2,J,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 161 OBCS_APPLY_SEAICE 
            HEFF(I_obc-1,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 162 OBCS_APPLY_SEAICE 
            HEFF(I_obc-2,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 166 OBCS_APPLY_SEAICE 
     &           (AREA(I_obc-1,J,bi,bj)+AREA(I_obc-2,J,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 167 OBCS_APPLY_SEAICE 
            AREA(I_obc-1,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 168 OBCS_APPLY_SEAICE 
            AREA(I_obc-2,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 172 OBCS_APPLY_SEAICE 
     &           (HSNOW(I_obc-1,J,bi,bj)+HSNOW(I_obc-2,J,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 173 OBCS_APPLY_SEAICE 
            HSNOW(I_obc-1,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 174 OBCS_APPLY_SEAICE 
            HSNOW(I_obc-2,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 179 OBCS_APPLY_SEAICE 
     &           (HSALT(I_obc-1,J,bi,bj)+HSALT(I_obc-2,J,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 180 OBCS_APPLY_SEAICE 
            HSALT(I_obc-1,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 181 OBCS_APPLY_SEAICE 
            HSALT(I_obc-2,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 193 OBCS_APPLY_SEAICE 
         I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 194 OBCS_APPLY_SEAICE 
         IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_seaice.F 195 OBCS_APPLY_SEAICE 
          DO I = I_obc-Olx, I_obc
./pkg/obcs/obcs_apply_seaice.F 208 OBCS_APPLY_SEAICE 
          IF ( _maskW(I_obc+2,J,1,bi,bj) .NE. 0. ) THEN
./pkg/obcs/obcs_apply_seaice.F 211 OBCS_APPLY_SEAICE 
     &           (HEFF(I_obc+1,J,bi,bj)+HEFF(I_obc+2,J,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 212 OBCS_APPLY_SEAICE 
            HEFF(I_obc+1,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 213 OBCS_APPLY_SEAICE 
            HEFF(I_obc+2,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 217 OBCS_APPLY_SEAICE 
     &           (AREA(I_obc+1,J,bi,bj)+AREA(I_obc+2,J,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 218 OBCS_APPLY_SEAICE 
            AREA(I_obc+1,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 219 OBCS_APPLY_SEAICE 
            AREA(I_obc+2,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 223 OBCS_APPLY_SEAICE 
     &           (HSNOW(I_obc+1,J,bi,bj)+HSNOW(I_obc+2,J,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 224 OBCS_APPLY_SEAICE 
            HSNOW(I_obc+1,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 225 OBCS_APPLY_SEAICE 
            HSNOW(I_obc+2,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 230 OBCS_APPLY_SEAICE 
     &           (HSALT(I_obc+1,J,bi,bj)+HSALT(I_obc+2,J,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 231 OBCS_APPLY_SEAICE 
            HSALT(I_obc+1,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 232 OBCS_APPLY_SEAICE 
            HSALT(I_obc+2,J,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 29 OBCS_APPLY_SEAICE 
      INTEGER I, J, bi, bj, I_obc, J_obc
./pkg/obcs/obcs_apply_sloc.F 28 OBCS_APPLY_SLOC 
      INTEGER I,J,I_obc,J_obc
./pkg/obcs/obcs_apply_sloc.F 59 OBCS_APPLY_SLOC 
       I_obc = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_sloc.F 60 OBCS_APPLY_SLOC 
       IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_sloc.F 61 OBCS_APPLY_SLOC 
        obc_mask = _maskW(I_obc,J,K,bi,bj)
./pkg/obcs/obcs_apply_sloc.F 62 OBCS_APPLY_SLOC 
        DO I = I_obc, I_obc+Olx
./pkg/obcs/obcs_apply_sloc.F 69 OBCS_APPLY_SLOC 
       I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_apply_sloc.F 70 OBCS_APPLY_SLOC 
       IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_sloc.F 71 OBCS_APPLY_SLOC 
        obc_mask = _maskW(I_obc+1,J,K,bi,bj)
./pkg/obcs/obcs_apply_sloc.F 72 OBCS_APPLY_SLOC 
        DO I = I_obc-Olx, I_obc
./pkg/obcs/obcs_apply_tloc.F 28 OBCS_APPLY_TLOC 
      INTEGER I,J,I_obc,J_obc
./pkg/obcs/obcs_apply_tloc.F 59 OBCS_APPLY_TLOC 
       I_obc = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_tloc.F 60 OBCS_APPLY_TLOC 
       IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_tloc.F 61 OBCS_APPLY_TLOC 
        obc_mask = _maskW(I_obc,J,K,bi,bj)
./pkg/obcs/obcs_apply_tloc.F 62 OBCS_APPLY_TLOC 
        DO I = I_obc, I_obc+Olx
./pkg/obcs/obcs_apply_tloc.F 69 OBCS_APPLY_TLOC 
       I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_apply_tloc.F 70 OBCS_APPLY_TLOC 
       IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_tloc.F 71 OBCS_APPLY_TLOC 
        obc_mask = _maskW(I_obc+1,J,K,bi,bj)
./pkg/obcs/obcs_apply_tloc.F 72 OBCS_APPLY_TLOC 
        DO I = I_obc-Olx, I_obc
./pkg/obcs/obcs_apply_ts.F 29 OBCS_APPLY_TS 
      INTEGER I,J,I_obc,J_obc
./pkg/obcs/obcs_apply_ts.F 64 OBCS_APPLY_TS 
       I_obc = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_ts.F 65 OBCS_APPLY_TS 
       IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_ts.F 66 OBCS_APPLY_TS 
        obc_mask = _maskW(I_obc,J,K,bi,bj)
./pkg/obcs/obcs_apply_ts.F 67 OBCS_APPLY_TS 
        DO I = I_obc, I_obc+Olx
./pkg/obcs/obcs_apply_ts.F 77 OBCS_APPLY_TS 
       I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_apply_ts.F 78 OBCS_APPLY_TS 
       IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_ts.F 79 OBCS_APPLY_TS 
        obc_mask = _maskW(I_obc+1,J,K,bi,bj)
./pkg/obcs/obcs_apply_ts.F 80 OBCS_APPLY_TS 
        DO I = I_obc-Olx, I_obc
./pkg/obcs/obcs_apply_w.F 28 OBCS_APPLY_W 
      INTEGER I,J,I_obc,J_obc
./pkg/obcs/obcs_apply_w.F 62 OBCS_APPLY_W 
       I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_w.F 63 OBCS_APPLY_W 
       IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_w.F 64 OBCS_APPLY_W 
        obc_mask = _maskW(I_obc,J,K,bi,bj)
./pkg/obcs/obcs_apply_w.F 65 OBCS_APPLY_W 
        wFld(I_obc,J,K,bi,bj)=OBEw(J,K,bi,bj) * obc_mask
./pkg/obcs/obcs_apply_w.F 72 OBCS_APPLY_W 
       I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_apply_w.F 73 OBCS_APPLY_W 
       IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_w.F 74 OBCS_APPLY_W 
        obc_mask = _maskW(I_obc+1,J,K,bi,bj)
./pkg/obcs/obcs_apply_w.F 75 OBCS_APPLY_W 
        wFld(I_obc,J,K,bi,bj)=OBWw(J,K,bi,bj) * obc_mask
./pkg/obcs/obcs_apply_w.F 94 OBCS_APPLY_W 
        I_obc = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_w.F 95 OBCS_APPLY_W 
        IF (I_obc.NE.0) wFld(I_obc,J,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_w.F 97 OBCS_APPLY_W 
        I_obc = OB_Iw(J,bi,bj)
./pkg/obcs/obcs_apply_w.F 98 OBCS_APPLY_W 
        IF (I_obc.NE.0) wFld(I_obc,J,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_calc.F 119 OBCS_CALC 
            I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc.F 120 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 239 OBCS_CALC 
           I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc.F 240 OBCS_CALC 
           IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 242 OBCS_CALC 
     &           pTracer(I_obc-1,J,K,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F 243 OBCS_CALC 
     &           *_maskW(I_obc,J,K,bi,bj)
./pkg/obcs/obcs_calc.F 271 OBCS_CALC 
           I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc.F 272 OBCS_CALC 
           IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 274 OBCS_CALC 
     &           pTracer(I_obc+1,J,K,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F 275 OBCS_CALC 
     &           *_maskW(I_obc+1,J,K,bi,bj)
./pkg/obcs/obcs_calc.F 383 OBCS_CALC 
           I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc.F 384 OBCS_CALC 
           IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 385 OBCS_CALC 
            Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj)
./pkg/obcs/obcs_calc.F 401 OBCS_CALC 
            I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc.F 402 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 420 OBCS_CALC 
           I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc.F 421 OBCS_CALC 
           IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 422 OBCS_CALC 
            Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj)
./pkg/obcs/obcs_calc.F 438 OBCS_CALC 
            I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc.F 439 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 49 OBCS_CALC 
      INTEGER I, J, K, I_obc, J_obc
./pkg/obcs/obcs_calc.F 83 OBCS_CALC 
            I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc.F 84 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./pkg/obcs/orlanski_east.F 106 ORLANSKI_EAST 
            I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/orlanski_east.F 107 ORLANSKI_EAST 
            IF (I_obc.ne.0) THEN
./pkg/obcs/orlanski_east.F 113 ORLANSKI_EAST 
                  CL=-(uVel(I_obc-1,J,K,bi,bj)-UE_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_east.F 126 ORLANSKI_EAST 
                 CVEL_UE(J,K,bi,bj) = f1*(CL*dxF(I_obc-2,J,bi,bj)/deltaT
./pkg/obcs/orlanski_east.F 130 ORLANSKI_EAST 
               OBEu(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj)-
./pkg/obcs/orlanski_east.F 131 ORLANSKI_EAST 
     &           CVEL_UE(J,K,bi,bj)*(deltaT*recip_dxF(I_obc-1,J,bi,bj))*
./pkg/obcs/orlanski_east.F 132 ORLANSKI_EAST 
     &           (ab1*(uVel(I_obc,J,K,bi,bj)-uVel(I_obc-1,J,K,bi,bj)) +
./pkg/obcs/orlanski_east.F 139 ORLANSKI_EAST 
                  CL=-(vVel(I_obc-1,J,K,bi,bj)-VE_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_east.F 152 ORLANSKI_EAST 
                 CVEL_VE(J,K,bi,bj) = f1*(CL*dxV(I_obc-1,J,bi,bj)
./pkg/obcs/orlanski_east.F 156 ORLANSKI_EAST 
               OBEv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)-
./pkg/obcs/orlanski_east.F 157 ORLANSKI_EAST 
     &           CVEL_VE(J,K,bi,bj)*(deltaT*recip_dxV(I_obc,J,bi,bj))*
./pkg/obcs/orlanski_east.F 158 ORLANSKI_EAST 
     &           (ab1*(vVel(I_obc,J,K,bi,bj)-vVel(I_obc-1,J,K,bi,bj)) +
./pkg/obcs/orlanski_east.F 165 ORLANSKI_EAST 
                  CL=-(theta(I_obc-1,J,K,bi,bj)-TE_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_east.F 178 ORLANSKI_EAST 
                 CVEL_TE(J,K,bi,bj) = f1*(CL*dxC(I_obc-1,J,bi,bj)
./pkg/obcs/orlanski_east.F 182 ORLANSKI_EAST 
               OBEt(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)-
./pkg/obcs/orlanski_east.F 183 ORLANSKI_EAST 
     &           CVEL_TE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))*
./pkg/obcs/orlanski_east.F 184 ORLANSKI_EAST 
     &           (ab1*(theta(I_obc,J,K,bi,bj)-theta(I_obc-1,J,K,bi,bj))+
./pkg/obcs/orlanski_east.F 191 ORLANSKI_EAST 
                  CL=-(salt(I_obc-1,J,K,bi,bj)-SE_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_east.F 204 ORLANSKI_EAST 
                 CVEL_SE(J,K,bi,bj) = f1*(CL*dxC(I_obc-1,J,bi,bj)
./pkg/obcs/orlanski_east.F 208 ORLANSKI_EAST 
               OBEs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)-
./pkg/obcs/orlanski_east.F 209 ORLANSKI_EAST 
     &           CVEL_SE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))*
./pkg/obcs/orlanski_east.F 210 ORLANSKI_EAST 
     &           (ab1*(salt(I_obc,J,K,bi,bj)-salt(I_obc-1,J,K,bi,bj))+
./pkg/obcs/orlanski_east.F 219 ORLANSKI_EAST 
                  CL=-(wVel(I_obc-1,J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_east.F 232 ORLANSKI_EAST 
                 CVEL_WE(J,K,bi,bj)=f1*(CL*dxC(I_obc-1,J,bi,bj)/deltaT)
./pkg/obcs/orlanski_east.F 236 ORLANSKI_EAST 
               OBEw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)-
./pkg/obcs/orlanski_east.F 237 ORLANSKI_EAST 
     &           CVEL_WE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))*
./pkg/obcs/orlanski_east.F 238 ORLANSKI_EAST 
     &           (ab1*(wVel(I_obc,J,K,bi,bj)-wVel(I_obc-1,J,K,bi,bj))+
./pkg/obcs/orlanski_east.F 247 ORLANSKI_EAST 
               UE_STORE_2(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 248 ORLANSKI_EAST 
     &         uVel(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 249 ORLANSKI_EAST 
               UE_STORE_1(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 250 ORLANSKI_EAST 
               UE_STORE_4(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 255 ORLANSKI_EAST 
               VE_STORE_2(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 256 ORLANSKI_EAST 
     &         vVel(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 257 ORLANSKI_EAST 
               VE_STORE_1(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 258 ORLANSKI_EAST 
               VE_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 263 ORLANSKI_EAST 
               TE_STORE_2(J,K,bi,bj)=theta(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 264 ORLANSKI_EAST 
     &         theta(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 265 ORLANSKI_EAST 
               TE_STORE_1(J,K,bi,bj)=theta(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 266 ORLANSKI_EAST 
               TE_STORE_4(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 271 ORLANSKI_EAST 
               SE_STORE_2(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 272 ORLANSKI_EAST 
     &         salt(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 273 ORLANSKI_EAST 
               SE_STORE_1(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 274 ORLANSKI_EAST 
               SE_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 281 ORLANSKI_EAST 
               WE_STORE_2(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 282 ORLANSKI_EAST 
     &         wVel(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 283 ORLANSKI_EAST 
               WE_STORE_1(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 284 ORLANSKI_EAST 
               WE_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 91 ORLANSKI_EAST 
      INTEGER J, K, I_obc
./pkg/obcs/orlanski_west.F 108 ORLANSKI_WEST 
            I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/orlanski_west.F 109 ORLANSKI_WEST 
            IF (I_obc.ne.0) THEN
./pkg/obcs/orlanski_west.F 115 ORLANSKI_WEST 
                  CL=(uVel(I_obc+2,J,K,bi,bj)-UW_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_west.F 128 ORLANSKI_WEST 
                 CVEL_UW(J,K,bi,bj) = f1*(CL*dxF(I_obc+2,J,bi,bj)/deltaT
./pkg/obcs/orlanski_west.F 132 ORLANSKI_WEST 
               OBWu(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj)+
./pkg/obcs/orlanski_west.F 133 ORLANSKI_WEST 
     &          CVEL_UW(J,K,bi,bj)*(deltaT*recip_dxF(I_obc+1,J,bi,bj))*
./pkg/obcs/orlanski_west.F 134 ORLANSKI_WEST 
     &          (ab1*(uVel(I_obc+2,J,K,bi,bj)-uVel(I_obc+1,J,K,bi,bj))+
./pkg/obcs/orlanski_west.F 141 ORLANSKI_WEST 
                  CL=(vVel(I_obc+1,J,K,bi,bj)-VW_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_west.F 154 ORLANSKI_WEST 
                 CVEL_VW(J,K,bi,bj) = f1*(CL*dxV(I_obc+2,J,bi,bj)/deltaT
./pkg/obcs/orlanski_west.F 158 ORLANSKI_WEST 
               OBWv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)+
./pkg/obcs/orlanski_west.F 159 ORLANSKI_WEST 
     &           CVEL_VW(J,K,bi,bj)*(deltaT*recip_dxV(I_obc+1,J,bi,bj))*
./pkg/obcs/orlanski_west.F 160 ORLANSKI_WEST 
     &           (ab1*(vVel(I_obc+1,J,K,bi,bj)-vVel(I_obc,J,K,bi,bj))+
./pkg/obcs/orlanski_west.F 167 ORLANSKI_WEST 
                  CL=(theta(I_obc+1,J,K,bi,bj)-TW_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_west.F 180 ORLANSKI_WEST 
                 CVEL_TW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT
./pkg/obcs/orlanski_west.F 184 ORLANSKI_WEST 
               OBWt(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)+
./pkg/obcs/orlanski_west.F 185 ORLANSKI_WEST 
     &          CVEL_TW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))*
./pkg/obcs/orlanski_west.F 186 ORLANSKI_WEST 
     &          (ab1*(theta(I_obc+1,J,K,bi,bj)-theta(I_obc,J,K,bi,bj))+
./pkg/obcs/orlanski_west.F 193 ORLANSKI_WEST 
                  CL=(salt(I_obc+1,J,K,bi,bj)-SW_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_west.F 206 ORLANSKI_WEST 
                 CVEL_SW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT
./pkg/obcs/orlanski_west.F 210 ORLANSKI_WEST 
               OBWs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)+
./pkg/obcs/orlanski_west.F 211 ORLANSKI_WEST 
     &           CVEL_SW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))*
./pkg/obcs/orlanski_west.F 212 ORLANSKI_WEST 
     &           (ab1*(salt(I_obc+1,J,K,bi,bj)-salt(I_obc,J,K,bi,bj))+
./pkg/obcs/orlanski_west.F 221 ORLANSKI_WEST 
                  CL=(wVel(I_obc+1,J,K,bi,bj)-WW_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_west.F 234 ORLANSKI_WEST 
                 CVEL_WW(J,K,bi,bj)=f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT)
./pkg/obcs/orlanski_west.F 238 ORLANSKI_WEST 
               OBWw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)+
./pkg/obcs/orlanski_west.F 239 ORLANSKI_WEST 
     &           CVEL_WW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))*
./pkg/obcs/orlanski_west.F 240 ORLANSKI_WEST 
     &            (ab1*(wVel(I_obc+1,J,K,bi,bj)-wVel(I_obc,J,K,bi,bj))+
./pkg/obcs/orlanski_west.F 249 ORLANSKI_WEST 
               UW_STORE_2(J,K,bi,bj)=uVel(I_obc+3,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 250 ORLANSKI_WEST 
     &         uVel(I_obc+2,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 251 ORLANSKI_WEST 
               UW_STORE_1(J,K,bi,bj)=uVel(I_obc+2,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 252 ORLANSKI_WEST 
               UW_STORE_4(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 257 ORLANSKI_WEST 
               VW_STORE_2(J,K,bi,bj)=vVel(I_obc+2,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 258 ORLANSKI_WEST 
     &         vVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 259 ORLANSKI_WEST 
               VW_STORE_1(J,K,bi,bj)=vVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 260 ORLANSKI_WEST 
               VW_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 265 ORLANSKI_WEST 
               TW_STORE_2(J,K,bi,bj)=theta(I_obc+2,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 266 ORLANSKI_WEST 
     &         theta(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 267 ORLANSKI_WEST 
               TW_STORE_1(J,K,bi,bj)=theta(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 268 ORLANSKI_WEST 
               TW_STORE_4(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 273 ORLANSKI_WEST 
               SW_STORE_2(J,K,bi,bj)=salt(I_obc+2,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 274 ORLANSKI_WEST 
     &         salt(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 275 ORLANSKI_WEST 
               SW_STORE_1(J,K,bi,bj)=salt(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 276 ORLANSKI_WEST 
               SW_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 283 ORLANSKI_WEST 
               WW_STORE_2(J,K,bi,bj)=wVel(I_obc+2,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 284 ORLANSKI_WEST 
     &         wVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 285 ORLANSKI_WEST 
               WW_STORE_1(J,K,bi,bj)=wVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 286 ORLANSKI_WEST 
               WW_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 93 ORLANSKI_WEST 
      INTEGER J, K, I_obc
./pkg/seaice/seaice_init_varia.F 213 SEAICE_INIT_VARIA 
          I_obc=OB_Iw(j,bi,bj)
./pkg/seaice/seaice_init_varia.F 214 SEAICE_INIT_VARIA 
          IF (I_obc.NE.0) THEN
./pkg/seaice/seaice_init_varia.F 216 SEAICE_INIT_VARIA 
           seaiceMaskU(I_obc,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 217 SEAICE_INIT_VARIA 
           seaiceMaskV(I_obc,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 219 SEAICE_INIT_VARIA 
           UVM(I_obc,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 50 SEAICE_INIT_VARIA 
      INTEGER I_obc, J_obc