| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
243 |
OBCS_SPONGE_V |
_RL vrelax,lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
265 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
270 |
OBCS_SPONGE_V |
IF (lambda_obcs_v.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
271 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
273 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
277 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
299 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
304 |
OBCS_SPONGE_V |
if (lambda_obcs_v.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
305 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
307 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
311 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
333 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
338 |
OBCS_SPONGE_V |
if (lambda_obcs_v.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
339 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
341 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
345 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
368 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
373 |
OBCS_SPONGE_V |
if (lambda_obcs_v.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
374 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
376 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
380 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |