Symbol Description Uses
J_obc local index of open boundary 174


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 35 OBCS_APPLY_SLOC 
       J_obc = OB_Jn(I,bi,bj)
./pkg/obcs/obcs_apply_sloc.F 36 OBCS_APPLY_SLOC 
       IF (J_obc.NE.0) THEN
./pkg/obcs/obcs_apply_sloc.F 37 OBCS_APPLY_SLOC 
        obc_mask = _maskS(I,J_obc,K,bi,bj)
./pkg/obcs/obcs_apply_sloc.F 38 OBCS_APPLY_SLOC 
        DO J = J_obc, J_obc+Oly
./pkg/obcs/obcs_apply_sloc.F 45 OBCS_APPLY_SLOC 
       J_obc = OB_Js(I,bi,bj)
./pkg/obcs/obcs_apply_sloc.F 46 OBCS_APPLY_SLOC 
       IF (J_obc.NE.0) THEN
./pkg/obcs/obcs_apply_sloc.F 47 OBCS_APPLY_SLOC 
        obc_mask = _maskS(I,J_obc+1,K,bi,bj)
./pkg/obcs/obcs_apply_sloc.F 48 OBCS_APPLY_SLOC 
        DO J = J_obc-Oly, J_obc
./pkg/obcs/obcs_apply_tloc.F 28 OBCS_APPLY_TLOC 
      INTEGER I,J,I_obc,J_obc
./pkg/obcs/obcs_apply_tloc.F 35 OBCS_APPLY_TLOC 
       J_obc = OB_Jn(I,bi,bj)
./pkg/obcs/obcs_apply_tloc.F 36 OBCS_APPLY_TLOC 
       IF (J_obc.NE.0) THEN
./pkg/obcs/obcs_apply_tloc.F 37 OBCS_APPLY_TLOC 
        obc_mask = _maskS(I,J_obc,K,bi,bj)
./pkg/obcs/obcs_apply_tloc.F 38 OBCS_APPLY_TLOC 
        DO J = J_obc, J_obc+Oly
./pkg/obcs/obcs_apply_tloc.F 45 OBCS_APPLY_TLOC 
       J_obc = OB_Js(I,bi,bj)
./pkg/obcs/obcs_apply_tloc.F 46 OBCS_APPLY_TLOC 
       IF (J_obc.NE.0) THEN
./pkg/obcs/obcs_apply_tloc.F 47 OBCS_APPLY_TLOC 
        obc_mask = _maskS(I,J_obc+1,K,bi,bj)
./pkg/obcs/obcs_apply_tloc.F 48 OBCS_APPLY_TLOC 
        DO J = J_obc-Oly, J_obc
./pkg/obcs/obcs_apply_w.F 28 OBCS_APPLY_W 
      INTEGER I,J,I_obc,J_obc
./pkg/obcs/obcs_apply_w.F 40 OBCS_APPLY_W 
       J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/obcs_apply_w.F 41 OBCS_APPLY_W 
       IF (J_obc.NE.0) THEN
./pkg/obcs/obcs_apply_w.F 42 OBCS_APPLY_W 
        obc_mask = _maskS(I,J_obc,K,bi,bj)
./pkg/obcs/obcs_apply_w.F 43 OBCS_APPLY_W 
        wFld(I,J_obc,K,bi,bj)=OBNw(I,K,bi,bj) * obc_mask
./pkg/obcs/obcs_apply_w.F 50 OBCS_APPLY_W 
       J_obc=OB_Js(I,bi,bj)
./pkg/obcs/obcs_apply_w.F 51 OBCS_APPLY_W 
       IF (J_obc.NE.0) THEN
./pkg/obcs/obcs_apply_w.F 52 OBCS_APPLY_W 
        obc_mask = _maskS(I,J_obc+1,K,bi,bj)
./pkg/obcs/obcs_apply_w.F 53 OBCS_APPLY_W 
        wFld(I,J_obc,K,bi,bj)=OBSw(I,K,bi,bj) * obc_mask
./pkg/obcs/obcs_apply_w.F 86 OBCS_APPLY_W 
        J_obc = OB_Jn(I,bi,bj)
./pkg/obcs/obcs_apply_w.F 87 OBCS_APPLY_W 
        IF (J_obc.NE.0) wFld(I,J_obc,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_w.F 89 OBCS_APPLY_W 
        J_obc = OB_Js(I,bi,bj)
./pkg/obcs/obcs_apply_w.F 90 OBCS_APPLY_W 
        IF (J_obc.NE.0) wFld(I,J_obc,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_calc.F 199 OBCS_CALC 
            J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc.F 200 OBCS_CALC 
            IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 234 OBCS_CALC 
            J_obc=OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc.F 235 OBCS_CALC 
            IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 348 OBCS_CALC 
           J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc.F 349 OBCS_CALC 
           IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 351 OBCS_CALC 
     &           pTracer(I,J_obc-1,K,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F 352 OBCS_CALC 
     &           *_maskS(I,J_obc,K,bi,bj)
./pkg/obcs/obcs_calc.F 380 OBCS_CALC 
           J_obc=OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc.F 381 OBCS_CALC 
           IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 383 OBCS_CALC 
     &           pTracer(I,J_obc+1,K,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F 384 OBCS_CALC 
     &           *_maskS(I,J_obc+1,K,bi,bj)
./pkg/obcs/obcs_calc.F 518 OBCS_CALC 
           J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc.F 519 OBCS_CALC 
           IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 520 OBCS_CALC 
            Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj)
./pkg/obcs/obcs_calc.F 52 OBCS_CALC 
      INTEGER I, J, K, I_obc, J_obc
./pkg/obcs/obcs_calc.F 536 OBCS_CALC 
            J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc.F 537 OBCS_CALC 
            IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 555 OBCS_CALC 
           J_obc=OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc.F 556 OBCS_CALC 
           IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 557 OBCS_CALC 
            Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj)
./pkg/obcs/obcs_calc.F 573 OBCS_CALC 
            J_obc=OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc.F 574 OBCS_CALC 
            IF (J_obc.ne.0) THEN
./pkg/obcs/orlanski_north.F 104 ORLANSKI_NORTH 
                  CL=-(uVel(I,J_obc-1,K,bi,bj)-UN_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_north.F 112 ORLANSKI_NORTH 
               CVEL_UN(I,K,bi,bj) = f1*(CL*dyU(I,J_obc-1,bi,bj)/deltaT)+
./pkg/obcs/orlanski_north.F 115 ORLANSKI_NORTH 
               OBNu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)-
./pkg/obcs/orlanski_north.F 116 ORLANSKI_NORTH 
     &           CVEL_UN(I,K,bi,bj)*deltaT*recip_dyU(I,J_obc,bi,bj)*
./pkg/obcs/orlanski_north.F 117 ORLANSKI_NORTH 
     &           (ab1*(uVel(I,J_obc,K,bi,bj)-uVel(I,J_obc-1,K,bi,bj)) +
./pkg/obcs/orlanski_north.F 124 ORLANSKI_NORTH 
                  CL=-(vVel(I,J_obc-1,K,bi,bj)-VN_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_north.F 132 ORLANSKI_NORTH 
               CVEL_VN(I,K,bi,bj) = f1*(CL*dyF(I,J_obc-2,bi,bj)/deltaT)+
./pkg/obcs/orlanski_north.F 135 ORLANSKI_NORTH 
               OBNv(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj)-
./pkg/obcs/orlanski_north.F 136 ORLANSKI_NORTH 
     &           CVEL_VN(I,K,bi,bj)*deltaT*recip_dyF(I,J_obc-1,bi,bj)*
./pkg/obcs/orlanski_north.F 137 ORLANSKI_NORTH 
     &           (ab1*(vVel(I,J_obc,K,bi,bj)-vVel(I,J_obc-1,K,bi,bj)) +
./pkg/obcs/orlanski_north.F 144 ORLANSKI_NORTH 
                  CL=-(theta(I,J_obc-1,K,bi,bj)-TN_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_north.F 152 ORLANSKI_NORTH 
               CVEL_TN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+
./pkg/obcs/orlanski_north.F 155 ORLANSKI_NORTH 
               OBNt(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)-
./pkg/obcs/orlanski_north.F 156 ORLANSKI_NORTH 
     &          CVEL_TN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)*
./pkg/obcs/orlanski_north.F 157 ORLANSKI_NORTH 
     &          (ab1*(theta(I,J_obc,K,bi,bj)-theta(I,J_obc-1,K,bi,bj))+
./pkg/obcs/orlanski_north.F 164 ORLANSKI_NORTH 
                  CL=-(salt(I,J_obc-1,K,bi,bj)-SN_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_north.F 172 ORLANSKI_NORTH 
               CVEL_SN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+
./pkg/obcs/orlanski_north.F 175 ORLANSKI_NORTH 
               OBNs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)-
./pkg/obcs/orlanski_north.F 176 ORLANSKI_NORTH 
     &          CVEL_SN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)*
./pkg/obcs/orlanski_north.F 177 ORLANSKI_NORTH 
     &          (ab1*(salt(I,J_obc,K,bi,bj)-salt(I,J_obc-1,K,bi,bj)) +
./pkg/obcs/orlanski_north.F 186 ORLANSKI_NORTH 
                 CL=-(wVel(I,J_obc-1,K,bi,bj)-WN_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_north.F 194 ORLANSKI_NORTH 
               CVEL_WN(I,K,bi,bj)=f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)
./pkg/obcs/orlanski_north.F 197 ORLANSKI_NORTH 
               OBNw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)-
./pkg/obcs/orlanski_north.F 198 ORLANSKI_NORTH 
     &           CVEL_WN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)*
./pkg/obcs/orlanski_north.F 199 ORLANSKI_NORTH 
     &           (ab1*(wVel(I,J_obc,K,bi,bj)-wVel(I,J_obc-1,K,bi,bj))+
./pkg/obcs/orlanski_north.F 208 ORLANSKI_NORTH 
               UN_STORE_2(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 209 ORLANSKI_NORTH 
     &         uVel(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 210 ORLANSKI_NORTH 
               UN_STORE_1(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 211 ORLANSKI_NORTH 
               UN_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_north.F 216 ORLANSKI_NORTH 
               VN_STORE_2(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 217 ORLANSKI_NORTH 
     &         vVel(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 218 ORLANSKI_NORTH 
               VN_STORE_1(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 219 ORLANSKI_NORTH 
               VN_STORE_4(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_north.F 224 ORLANSKI_NORTH 
               TN_STORE_2(I,K,bi,bj)=theta(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 225 ORLANSKI_NORTH 
     &         theta(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 226 ORLANSKI_NORTH 
               TN_STORE_1(I,K,bi,bj)=theta(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 227 ORLANSKI_NORTH 
               TN_STORE_4(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_north.F 232 ORLANSKI_NORTH 
               SN_STORE_2(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 233 ORLANSKI_NORTH 
     &         salt(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 234 ORLANSKI_NORTH 
               SN_STORE_1(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 235 ORLANSKI_NORTH 
               SN_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_north.F 242 ORLANSKI_NORTH 
               WN_STORE_2(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 243 ORLANSKI_NORTH 
     &         wVel(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 244 ORLANSKI_NORTH 
               WN_STORE_1(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 245 ORLANSKI_NORTH 
               WN_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_north.F 82 ORLANSKI_NORTH 
      INTEGER  I, K, J_obc
./pkg/obcs/orlanski_north.F 97 ORLANSKI_NORTH 
            J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/orlanski_north.F 98 ORLANSKI_NORTH 
            IF (J_obc.ne.0) THEN
./pkg/obcs/orlanski_south.F 104 ORLANSKI_SOUTH 
                  CL=(uVel(I,J_obc+1,K,bi,bj)-US_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_south.F 112 ORLANSKI_SOUTH 
               CVEL_US(I,K,bi,bj) = f1*(CL*dyU(I,J_obc+2,bi,bj)/deltaT)+
./pkg/obcs/orlanski_south.F 115 ORLANSKI_SOUTH 
               OBSu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)+
./pkg/obcs/orlanski_south.F 116 ORLANSKI_SOUTH 
     &          CVEL_US(I,K,bi,bj)*deltaT*recip_dyU(I,J_obc+1,bi,bj)*
./pkg/obcs/orlanski_south.F 117 ORLANSKI_SOUTH 
     &          (ab1*(uVel(I,J_obc+1,K,bi,bj)-uVel(I,J_obc,K,bi,bj)) +
./pkg/obcs/orlanski_south.F 124 ORLANSKI_SOUTH 
                  CL=(vVel(I,J_obc+2,K,bi,bj)-VS_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_south.F 132 ORLANSKI_SOUTH 
               CVEL_VS(I,K,bi,bj) = f1*(CL*dyF(I,J_obc+2,bi,bj)/deltaT)+
./pkg/obcs/orlanski_south.F 135 ORLANSKI_SOUTH 
               OBSv(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj)+
./pkg/obcs/orlanski_south.F 136 ORLANSKI_SOUTH 
     &          CVEL_VS(I,K,bi,bj)*deltaT*recip_dyF(I,J_obc+1,bi,bj)*
./pkg/obcs/orlanski_south.F 137 ORLANSKI_SOUTH 
     &          (ab1*(vVel(I,J_obc+2,K,bi,bj)-vVel(I,J_obc+1,K,bi,bj))+
./pkg/obcs/orlanski_south.F 144 ORLANSKI_SOUTH 
                  CL=(theta(I,J_obc+1,K,bi,bj)-TS_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_south.F 152 ORLANSKI_SOUTH 
               CVEL_TS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+
./pkg/obcs/orlanski_south.F 155 ORLANSKI_SOUTH 
               OBSt(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)+
./pkg/obcs/orlanski_south.F 156 ORLANSKI_SOUTH 
     &          CVEL_TS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)*
./pkg/obcs/orlanski_south.F 157 ORLANSKI_SOUTH 
     &          (ab1*(theta(I,J_obc+1,K,bi,bj)-theta(I,J_obc,K,bi,bj))+
./pkg/obcs/orlanski_south.F 164 ORLANSKI_SOUTH 
                  CL=(salt(I,J_obc+1,K,bi,bj)-SS_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_south.F 172 ORLANSKI_SOUTH 
               CVEL_SS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+
./pkg/obcs/orlanski_south.F 175 ORLANSKI_SOUTH 
               OBSs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)+
./pkg/obcs/orlanski_south.F 176 ORLANSKI_SOUTH 
     &          CVEL_SS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)*
./pkg/obcs/orlanski_south.F 177 ORLANSKI_SOUTH 
     &          (ab1*(salt(I,J_obc+1,K,bi,bj)-salt(I,J_obc,K,bi,bj)) +
./pkg/obcs/orlanski_south.F 186 ORLANSKI_SOUTH 
                  CL=(wVel(I,J_obc+1,K,bi,bj)-WS_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_south.F 194 ORLANSKI_SOUTH 
               CVEL_WS(I,K,bi,bj)=f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)
./pkg/obcs/orlanski_south.F 197 ORLANSKI_SOUTH 
               OBSw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)+
./pkg/obcs/orlanski_south.F 198 ORLANSKI_SOUTH 
     &           CVEL_WS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)*
./pkg/obcs/orlanski_south.F 199 ORLANSKI_SOUTH 
     &           (ab1*(wVel(I,J_obc+1,K,bi,bj)-wVel(I,J_obc,K,bi,bj))+
./pkg/obcs/orlanski_south.F 208 ORLANSKI_SOUTH 
               US_STORE_2(I,K,bi,bj)=uVel(I,J_obc+2,K,bi,bj) -
./pkg/obcs/orlanski_south.F 209 ORLANSKI_SOUTH 
     &         uVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 210 ORLANSKI_SOUTH 
               US_STORE_1(I,K,bi,bj)=uVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 211 ORLANSKI_SOUTH 
               US_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_south.F 216 ORLANSKI_SOUTH 
               VS_STORE_2(I,K,bi,bj)=vVel(I,J_obc+3,K,bi,bj) -
./pkg/obcs/orlanski_south.F 217 ORLANSKI_SOUTH 
     &         vVel(I,J_obc+2,K,bi,bj)
./pkg/obcs/orlanski_south.F 218 ORLANSKI_SOUTH 
               VS_STORE_1(I,K,bi,bj)=vVel(I,J_obc+2,K,bi,bj)
./pkg/obcs/orlanski_south.F 219 ORLANSKI_SOUTH 
               VS_STORE_4(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 224 ORLANSKI_SOUTH 
               TS_STORE_2(I,K,bi,bj)=theta(I,J_obc+2,K,bi,bj) -
./pkg/obcs/orlanski_south.F 225 ORLANSKI_SOUTH 
     &         theta(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 226 ORLANSKI_SOUTH 
               TS_STORE_1(I,K,bi,bj)=theta(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 227 ORLANSKI_SOUTH 
               TS_STORE_4(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_south.F 232 ORLANSKI_SOUTH 
               SS_STORE_2(I,K,bi,bj)=salt(I,J_obc+2,K,bi,bj) -
./pkg/obcs/orlanski_south.F 233 ORLANSKI_SOUTH 
     &         salt(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 234 ORLANSKI_SOUTH 
               SS_STORE_1(I,K,bi,bj)=salt(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 235 ORLANSKI_SOUTH 
               SS_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_south.F 242 ORLANSKI_SOUTH 
               WS_STORE_2(I,K,bi,bj)=wVel(I,J_obc+2,K,bi,bj) -
./pkg/obcs/orlanski_south.F 243 ORLANSKI_SOUTH 
     &         wVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 244 ORLANSKI_SOUTH 
               WS_STORE_1(I,K,bi,bj)=wVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 245 ORLANSKI_SOUTH 
               WS_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_south.F 82 ORLANSKI_SOUTH 
      INTEGER  I, K, J_obc
./pkg/obcs/orlanski_south.F 97 ORLANSKI_SOUTH 
            J_obc=OB_Js(I,bi,bj)
./pkg/obcs/orlanski_south.F 98 ORLANSKI_SOUTH 
            IF (J_obc.ne.0) THEN
./pkg/seaice/seaice_init_varia.F 199 SEAICE_INIT_VARIA 
          J_obc = OB_Js(i,bi,bj)
./pkg/seaice/seaice_init_varia.F 200 SEAICE_INIT_VARIA 
          IF (J_obc.NE.0) THEN
./pkg/seaice/seaice_init_varia.F 202 SEAICE_INIT_VARIA 
           seaiceMaskU(i,J_obc,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 203 SEAICE_INIT_VARIA 
           seaiceMaskV(i,J_obc,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 205 SEAICE_INIT_VARIA 
           UVM(i,J_obc,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 50 SEAICE_INIT_VARIA 
      INTEGER I_obc, J_obc