| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
241 |
OBCS_SPONGE_V |
_RL vrelax,lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
264 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
269 |
OBCS_SPONGE_V |
IF (lambda_obcs_v.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
270 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
272 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
276 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
298 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
303 |
OBCS_SPONGE_V |
if (lambda_obcs_v.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
304 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
306 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
310 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
332 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
337 |
OBCS_SPONGE_V |
if (lambda_obcs_v.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
338 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
340 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
344 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
367 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
372 |
OBCS_SPONGE_V |
if (lambda_obcs_v.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
373 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
375 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
379 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |