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 34 NO PROCEDURE 
     & spongeThickness
./pkg/obcs/OBCS_PARAMS.h 37 NO PROCEDURE 
      INTEGER spongeThickness
./pkg/obcs/obcs_readparms.F 165 OBCS_READPARMS 
     &          spongeThickness
./pkg/obcs/obcs_readparms.F 359 OBCS_READPARMS 
      spongeThickness = 0
./pkg/obcs/obcs_sponge.F 103 OBCS_SPONGE_U 
     &      float(spongeThickness-jsl)*OBSu(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 105 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 108 OBCS_SPONGE_U 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 110 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 132 OBCS_SPONGE_U 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 137 OBCS_SPONGE_U 
     &      float(spongeThickness-isl)*OBEu(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 139 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 142 OBCS_SPONGE_U 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 144 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 166 OBCS_SPONGE_U 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 171 OBCS_SPONGE_U 
     &      float(spongeThickness-isl)*OBWu(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 173 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 176 OBCS_SPONGE_U 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 178 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 248 OBCS_SPONGE_V 
      IF ( useOBCSsponge .AND. spongeThickness.NE.0 ) THEN
./pkg/obcs/obcs_sponge.F 254 OBCS_SPONGE_V 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 259 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*OBNv(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 261 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 264 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 266 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 288 OBCS_SPONGE_V 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 293 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*OBSv(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 295 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 298 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 300 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 322 OBCS_SPONGE_V 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 327 OBCS_SPONGE_V 
     &      float(spongeThickness-isl)*OBEv(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 329 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 332 OBCS_SPONGE_V 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 334 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 356 OBCS_SPONGE_V 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 362 OBCS_SPONGE_V 
     &      float(spongeThickness-isl)*OBWv(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 364 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 367 OBCS_SPONGE_V 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 369 OBCS_SPONGE_V 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 443 OBCS_SPONGE_T 
      IF ( useOBCSsponge .AND. spongeThickness.NE.0 ) THEN
./pkg/obcs/obcs_sponge.F 468 OBCS_SPONGE_T 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 474 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*OBNt(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 476 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 478 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 480 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 508 OBCS_SPONGE_T 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 514 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*OBSt(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 516 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 519 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 521 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 549 OBCS_SPONGE_T 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 555 OBCS_SPONGE_T 
     &      float(spongeThickness-isl)*OBEt(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 557 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 560 OBCS_SPONGE_T 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 562 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 590 OBCS_SPONGE_T 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 598 OBCS_SPONGE_T 
     &      float(spongeThickness-isl)*OBWt(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 600 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 603 OBCS_SPONGE_T 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 605 OBCS_SPONGE_T 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 64 OBCS_SPONGE_U 
        DO jsl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 680 OBCS_SPONGE_S 
      IF ( useOBCSsponge .AND. spongeThickness.NE.0 ) THEN
./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 711 OBCS_SPONGE_S 
     &      float(spongeThickness-jsl)*OBNs(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 713 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 716 OBCS_SPONGE_S 
     &      float(spongeThickness-jsl)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 718 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 71 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 746 OBCS_SPONGE_S 
        DO jsl= 1,spongeThickness
./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 754 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 757 OBCS_SPONGE_S 
     &      float(spongeThickness)*Vrelaxobcsbound
./pkg/obcs/obcs_sponge.F 759 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 76 OBCS_SPONGE_U 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 787 OBCS_SPONGE_S 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 793 OBCS_SPONGE_S 
     &      float(spongeThickness-isl)*OBEs(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 795 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 798 OBCS_SPONGE_S 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 800 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 828 OBCS_SPONGE_S 
        DO isl= 1,spongeThickness
./pkg/obcs/obcs_sponge.F 837 OBCS_SPONGE_S 
     &      float(spongeThickness-isl)*OBWs(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 839 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 842 OBCS_SPONGE_S 
     &      float(spongeThickness-isl)*Urelaxobcsbound
./pkg/obcs/obcs_sponge.F 844 OBCS_SPONGE_S 
     &    / float(spongeThickness)
./pkg/obcs/obcs_sponge.F 98 OBCS_SPONGE_U 
        DO jsl= 1,spongeThickness