Symbol Description Uses
jsl 87


File Line number Procedure Code
./pkg/obcs/obcs_seaice_sponge.F 203 OBCS_SEAICE_SPONGE_H 
      INTEGER bi, bj, i, j, isl, jsl
./pkg/obcs/obcs_seaice_sponge.F 215 OBCS_SEAICE_SPONGE_H 
            DO jsl= 1,seaiceSpongeThickness
./pkg/obcs/obcs_seaice_sponge.F 216 OBCS_SEAICE_SPONGE_H 
             j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_seaice_sponge.F 219 OBCS_SEAICE_SPONGE_H 
     &           float(seaiceSpongeThickness-jsl)*Hrelaxobcsbound
./pkg/obcs/obcs_seaice_sponge.F 220 OBCS_SEAICE_SPONGE_H 
     &           + float(jsl-1)*Hrelaxobcsinner)
./pkg/obcs/obcs_seaice_sponge.F 242 OBCS_SEAICE_SPONGE_H 
            DO jsl= 1,seaiceSpongeThickness
./pkg/obcs/obcs_seaice_sponge.F 243 OBCS_SEAICE_SPONGE_H 
             j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_seaice_sponge.F 246 OBCS_SEAICE_SPONGE_H 
     &           float(seaiceSpongeThickness-jsl)*Hrelaxobcsbound
./pkg/obcs/obcs_seaice_sponge.F 247 OBCS_SEAICE_SPONGE_H 
     &           + float(jsl-1)*Hrelaxobcsinner)
./pkg/obcs/obcs_seaice_sponge.F 360 OBCS_SEAICE_SPONGE_SL 
      INTEGER bi, bj, i, j, isl, jsl
./pkg/obcs/obcs_seaice_sponge.F 372 OBCS_SEAICE_SPONGE_SL 
            DO jsl= 1,seaiceSpongeThickness
./pkg/obcs/obcs_seaice_sponge.F 373 OBCS_SEAICE_SPONGE_SL 
             j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_seaice_sponge.F 376 OBCS_SEAICE_SPONGE_SL 
     &           float(seaiceSpongeThickness-jsl)*SLrelaxobcsbound
./pkg/obcs/obcs_seaice_sponge.F 377 OBCS_SEAICE_SPONGE_SL 
     &           + float(jsl-1)*SLrelaxobcsinner)
./pkg/obcs/obcs_seaice_sponge.F 399 OBCS_SEAICE_SPONGE_SL 
            DO jsl= 1,seaiceSpongeThickness
./pkg/obcs/obcs_seaice_sponge.F 400 OBCS_SEAICE_SPONGE_SL 
             j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_seaice_sponge.F 403 OBCS_SEAICE_SPONGE_SL 
     &           float(seaiceSpongeThickness-jsl)*SLrelaxobcsbound
./pkg/obcs/obcs_seaice_sponge.F 404 OBCS_SEAICE_SPONGE_SL 
     &           + float(jsl-1)*SLrelaxobcsinner)
./pkg/obcs/obcs_seaice_sponge.F 46 OBCS_SEAICE_SPONGE_A 
      INTEGER bi, bj, i, j, isl, jsl
./pkg/obcs/obcs_seaice_sponge.F 517 OBCS_SEAICE_SPONGE_SN 
      INTEGER bi, bj, i, j, isl, jsl
./pkg/obcs/obcs_seaice_sponge.F 529 OBCS_SEAICE_SPONGE_SN 
            DO jsl= 1,seaiceSpongeThickness
./pkg/obcs/obcs_seaice_sponge.F 530 OBCS_SEAICE_SPONGE_SN 
             j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_seaice_sponge.F 533 OBCS_SEAICE_SPONGE_SN 
     &           float(seaiceSpongeThickness-jsl)*SNrelaxobcsbound
./pkg/obcs/obcs_seaice_sponge.F 534 OBCS_SEAICE_SPONGE_SN 
     &           + float(jsl-1)*SNrelaxobcsinner)
./pkg/obcs/obcs_seaice_sponge.F 556 OBCS_SEAICE_SPONGE_SN 
            DO jsl= 1,seaiceSpongeThickness
./pkg/obcs/obcs_seaice_sponge.F 557 OBCS_SEAICE_SPONGE_SN 
             j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_seaice_sponge.F 560 OBCS_SEAICE_SPONGE_SN 
     &           float(seaiceSpongeThickness-jsl)*SNrelaxobcsbound
./pkg/obcs/obcs_seaice_sponge.F 561 OBCS_SEAICE_SPONGE_SN 
     &           + float(jsl-1)*SNrelaxobcsinner)
./pkg/obcs/obcs_seaice_sponge.F 58 OBCS_SEAICE_SPONGE_A 
            DO jsl= 1,seaiceSpongeThickness
./pkg/obcs/obcs_seaice_sponge.F 59 OBCS_SEAICE_SPONGE_A 
             j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_seaice_sponge.F 62 OBCS_SEAICE_SPONGE_A 
     &           float(seaiceSpongeThickness-jsl)*Arelaxobcsbound
./pkg/obcs/obcs_seaice_sponge.F 63 OBCS_SEAICE_SPONGE_A 
     &           + float(jsl-1)*Arelaxobcsinner)
./pkg/obcs/obcs_seaice_sponge.F 85 OBCS_SEAICE_SPONGE_A 
            DO jsl= 1,seaiceSpongeThickness
./pkg/obcs/obcs_seaice_sponge.F 86 OBCS_SEAICE_SPONGE_A 
             j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_seaice_sponge.F 89 OBCS_SEAICE_SPONGE_A 
     &           float(seaiceSpongeThickness-jsl)*Arelaxobcsbound
./pkg/obcs/obcs_seaice_sponge.F 90 OBCS_SEAICE_SPONGE_A 
     &           + float(jsl-1)*Arelaxobcsinner)
./pkg/obcs/obcs_sponge.F 100 OBCS_SPONGE_U 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 101 OBCS_SPONGE_U 
           j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_sponge.F 107 OBCS_SPONGE_U 
     &            float(spongeThickness-jsl)*OBSu(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 108 OBCS_SPONGE_U 
     &            + float(jsl)*uVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 112 OBCS_SPONGE_U 
     &           float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 113 OBCS_SPONGE_U 
     &           + float(jsl)*Vrelaxobcsinner)
./pkg/obcs/obcs_sponge.F 249 OBCS_SPONGE_V 
      INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F 259 OBCS_SPONGE_V 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 260 OBCS_SPONGE_V 
           j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 266 OBCS_SPONGE_V 
     &            float(spongeThickness-jsl)*OBNv(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 267 OBCS_SPONGE_V 
     &            + float(jsl)*vVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 271 OBCS_SPONGE_V 
     &           float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 272 OBCS_SPONGE_V 
     &           + float(jsl)*Vrelaxobcsinner)
./pkg/obcs/obcs_sponge.F 294 OBCS_SPONGE_V 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 295 OBCS_SPONGE_V 
           j=OB_Js(i,bi,bj)+jsl+1
./pkg/obcs/obcs_sponge.F 301 OBCS_SPONGE_V 
     &            float(spongeThickness-jsl)*OBSv(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 302 OBCS_SPONGE_V 
     &            + float(jsl)*vVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 306 OBCS_SPONGE_V 
     &           float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 307 OBCS_SPONGE_V 
     &           + float(jsl)*Vrelaxobcsinner)
./pkg/obcs/obcs_sponge.F 447 OBCS_SPONGE_T 
      INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F 474 OBCS_SPONGE_T 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 475 OBCS_SPONGE_T 
           j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 482 OBCS_SPONGE_T 
     &             float(spongeThickness-jsl)*OBNt(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 483 OBCS_SPONGE_T 
     &             + float(jsl)*theta(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 487 OBCS_SPONGE_T 
     &            float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 488 OBCS_SPONGE_T 
     &            + float(jsl)*Vrelaxobcsinner)
./pkg/obcs/obcs_sponge.F 514 OBCS_SPONGE_T 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 515 OBCS_SPONGE_T 
           j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_sponge.F 522 OBCS_SPONGE_T 
     &             float(spongeThickness-jsl)*OBSt(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 523 OBCS_SPONGE_T 
     &             + float(jsl)*theta(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 527 OBCS_SPONGE_T 
     &            float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 528 OBCS_SPONGE_T 
     &            + float(jsl)*Vrelaxobcsinner)
./pkg/obcs/obcs_sponge.F 55 OBCS_SPONGE_U 
      INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F 65 OBCS_SPONGE_U 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 66 OBCS_SPONGE_U 
           j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 679 OBCS_SPONGE_S 
      INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F 706 OBCS_SPONGE_S 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 707 OBCS_SPONGE_S 
           j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 714 OBCS_SPONGE_S 
     &             float(spongeThickness-jsl)*OBNs(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 715 OBCS_SPONGE_S 
     &             + float(jsl)*salt(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 719 OBCS_SPONGE_S 
     &            float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 720 OBCS_SPONGE_S 
     &            + float(jsl)*Vrelaxobcsinner)
./pkg/obcs/obcs_sponge.F 72 OBCS_SPONGE_U 
     &            float(spongeThickness-jsl)*OBNu(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 73 OBCS_SPONGE_U 
     &            + float(jsl)*uVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 746 OBCS_SPONGE_S 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 747 OBCS_SPONGE_S 
           j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_sponge.F 754 OBCS_SPONGE_S 
     &            float(spongeThickness-jsl)*OBSs(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 755 OBCS_SPONGE_S 
     &            + float(jsl)*salt(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 760 OBCS_SPONGE_S 
     &           + float(jsl)*Vrelaxobcsinner)
./pkg/obcs/obcs_sponge.F 77 OBCS_SPONGE_U 
     &           float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 78 OBCS_SPONGE_U 
     &           + float(jsl)*Vrelaxobcsinner)