| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
127 |
OBCS_SPONGE_U |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
128 |
OBCS_SPONGE_U |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
132 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBEu(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
133 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
137 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
138 |
OBCS_SPONGE_U |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
161 |
OBCS_SPONGE_U |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
162 |
OBCS_SPONGE_U |
i=OB_Iw(j,bi,bj)+isl+1 |
|
./pkg/obcs/obcs_sponge.F |
166 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBWu(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
167 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
171 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
172 |
OBCS_SPONGE_U |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
234 |
OBCS_SPONGE_V |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
311 |
OBCS_SPONGE_V |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
312 |
OBCS_SPONGE_V |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
316 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBEv(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
317 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
321 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
322 |
OBCS_SPONGE_V |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
345 |
OBCS_SPONGE_V |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
346 |
OBCS_SPONGE_V |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
351 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBWv(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
352 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
356 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
357 |
OBCS_SPONGE_V |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
423 |
OBCS_SPONGE_T |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
50 |
OBCS_SPONGE_U |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
532 |
OBCS_SPONGE_T |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
533 |
OBCS_SPONGE_T |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
538 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBEt(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
539 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
543 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
544 |
OBCS_SPONGE_T |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
573 |
OBCS_SPONGE_T |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
576 |
OBCS_SPONGE_T |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
581 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBWt(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
582 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
586 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
587 |
OBCS_SPONGE_T |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
654 |
OBCS_SPONGE_S |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
764 |
OBCS_SPONGE_S |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
765 |
OBCS_SPONGE_S |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
770 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBEs(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
771 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
775 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
776 |
OBCS_SPONGE_S |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
805 |
OBCS_SPONGE_S |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
809 |
OBCS_SPONGE_S |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
814 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBWs(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
815 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
819 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
820 |
OBCS_SPONGE_S |
& + float(isl)*Urelaxobcsinner) |