Symbol Description Uses
I_obc local index of open boundary 178


File Line number Procedure Code
./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_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 112 OBCS_CALC 
            I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc.F 113 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 148 OBCS_CALC 
            I_obc=OB_Iw(j,bi,bj)
./pkg/obcs/obcs_calc.F 149 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 164 OBCS_CALC 
            I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc.F 165 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 284 OBCS_CALC 
           I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc.F 285 OBCS_CALC 
           IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 287 OBCS_CALC 
     &           pTracer(I_obc-1,J,K,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F 288 OBCS_CALC 
     &           *_maskW(I_obc,J,K,bi,bj)
./pkg/obcs/obcs_calc.F 316 OBCS_CALC 
           I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc.F 317 OBCS_CALC 
           IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 319 OBCS_CALC 
     &           pTracer(I_obc+1,J,K,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F 320 OBCS_CALC 
     &           *_maskW(I_obc+1,J,K,bi,bj)
./pkg/obcs/obcs_calc.F 444 OBCS_CALC 
           I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc.F 445 OBCS_CALC 
           IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 446 OBCS_CALC 
            Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj)
./pkg/obcs/obcs_calc.F 462 OBCS_CALC 
            I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc.F 463 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 481 OBCS_CALC 
           I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc.F 482 OBCS_CALC 
           IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 483 OBCS_CALC 
            Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj)
./pkg/obcs/obcs_calc.F 499 OBCS_CALC 
            I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc.F 500 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 52 OBCS_CALC 
      INTEGER I, J, K, I_obc, J_obc
./pkg/obcs/obcs_calc.F 96 OBCS_CALC 
            I_obc=OB_Ie(j,bi,bj)
./pkg/obcs/obcs_calc.F 97 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