Symbol Description Uses
J_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 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/obcs_apply_seaice.F 106 OBCS_APPLY_SEAICE 
          IF ( _maskS(I,J_obc+2,1,bi,bj) .NE. 0. ) THEN
./pkg/obcs/obcs_apply_seaice.F 109 OBCS_APPLY_SEAICE 
     &           (HEFF(I,J_obc+1,bi,bj)+HEFF(I,J_obc+2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 110 OBCS_APPLY_SEAICE 
            HEFF(I,J_obc+1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 111 OBCS_APPLY_SEAICE 
            HEFF(I,J_obc+2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 115 OBCS_APPLY_SEAICE 
     &           (AREA(I,J_obc+1,bi,bj)+AREA(I,J_obc+2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 116 OBCS_APPLY_SEAICE 
            AREA(I,J_obc+1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 117 OBCS_APPLY_SEAICE 
            AREA(I,J_obc+2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 121 OBCS_APPLY_SEAICE 
     &           (HSNOW(I,J_obc+1,bi,bj)+HSNOW(I,J_obc+2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 122 OBCS_APPLY_SEAICE 
            HSNOW(I,J_obc+1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 123 OBCS_APPLY_SEAICE 
            HSNOW(I,J_obc+2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 128 OBCS_APPLY_SEAICE 
     &           (HSALT(I,J_obc+1,bi,bj)+HSALT(I,J_obc+2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 129 OBCS_APPLY_SEAICE 
            HSALT(I,J_obc+1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 130 OBCS_APPLY_SEAICE 
            HSALT(I,J_obc+2,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_seaice.F 40 OBCS_APPLY_SEAICE 
         J_obc = OB_Jn(I,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 41 OBCS_APPLY_SEAICE 
         IF ( J_obc.NE.0 ) THEN
./pkg/obcs/obcs_apply_seaice.F 42 OBCS_APPLY_SEAICE 
          DO J = J_obc, J_obc+Oly
./pkg/obcs/obcs_apply_seaice.F 55 OBCS_APPLY_SEAICE 
          IF ( _maskS(I,J_obc-1,1,bi,bj) .NE. 0. ) THEN
./pkg/obcs/obcs_apply_seaice.F 58 OBCS_APPLY_SEAICE 
     &           (HEFF(I,J_obc-1,bi,bj)+HEFF(I,J_obc-2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 59 OBCS_APPLY_SEAICE 
            HEFF(I,J_obc-1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 60 OBCS_APPLY_SEAICE 
            HEFF(I,J_obc-2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 64 OBCS_APPLY_SEAICE 
     &           (AREA(I,J_obc-1,bi,bj)+AREA(I,J_obc-2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 65 OBCS_APPLY_SEAICE 
            AREA(I,J_obc-1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 66 OBCS_APPLY_SEAICE 
            AREA(I,J_obc-2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 70 OBCS_APPLY_SEAICE 
     &           (HSNOW(I,J_obc-1,bi,bj)+HSNOW(I,J_obc-2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 71 OBCS_APPLY_SEAICE 
            HSNOW(I,J_obc-1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 72 OBCS_APPLY_SEAICE 
            HSNOW(I,J_obc-2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 77 OBCS_APPLY_SEAICE 
     &           (HSALT(I,J_obc-1,bi,bj)+HSALT(I,J_obc-2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 78 OBCS_APPLY_SEAICE 
            HSALT(I,J_obc-1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 79 OBCS_APPLY_SEAICE 
            HSALT(I,J_obc-2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 91 OBCS_APPLY_SEAICE 
         J_obc = OB_Js(I,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 92 OBCS_APPLY_SEAICE 
         IF ( J_obc.NE.0 ) THEN
./pkg/obcs/obcs_apply_seaice.F 93 OBCS_APPLY_SEAICE 
          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_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_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 155 OBCS_CALC 
            J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc.F 156 OBCS_CALC 
            IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 191 OBCS_CALC 
            J_obc=OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc.F 192 OBCS_CALC 
            IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 303 OBCS_CALC 
           J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc.F 304 OBCS_CALC 
           IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 306 OBCS_CALC 
     &           pTracer(I,J_obc-1,K,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F 307 OBCS_CALC 
     &           *_maskS(I,J_obc,K,bi,bj)
./pkg/obcs/obcs_calc.F 335 OBCS_CALC 
           J_obc=OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc.F 336 OBCS_CALC 
           IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 338 OBCS_CALC 
     &           pTracer(I,J_obc+1,K,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F 339 OBCS_CALC 
     &           *_maskS(I,J_obc+1,K,bi,bj)
./pkg/obcs/obcs_calc.F 457 OBCS_CALC 
           J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc.F 458 OBCS_CALC 
           IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 459 OBCS_CALC 
            Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj)
./pkg/obcs/obcs_calc.F 475 OBCS_CALC 
            J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc.F 476 OBCS_CALC 
            IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 494 OBCS_CALC 
           J_obc=OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc.F 495 OBCS_CALC 
           IF (J_obc.ne.0) THEN
./pkg/obcs/obcs_calc.F 496 OBCS_CALC 
            Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj)
./pkg/obcs/obcs_calc.F 49 OBCS_CALC 
      INTEGER I, J, K, I_obc, J_obc
./pkg/obcs/obcs_calc.F 512 OBCS_CALC 
            J_obc=OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc.F 513 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