Symbol Description Uses
J_obc 191


File Line number Procedure Code
./verification/dome/code/obcs_calc.F 39 OBCS_CALC 
      INTEGER I, J ,K, I_obc, J_obc
./pkg/obcs/obcs_apply_ptracer.F 42 OBCS_APPLY_PTRACER 
      INTEGER I,J,I_obc,J_obc
./pkg/obcs/obcs_apply_ptracer.F 49 OBCS_APPLY_PTRACER 
       J_obc = OB_Jn(I,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 50 OBCS_APPLY_PTRACER 
       IF (J_obc.NE.0) THEN
./pkg/obcs/obcs_apply_ptracer.F 51 OBCS_APPLY_PTRACER 
        obc_mask = _maskS(I,J_obc,K,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 52 OBCS_APPLY_PTRACER 
        DO J = J_obc, J_obc+Oly
./pkg/obcs/obcs_apply_ptracer.F 60 OBCS_APPLY_PTRACER 
       J_obc = OB_Js(I,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 61 OBCS_APPLY_PTRACER 
       IF (J_obc.NE.0) THEN
./pkg/obcs/obcs_apply_ptracer.F 62 OBCS_APPLY_PTRACER 
        obc_mask = _maskS(I,J_obc+1,K,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 63 OBCS_APPLY_PTRACER 
        DO J = J_obc-Oly, J_obc
./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 185 ORLANSKI_NORTH 
                    CL=-(wVel(I,J_obc-1,K,bi,bj)-WN_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_north.F 193 ORLANSKI_NORTH 
                  CVEL_WN(I,K,bi,bj)=f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)
./pkg/obcs/orlanski_north.F 196 ORLANSKI_NORTH 
                  OBNw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)-
./pkg/obcs/orlanski_north.F 197 ORLANSKI_NORTH 
     &             CVEL_WN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)*
./pkg/obcs/orlanski_north.F 198 ORLANSKI_NORTH 
     &             (ab1*(wVel(I,J_obc,K,bi,bj)-wVel(I,J_obc-1,K,bi,bj))+
./pkg/obcs/orlanski_north.F 206 ORLANSKI_NORTH 
               UN_STORE_2(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 207 ORLANSKI_NORTH 
     &         uVel(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 208 ORLANSKI_NORTH 
               UN_STORE_1(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 209 ORLANSKI_NORTH 
               UN_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_north.F 214 ORLANSKI_NORTH 
               VN_STORE_2(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 215 ORLANSKI_NORTH 
     &         vVel(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 216 ORLANSKI_NORTH 
               VN_STORE_1(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 217 ORLANSKI_NORTH 
               VN_STORE_4(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_north.F 222 ORLANSKI_NORTH 
               TN_STORE_2(I,K,bi,bj)=theta(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 223 ORLANSKI_NORTH 
     &         theta(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 224 ORLANSKI_NORTH 
               TN_STORE_1(I,K,bi,bj)=theta(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 225 ORLANSKI_NORTH 
               TN_STORE_4(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_north.F 230 ORLANSKI_NORTH 
               SN_STORE_2(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 231 ORLANSKI_NORTH 
     &         salt(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 232 ORLANSKI_NORTH 
               SN_STORE_1(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 233 ORLANSKI_NORTH 
               SN_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_north.F 239 ORLANSKI_NORTH 
               WN_STORE_2(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 240 ORLANSKI_NORTH 
     &         wVel(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 241 ORLANSKI_NORTH 
               WN_STORE_1(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 242 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 185 ORLANSKI_SOUTH 
                    CL=(wVel(I,J_obc+1,K,bi,bj)-WS_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_south.F 193 ORLANSKI_SOUTH 
                  CVEL_WS(I,K,bi,bj)=f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)
./pkg/obcs/orlanski_south.F 196 ORLANSKI_SOUTH 
                  OBSw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)+
./pkg/obcs/orlanski_south.F 197 ORLANSKI_SOUTH 
     &            CVEL_WS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)*
./pkg/obcs/orlanski_south.F 198 ORLANSKI_SOUTH 
     &            (ab1*(wVel(I,J_obc+1,K,bi,bj)-wVel(I,J_obc,K,bi,bj))+
./pkg/obcs/orlanski_south.F 206 ORLANSKI_SOUTH 
               US_STORE_2(I,K,bi,bj)=uVel(I,J_obc+2,K,bi,bj) -
./pkg/obcs/orlanski_south.F 207 ORLANSKI_SOUTH 
     &         uVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 208 ORLANSKI_SOUTH 
               US_STORE_1(I,K,bi,bj)=uVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 209 ORLANSKI_SOUTH 
               US_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_south.F 214 ORLANSKI_SOUTH 
               VS_STORE_2(I,K,bi,bj)=vVel(I,J_obc+3,K,bi,bj) -
./pkg/obcs/orlanski_south.F 215 ORLANSKI_SOUTH 
     &         vVel(I,J_obc+2,K,bi,bj)
./pkg/obcs/orlanski_south.F 216 ORLANSKI_SOUTH 
               VS_STORE_1(I,K,bi,bj)=vVel(I,J_obc+2,K,bi,bj)
./pkg/obcs/orlanski_south.F 217 ORLANSKI_SOUTH 
               VS_STORE_4(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 222 ORLANSKI_SOUTH 
               TS_STORE_2(I,K,bi,bj)=theta(I,J_obc+2,K,bi,bj) -
./pkg/obcs/orlanski_south.F 223 ORLANSKI_SOUTH 
     &         theta(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 224 ORLANSKI_SOUTH 
               TS_STORE_1(I,K,bi,bj)=theta(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 225 ORLANSKI_SOUTH 
               TS_STORE_4(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_south.F 230 ORLANSKI_SOUTH 
               SS_STORE_2(I,K,bi,bj)=salt(I,J_obc+2,K,bi,bj) -
./pkg/obcs/orlanski_south.F 231 ORLANSKI_SOUTH 
     &         salt(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 232 ORLANSKI_SOUTH 
               SS_STORE_1(I,K,bi,bj)=salt(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 233 ORLANSKI_SOUTH 
               SS_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_south.F 239 ORLANSKI_SOUTH 
               WS_STORE_2(I,K,bi,bj)=wVel(I,J_obc+2,K,bi,bj) -
./pkg/obcs/orlanski_south.F 240 ORLANSKI_SOUTH 
     &         wVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 241 ORLANSKI_SOUTH 
               WS_STORE_1(I,K,bi,bj)=wVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 242 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/obcs/obcs_apply_w.F 28 OBCS_APPLY_W 
      INTEGER I,J,I_obc,J_obc
./pkg/obcs/obcs_apply_w.F 36 OBCS_APPLY_W 
        J_obc = OB_Jn(I,bi,bj)
./pkg/obcs/obcs_apply_w.F 37 OBCS_APPLY_W 
        IF (J_obc.NE.0) wFld(I,J_obc,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_w.F 39 OBCS_APPLY_W 
        J_obc = OB_Js(I,bi,bj)
./pkg/obcs/obcs_apply_w.F 40 OBCS_APPLY_W 
        IF (J_obc.NE.0) wFld(I,J_obc,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_w.F 57 OBCS_APPLY_W 
       J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/obcs_apply_w.F 58 OBCS_APPLY_W 
       IF (J_obc.NE.0) THEN
./pkg/obcs/obcs_apply_w.F 59 OBCS_APPLY_W 
        obc_mask = _maskS(I,J_obc,K,bi,bj)
./pkg/obcs/obcs_apply_w.F 60 OBCS_APPLY_W 
        wFld(I,J_obc,K,bi,bj)=OBNw(I,K,bi,bj) * obc_mask
./pkg/obcs/obcs_apply_w.F 67 OBCS_APPLY_W 
       J_obc=OB_Js(I,bi,bj)
./pkg/obcs/obcs_apply_w.F 68 OBCS_APPLY_W 
       IF (J_obc.NE.0) THEN
./pkg/obcs/obcs_apply_w.F 69 OBCS_APPLY_W 
        obc_mask = _maskS(I,J_obc+1,K,bi,bj)
./pkg/obcs/obcs_apply_w.F 70 OBCS_APPLY_W 
        wFld(I,J_obc,K,bi,bj)=OBSw(I,K,bi,bj) * obc_mask
./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_ts.F 29 OBCS_APPLY_TS 
      INTEGER I,J,I_obc,J_obc
./pkg/obcs/obcs_apply_ts.F 36 OBCS_APPLY_TS 
       J_obc = OB_Jn(I,bi,bj)
./pkg/obcs/obcs_apply_ts.F 37 OBCS_APPLY_TS 
       IF (J_obc.NE.0) THEN
./pkg/obcs/obcs_apply_ts.F 38 OBCS_APPLY_TS 
        obc_mask = _maskS(I,J_obc,K,bi,bj)
./pkg/obcs/obcs_apply_ts.F 39 OBCS_APPLY_TS 
        DO J = J_obc, J_obc+Oly
./pkg/obcs/obcs_apply_ts.F 49 OBCS_APPLY_TS 
       J_obc = OB_Js(I,bi,bj)
./pkg/obcs/obcs_apply_ts.F 50 OBCS_APPLY_TS 
       IF (J_obc.NE.0) THEN
./pkg/obcs/obcs_apply_ts.F 51 OBCS_APPLY_TS 
        obc_mask = _maskS(I,J_obc+1,K,bi,bj)
./pkg/obcs/obcs_apply_ts.F 52 OBCS_APPLY_TS 
        DO J = J_obc-Oly, 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 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_calc.F 146 OBCS_CALC 
            J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc.F 147 OBCS_CALC 
            IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 181 OBCS_CALC 
            J_obc=OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc.F 182 OBCS_CALC 
            IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 299 OBCS_CALC 
           J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc.F 300 OBCS_CALC 
           IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 302 OBCS_CALC 
     &           pTracer(I,J_obc-1,K,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F 303 OBCS_CALC 
     &           *_maskS(I,J_obc,K,bi,bj)
./pkg/obcs/obcs_calc.F 333 OBCS_CALC 
           J_obc=OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc.F 334 OBCS_CALC 
           IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 336 OBCS_CALC 
     &           pTracer(I,J_obc+1,K,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F 337 OBCS_CALC 
     &           *_maskS(I,J_obc+1,K,bi,bj)
./pkg/obcs/obcs_calc.F 427 OBCS_CALC 
            J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc.F 428 OBCS_CALC 
            IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 429 OBCS_CALC 
              Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj)
./pkg/obcs/obcs_calc.F 440 OBCS_CALC 
            J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc.F 441 OBCS_CALC 
            IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 454 OBCS_CALC 
            J_obc=OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc.F 455 OBCS_CALC 
            IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 456 OBCS_CALC 
              Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj)
./pkg/obcs/obcs_calc.F 467 OBCS_CALC 
            J_obc=OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc.F 468 OBCS_CALC 
            IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 47 OBCS_CALC 
      INTEGER I, J , K, I_obc, J_obc