| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
250 |
OBCS_SPONGE_V |
_RL vrelax,lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
270 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
274 |
OBCS_SPONGE_V |
IF (lambda_obcs_v.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
275 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
277 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
280 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
305 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
309 |
OBCS_SPONGE_V |
IF (lambda_obcs_v.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
310 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
312 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
315 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
340 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
344 |
OBCS_SPONGE_V |
If (lambda_obcs_v.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
345 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
347 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
350 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
375 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
379 |
OBCS_SPONGE_V |
IF (lambda_obcs_v.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
380 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
382 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
385 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |