Symbol Description Uses
I_obc 175


File Line number Procedure Code
./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_calc.F 210 OBCS_CALC 
            I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc.F 211 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 212 OBCS_CALC 
              Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj)
./pkg/obcs/obcs_calc.F 223 OBCS_CALC 
            I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc.F 224 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 237 OBCS_CALC 
            I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc.F 238 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 239 OBCS_CALC 
              Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj)
./pkg/obcs/obcs_calc.F 250 OBCS_CALC 
            I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc.F 251 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 39 OBCS_CALC 
      INTEGER I, J , K, I_obc, J_obc
./pkg/obcs/obcs_calc.F 61 OBCS_CALC 
            I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc.F 62 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 96 OBCS_CALC 
            I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc.F 97 OBCS_CALC 
            IF (I_obc.ne.0) THEN
./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/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 218 ORLANSKI_EAST 
                    CL=-(wVel(I_obc-1,J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_east.F 231 ORLANSKI_EAST 
                 CVEL_WE(J,K,bi,bj)=f1*(CL*dxC(I_obc-1,J,bi,bj)/deltaT)
./pkg/obcs/orlanski_east.F 235 ORLANSKI_EAST 
                  OBEw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)-
./pkg/obcs/orlanski_east.F 236 ORLANSKI_EAST 
     &             CVEL_WE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))*
./pkg/obcs/orlanski_east.F 237 ORLANSKI_EAST 
     &             (ab1*(wVel(I_obc,J,K,bi,bj)-wVel(I_obc-1,J,K,bi,bj))+
./pkg/obcs/orlanski_east.F 245 ORLANSKI_EAST 
               UE_STORE_2(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 246 ORLANSKI_EAST 
     &         uVel(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 247 ORLANSKI_EAST 
               UE_STORE_1(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 248 ORLANSKI_EAST 
               UE_STORE_4(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 253 ORLANSKI_EAST 
               VE_STORE_2(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 254 ORLANSKI_EAST 
     &         vVel(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 255 ORLANSKI_EAST 
               VE_STORE_1(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 256 ORLANSKI_EAST 
               VE_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 261 ORLANSKI_EAST 
               TE_STORE_2(J,K,bi,bj)=theta(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 262 ORLANSKI_EAST 
     &         theta(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 263 ORLANSKI_EAST 
               TE_STORE_1(J,K,bi,bj)=theta(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 264 ORLANSKI_EAST 
               TE_STORE_4(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 269 ORLANSKI_EAST 
               SE_STORE_2(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 270 ORLANSKI_EAST 
     &         salt(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 271 ORLANSKI_EAST 
               SE_STORE_1(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 272 ORLANSKI_EAST 
               SE_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 278 ORLANSKI_EAST 
               WE_STORE_2(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 279 ORLANSKI_EAST 
     &         wVel(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 280 ORLANSKI_EAST 
               WE_STORE_1(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 281 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/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/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 220 ORLANSKI_WEST 
                    CL=(wVel(I_obc+1,J,K,bi,bj)-WW_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_west.F 233 ORLANSKI_WEST 
                 CVEL_WW(J,K,bi,bj)=f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT)
./pkg/obcs/orlanski_west.F 237 ORLANSKI_WEST 
                  OBWw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)+
./pkg/obcs/orlanski_west.F 238 ORLANSKI_WEST 
     &           CVEL_WW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))*
./pkg/obcs/orlanski_west.F 239 ORLANSKI_WEST 
     &            (ab1*(wVel(I_obc+1,J,K,bi,bj)-wVel(I_obc,J,K,bi,bj))+
./pkg/obcs/orlanski_west.F 247 ORLANSKI_WEST 
               UW_STORE_2(J,K,bi,bj)=uVel(I_obc+3,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 248 ORLANSKI_WEST 
     &         uVel(I_obc+2,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 249 ORLANSKI_WEST 
               UW_STORE_1(J,K,bi,bj)=uVel(I_obc+2,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 250 ORLANSKI_WEST 
               UW_STORE_4(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 255 ORLANSKI_WEST 
               VW_STORE_2(J,K,bi,bj)=vVel(I_obc+2,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 256 ORLANSKI_WEST 
     &         vVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 257 ORLANSKI_WEST 
               VW_STORE_1(J,K,bi,bj)=vVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 258 ORLANSKI_WEST 
               VW_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 263 ORLANSKI_WEST 
               TW_STORE_2(J,K,bi,bj)=theta(I_obc+2,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 264 ORLANSKI_WEST 
     &         theta(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 265 ORLANSKI_WEST 
               TW_STORE_1(J,K,bi,bj)=theta(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 266 ORLANSKI_WEST 
               TW_STORE_4(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 271 ORLANSKI_WEST 
               SW_STORE_2(J,K,bi,bj)=salt(I_obc+2,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 272 ORLANSKI_WEST 
     &         salt(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 273 ORLANSKI_WEST 
               SW_STORE_1(J,K,bi,bj)=salt(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 274 ORLANSKI_WEST 
	       SW_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 280 ORLANSKI_WEST 
               WW_STORE_2(J,K,bi,bj)=wVel(I_obc+2,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 281 ORLANSKI_WEST 
     &         wVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 282 ORLANSKI_WEST 
               WW_STORE_1(J,K,bi,bj)=wVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 283 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/obcs/obcs_apply_eta.F 29 OBCS_APPLY_ETA 
      INTEGER I,J,I_obc,J_obc,K
./pkg/obcs/obcs_apply_eta.F 54 OBCS_APPLY_ETA 
       I_obc = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_eta.F 55 OBCS_APPLY_ETA 
       IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_eta.F 56 OBCS_APPLY_ETA 
        obc_mask = _maskW(I_obc,J,K,bi,bj)
./pkg/obcs/obcs_apply_eta.F 57 OBCS_APPLY_ETA 
        etaFld(I_obc,J,bi,bj)=OBEeta(J,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_eta.F 60 OBCS_APPLY_ETA 
       I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_apply_eta.F 61 OBCS_APPLY_ETA 
       IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_eta.F 62 OBCS_APPLY_ETA 
        obc_mask = _maskW(I_obc+1,J,K,bi,bj)
./pkg/obcs/obcs_apply_eta.F 63 OBCS_APPLY_ETA 
        etaFld(I_obc,J,bi,bj)=OBWeta(J,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F 28 OBCS_APPLY_W 
      INTEGER I,J,I_obc,J_obc
./pkg/obcs/obcs_apply_w.F 59 OBCS_APPLY_W 
       I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_w.F 60 OBCS_APPLY_W 
       IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_w.F 61 OBCS_APPLY_W 
        obc_mask = _maskW(I_obc,J,K,bi,bj)
./pkg/obcs/obcs_apply_w.F 62 OBCS_APPLY_W 
        wFld(I_obc,J,K,bi,bj)=OBEw(J,K,bi,bj) * obc_mask
./pkg/obcs/obcs_apply_w.F 69 OBCS_APPLY_W 
       I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/obcs_apply_w.F 70 OBCS_APPLY_W 
       IF (I_obc.NE.0) THEN
./pkg/obcs/obcs_apply_w.F 71 OBCS_APPLY_W 
        obc_mask = _maskW(I_obc+1,J,K,bi,bj)
./pkg/obcs/obcs_apply_w.F 72 OBCS_APPLY_W 
        wFld(I_obc,J,K,bi,bj)=OBWw(J,K,bi,bj) * obc_mask
./verification/dome/code/obcs_calc.F 39 OBCS_CALC 
      INTEGER I, J ,K, I_obc, J_obc