File |
Line number |
Procedure |
Code |
./pkg/obcs/obcs_sponge.F |
68 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,kLev,bi,bj) ) |
./pkg/obcs/obcs_sponge.F |
716 |
OBCS_SPONGE_S |
DO jsl= 1,spongeThickness |
./pkg/obcs/obcs_sponge.F |
717 |
OBCS_SPONGE_S |
j=OB_Jn(i,bi,bj)-jsl |
./pkg/obcs/obcs_sponge.F |
722 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBNs(i,kLev,bi,bj) |
./pkg/obcs/obcs_sponge.F |
723 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,kLev,bi,bj) ) |
./pkg/obcs/obcs_sponge.F |
727 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
./pkg/obcs/obcs_sponge.F |
728 |
OBCS_SPONGE_S |
& + float(jsl)*Vrelaxobcsinner) |
./pkg/obcs/obcs_sponge.F |
72 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
./pkg/obcs/obcs_sponge.F |
73 |
OBCS_SPONGE_U |
& + float(jsl)*Vrelaxobcsinner) |
./pkg/obcs/obcs_sponge.F |
757 |
OBCS_SPONGE_S |
DO jsl= 1,spongeThickness |
./pkg/obcs/obcs_sponge.F |
758 |
OBCS_SPONGE_S |
j=OB_Js(i,bi,bj)+jsl |
./pkg/obcs/obcs_sponge.F |
763 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBSs(i,kLev,bi,bj) |
./pkg/obcs/obcs_sponge.F |
764 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,kLev,bi,bj) ) |
./pkg/obcs/obcs_sponge.F |
769 |
OBCS_SPONGE_S |
& + float(jsl)*Vrelaxobcsinner) |
./pkg/obcs/obcs_sponge.F |
96 |
OBCS_SPONGE_U |
DO jsl= 1,spongeThickness |
./pkg/obcs/obcs_sponge.F |
97 |
OBCS_SPONGE_U |
j=OB_Js(i,bi,bj)+jsl |