| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
103 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
104 |
OBCS_SPONGE_U |
& + float(jsl)*Vrelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
234 |
OBCS_SPONGE_V |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
243 |
OBCS_SPONGE_V |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
244 |
OBCS_SPONGE_V |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
248 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBNv(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
249 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
253 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
254 |
OBCS_SPONGE_V |
& + float(jsl)*Vrelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
277 |
OBCS_SPONGE_V |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
278 |
OBCS_SPONGE_V |
j=OB_Js(i,bi,bj)+jsl+1 |
|
./pkg/obcs/obcs_sponge.F |
282 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBSv(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
283 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
287 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
288 |
OBCS_SPONGE_V |
& + float(jsl)*Vrelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
423 |
OBCS_SPONGE_T |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
451 |
OBCS_SPONGE_T |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
452 |
OBCS_SPONGE_T |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
457 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBNt(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
458 |
OBCS_SPONGE_T |
& + float(jsl)*theta(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
461 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
462 |
OBCS_SPONGE_T |
& + float(jsl)*Vrelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
491 |
OBCS_SPONGE_T |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
492 |
OBCS_SPONGE_T |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
497 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBSt(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
498 |
OBCS_SPONGE_T |
& + float(jsl)*theta(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
502 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
503 |
OBCS_SPONGE_T |
& + float(jsl)*Vrelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
50 |
OBCS_SPONGE_U |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
59 |
OBCS_SPONGE_U |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
60 |
OBCS_SPONGE_U |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
64 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBNu(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
654 |
OBCS_SPONGE_S |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
65 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
682 |
OBCS_SPONGE_S |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
683 |
OBCS_SPONGE_S |
j=OB_Jn(i,bi,bj)-jsl |
|
./pkg/obcs/obcs_sponge.F |
688 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBNs(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
689 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
693 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
694 |
OBCS_SPONGE_S |
& + float(jsl)*Vrelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
69 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
70 |
OBCS_SPONGE_U |
& + float(jsl)*Vrelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
723 |
OBCS_SPONGE_S |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
724 |
OBCS_SPONGE_S |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
729 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBSs(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
730 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
735 |
OBCS_SPONGE_S |
& + float(jsl)*Vrelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
93 |
OBCS_SPONGE_U |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
94 |
OBCS_SPONGE_U |
j=OB_Js(i,bi,bj)+jsl |
|
./pkg/obcs/obcs_sponge.F |
98 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBSu(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
99 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,kLev,bi,bj) ) |