| Symbol | Description | Uses |
| isl | 48 |
| File | Line number | Procedure | Code |
| ./pkg/obcs/obcs_sponge.F | 798 | OBCS_SPONGE_S |
DO isl= 1,spongeThickness |
| ./pkg/obcs/obcs_sponge.F | 799 | OBCS_SPONGE_S |
i=OB_Ie(j,bi,bj)-isl |
| ./pkg/obcs/obcs_sponge.F | 804 | OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBEs(j,kLev,bi,bj) |
| ./pkg/obcs/obcs_sponge.F | 805 | OBCS_SPONGE_S |
& + float(isl)*salt(i,j,kLev,bi,bj) ) |
| ./pkg/obcs/obcs_sponge.F | 809 | OBCS_SPONGE_S |
& float(spongeThickness-isl)*Urelaxobcsbound |
| ./pkg/obcs/obcs_sponge.F | 810 | OBCS_SPONGE_S |
& + float(isl)*Urelaxobcsinner) |
| ./pkg/obcs/obcs_sponge.F | 839 | OBCS_SPONGE_S |
DO isl= 1,spongeThickness |
| ./pkg/obcs/obcs_sponge.F | 843 | OBCS_SPONGE_S |
i=OB_Iw(j,bi,bj)+isl |
| ./pkg/obcs/obcs_sponge.F | 848 | OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBWs(j,kLev,bi,bj) |
| ./pkg/obcs/obcs_sponge.F | 849 | OBCS_SPONGE_S |
& + float(isl)*salt(i,j,kLev,bi,bj) ) |
| ./pkg/obcs/obcs_sponge.F | 853 | OBCS_SPONGE_S |
& float(spongeThickness-isl)*Urelaxobcsbound |
| ./pkg/obcs/obcs_sponge.F | 854 | OBCS_SPONGE_S |
& + float(isl)*Urelaxobcsinner) |