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 103 OBCS_SPONGE_U 
     &      float(spongeThickness-jsl)*OBSu(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 104 OBCS_SPONGE_U 
     &    + float(jsl)*uVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 108 OBCS_SPONGE_U 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 109 OBCS_SPONGE_U 
     &    + float(jsl)*Vrelaxobcsinner)
./pkg/obcs/obcs_sponge.F 245 OBCS_SPONGE_V 
      INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F 254 OBCS_SPONGE_V 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 255 OBCS_SPONGE_V 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 259 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*OBNv(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 260 OBCS_SPONGE_V 
     &    + float(jsl)*vVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 264 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 265 OBCS_SPONGE_V 
     &    + float(jsl)*Vrelaxobcsinner)
./pkg/obcs/obcs_sponge.F 288 OBCS_SPONGE_V 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 289 OBCS_SPONGE_V 
         j=OB_Js(i,bi,bj)+jsl+1
./pkg/obcs/obcs_sponge.F 293 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*OBSv(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 294 OBCS_SPONGE_V 
     &    + float(jsl)*vVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 298 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 299 OBCS_SPONGE_V 
     &    + float(jsl)*Vrelaxobcsinner)
./pkg/obcs/obcs_sponge.F 440 OBCS_SPONGE_T 
      INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F 468 OBCS_SPONGE_T 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 469 OBCS_SPONGE_T 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 474 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*OBNt(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 475 OBCS_SPONGE_T 
     &    + float(jsl)*theta(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 478 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 479 OBCS_SPONGE_T 
     &    + float(jsl)*Vrelaxobcsinner)
./pkg/obcs/obcs_sponge.F 508 OBCS_SPONGE_T 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 509 OBCS_SPONGE_T 
         j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_sponge.F 514 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*OBSt(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 515 OBCS_SPONGE_T 
     &    + float(jsl)*theta(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 519 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 520 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 64 OBCS_SPONGE_U 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 65 OBCS_SPONGE_U 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 677 OBCS_SPONGE_S 
      INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F 69 OBCS_SPONGE_U 
     &      float(spongeThickness-jsl)*OBNu(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 705 OBCS_SPONGE_S 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 706 OBCS_SPONGE_S 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 70 OBCS_SPONGE_U 
     &    + float(jsl)*uVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 711 OBCS_SPONGE_S 
     &      float(spongeThickness-jsl)*OBNs(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 712 OBCS_SPONGE_S 
     &    + float(jsl)*salt(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 716 OBCS_SPONGE_S 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 717 OBCS_SPONGE_S 
     &    + float(jsl)*Vrelaxobcsinner)
./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 74 OBCS_SPONGE_U 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 752 OBCS_SPONGE_S 
     &      float(spongeThickness-jsl)*OBSs(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 753 OBCS_SPONGE_S 
     &    + float(jsl)*salt(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 758 OBCS_SPONGE_S 
     &    + float(jsl)*Vrelaxobcsinner)
./pkg/obcs/obcs_sponge.F 75 OBCS_SPONGE_U 
     &    + float(jsl)*Vrelaxobcsinner)
./pkg/obcs/obcs_sponge.F 98 OBCS_SPONGE_U 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 99 OBCS_SPONGE_U 
         j=OB_Js(i,bi,bj)+jsl