Symbol Description Uses
spongeThickness 100


File Line number Procedure Code
./pkg/obcs/OBCS.h 33 NO PROCEDURE 
     & spongeThickness,
./pkg/obcs/OBCS.h 41 NO PROCEDURE 
      INTEGER spongeThickness
./pkg/obcs/obcs_readparms.F 138 OBCS_READPARMS 
      spongeThickness = 0
./pkg/obcs/obcs_readparms.F 47 OBCS_READPARMS 
     &          spongeThickness
./pkg/obcs/obcs_sponge.F 101 OBCS_SPONGE_U 
     &      float(spongeThickness-jsl)*OBSu(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 103 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 106 OBCS_SPONGE_U 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 108 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 129 OBCS_SPONGE_U 
       IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 130 OBCS_SPONGE_U 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 135 OBCS_SPONGE_U 
     &      float(spongeThickness-isl)*OBEu(j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 137 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 140 OBCS_SPONGE_U 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 142 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 163 OBCS_SPONGE_U 
       IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 164 OBCS_SPONGE_U 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 169 OBCS_SPONGE_U 
     &      float(spongeThickness-isl)*OBWu(j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 171 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 174 OBCS_SPONGE_U 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 176 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 254 OBCS_SPONGE_V 
       IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 255 OBCS_SPONGE_V 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 260 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*OBNv(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 262 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 265 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 267 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 288 OBCS_SPONGE_V 
       IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 289 OBCS_SPONGE_V 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 294 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*OBSv(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 296 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 299 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 301 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 322 OBCS_SPONGE_V 
       IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 323 OBCS_SPONGE_V 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 328 OBCS_SPONGE_V 
     &      float(spongeThickness-isl)*OBEv(j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 330 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 333 OBCS_SPONGE_V 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 335 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 356 OBCS_SPONGE_V 
       IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 357 OBCS_SPONGE_V 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 363 OBCS_SPONGE_V 
     &      float(spongeThickness-isl)*OBWv(j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 365 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 368 OBCS_SPONGE_V 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 370 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 473 OBCS_SPONGE_T 
       IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 474 OBCS_SPONGE_T 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 480 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*OBNt(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 482 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 484 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 486 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 513 OBCS_SPONGE_T 
       IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 514 OBCS_SPONGE_T 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 520 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*OBSt(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 522 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 525 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 527 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 554 OBCS_SPONGE_T 
       IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 555 OBCS_SPONGE_T 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 561 OBCS_SPONGE_T 
     &      float(spongeThickness-isl)*OBEt(j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 563 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 566 OBCS_SPONGE_T 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 568 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 595 OBCS_SPONGE_T 
       IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 596 OBCS_SPONGE_T 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 604 OBCS_SPONGE_T 
     &      float(spongeThickness-isl)*OBWt(j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 606 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 609 OBCS_SPONGE_T 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 611 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 61 OBCS_SPONGE_U 
       IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 62 OBCS_SPONGE_U 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 67 OBCS_SPONGE_U 
     &      float(spongeThickness-jsl)*OBNu(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 69 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 715 OBCS_SPONGE_S 
       IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 716 OBCS_SPONGE_S 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 722 OBCS_SPONGE_S 
     &      float(spongeThickness-jsl)*OBNs(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 724 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 727 OBCS_SPONGE_S 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 729 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 72 OBCS_SPONGE_U 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 74 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 756 OBCS_SPONGE_S 
       IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 757 OBCS_SPONGE_S 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 763 OBCS_SPONGE_S 
     &      float(spongeThickness-jsl)*OBSs(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 765 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 768 OBCS_SPONGE_S 
     &      float(spongeThickness)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 770 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 797 OBCS_SPONGE_S 
       IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 798 OBCS_SPONGE_S 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 804 OBCS_SPONGE_S 
     &      float(spongeThickness-isl)*OBEs(j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 806 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 809 OBCS_SPONGE_S 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 811 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 838 OBCS_SPONGE_S 
       IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 839 OBCS_SPONGE_S 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 848 OBCS_SPONGE_S 
     &      float(spongeThickness-isl)*OBWs(j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 850 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 853 OBCS_SPONGE_S 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 855 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 95 OBCS_SPONGE_U 
       IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 96 OBCS_SPONGE_U 
        DO jsl= 1,spongeThickness