| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
101 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBSu(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
102 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
106 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
107 |
OBCS_SPONGE_U |
& + float(jsl)*Vrelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
256 |
OBCS_SPONGE_V |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
257 |
OBCS_SPONGE_V |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
261 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBNv(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
262 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
266 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
267 |
OBCS_SPONGE_V |
& + float(jsl)*Vrelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
290 |
OBCS_SPONGE_V |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
291 |
OBCS_SPONGE_V |
j=OB_Js(i,bi,bj)+jsl+1 |
|
./pkg/obcs/obcs_sponge.F |
295 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBSv(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
296 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
300 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
301 |
OBCS_SPONGE_V |
& + float(jsl)*Vrelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
475 |
OBCS_SPONGE_T |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
476 |
OBCS_SPONGE_T |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
481 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBNt(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
482 |
OBCS_SPONGE_T |
& + float(jsl)*theta(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
485 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
486 |
OBCS_SPONGE_T |
& + float(jsl)*Vrelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
515 |
OBCS_SPONGE_T |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
516 |
OBCS_SPONGE_T |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
521 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBSt(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
522 |
OBCS_SPONGE_T |
& + float(jsl)*theta(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
526 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
527 |
OBCS_SPONGE_T |
& + float(jsl)*Vrelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
62 |
OBCS_SPONGE_U |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
63 |
OBCS_SPONGE_U |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
67 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBNu(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
68 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
717 |
OBCS_SPONGE_S |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
718 |
OBCS_SPONGE_S |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
723 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBNs(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
724 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
728 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
729 |
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 |
758 |
OBCS_SPONGE_S |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
759 |
OBCS_SPONGE_S |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
764 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBSs(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
765 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
770 |
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 |