| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
246 |
OBCS_SPONGE_V |
_RL vrelax,lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
263 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
268 |
OBCS_SPONGE_V |
IF (lambda_obcs_v.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
269 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
271 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
275 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
297 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
302 |
OBCS_SPONGE_V |
if (lambda_obcs_v.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
303 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
305 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
309 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
331 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
336 |
OBCS_SPONGE_V |
if (lambda_obcs_v.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
337 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
339 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
343 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
366 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
371 |
OBCS_SPONGE_V |
if (lambda_obcs_v.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
372 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
374 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
378 |
OBCS_SPONGE_V |
& - _maskS(i,j,k,bi,bj) * lambda_obcs_v |