Symbol Description Uses
spongeThickness number grid points that make up the sponge layer (def=0) specify Orlanski boundary conditions for northern/ use open boundary computations following Stevens (1990) use phase velocity contribution for open boundary use advective contribution for open boundary 88


File Line number Procedure Code
./pkg/obcs/OBCS_PARAMS.h 37 NO PROCEDURE 
     & spongeThickness
./pkg/obcs/OBCS_PARAMS.h 40 NO PROCEDURE 
      INTEGER spongeThickness
./pkg/obcs/obcs_readparms.F 188 OBCS_READPARMS 
     &          spongeThickness
./pkg/obcs/obcs_readparms.F 401 OBCS_READPARMS 
      spongeThickness = 0
./pkg/obcs/obcs_sponge.F 100 OBCS_SPONGE_U 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 107 OBCS_SPONGE_U 
     &            float(spongeThickness-jsl)*OBSu(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 109 OBCS_SPONGE_U 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 112 OBCS_SPONGE_U 
     &           float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 114 OBCS_SPONGE_U 
     &           / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 135 OBCS_SPONGE_U 
          DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 142 OBCS_SPONGE_U 
     &            float(spongeThickness-isl)*OBEu(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 144 OBCS_SPONGE_U 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 147 OBCS_SPONGE_U 
     &           float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 149 OBCS_SPONGE_U 
     &           / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 170 OBCS_SPONGE_U 
          DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 177 OBCS_SPONGE_U 
     &            float(spongeThickness-isl)*OBWu(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 179 OBCS_SPONGE_U 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 182 OBCS_SPONGE_U 
     &           float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 184 OBCS_SPONGE_U 
     &           / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 252 OBCS_SPONGE_V 
      IF ( useOBCSsponge .AND. spongeThickness.NE.0 ) THEN
./pkg/obcs/obcs_sponge.F 259 OBCS_SPONGE_V 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 266 OBCS_SPONGE_V 
     &            float(spongeThickness-jsl)*OBNv(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 268 OBCS_SPONGE_V 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 271 OBCS_SPONGE_V 
     &           float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 273 OBCS_SPONGE_V 
     &           / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 294 OBCS_SPONGE_V 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 301 OBCS_SPONGE_V 
     &            float(spongeThickness-jsl)*OBSv(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 303 OBCS_SPONGE_V 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 306 OBCS_SPONGE_V 
     &           float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 308 OBCS_SPONGE_V 
     &           / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 329 OBCS_SPONGE_V 
          DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 336 OBCS_SPONGE_V 
     &            float(spongeThickness-isl)*OBEv(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 338 OBCS_SPONGE_V 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 341 OBCS_SPONGE_V 
     &           float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 343 OBCS_SPONGE_V 
     &           / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 364 OBCS_SPONGE_V 
          DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 371 OBCS_SPONGE_V 
     &            float(spongeThickness-isl)*OBWv(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 373 OBCS_SPONGE_V 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 376 OBCS_SPONGE_V 
     &           float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 378 OBCS_SPONGE_V 
     &           / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 450 OBCS_SPONGE_T 
      IF ( useOBCSsponge .AND. spongeThickness.NE.0 ) THEN
./pkg/obcs/obcs_sponge.F 474 OBCS_SPONGE_T 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 482 OBCS_SPONGE_T 
     &             float(spongeThickness-jsl)*OBNt(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 484 OBCS_SPONGE_T 
     &             / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 487 OBCS_SPONGE_T 
     &            float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 489 OBCS_SPONGE_T 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 514 OBCS_SPONGE_T 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 522 OBCS_SPONGE_T 
     &             float(spongeThickness-jsl)*OBSt(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 524 OBCS_SPONGE_T 
     &             / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 527 OBCS_SPONGE_T 
     &            float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 529 OBCS_SPONGE_T 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 554 OBCS_SPONGE_T 
          DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 562 OBCS_SPONGE_T 
     &             float(spongeThickness-isl)*OBEt(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 564 OBCS_SPONGE_T 
     &             / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 567 OBCS_SPONGE_T 
     &            float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 569 OBCS_SPONGE_T 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 58 OBCS_SPONGE_U 
      IF ( useOBCSsponge .AND. spongeThickness.NE.0 ) THEN
./pkg/obcs/obcs_sponge.F 594 OBCS_SPONGE_T 
          DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 602 OBCS_SPONGE_T 
     &             float(spongeThickness-isl)*OBWt(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 604 OBCS_SPONGE_T 
     &             / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 607 OBCS_SPONGE_T 
     &            float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 609 OBCS_SPONGE_T 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 65 OBCS_SPONGE_U 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 682 OBCS_SPONGE_S 
      IF ( useOBCSsponge .AND. spongeThickness.NE.0 ) THEN
./pkg/obcs/obcs_sponge.F 706 OBCS_SPONGE_S 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 714 OBCS_SPONGE_S 
     &             float(spongeThickness-jsl)*OBNs(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 716 OBCS_SPONGE_S 
     &             / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 719 OBCS_SPONGE_S 
     &            float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 721 OBCS_SPONGE_S 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 72 OBCS_SPONGE_U 
     &            float(spongeThickness-jsl)*OBNu(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 746 OBCS_SPONGE_S 
          DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 74 OBCS_SPONGE_U 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 754 OBCS_SPONGE_S 
     &            float(spongeThickness-jsl)*OBSs(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 756 OBCS_SPONGE_S 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 759 OBCS_SPONGE_S 
     &           float(spongeThickness)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 761 OBCS_SPONGE_S 
     &           / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 77 OBCS_SPONGE_U 
     &           float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 786 OBCS_SPONGE_S 
         DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 794 OBCS_SPONGE_S 
     &            float(spongeThickness-isl)*OBEs(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 796 OBCS_SPONGE_S 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 799 OBCS_SPONGE_S 
     &           float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 79 OBCS_SPONGE_U 
     &           / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 801 OBCS_SPONGE_S 
     &           / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 826 OBCS_SPONGE_S 
         DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 834 OBCS_SPONGE_S 
     &            float(spongeThickness-isl)*OBWs(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 836 OBCS_SPONGE_S 
     &            / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 839 OBCS_SPONGE_S 
     &           float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 841 OBCS_SPONGE_S 
     &           / float(spongeThickness)