| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
235 |
OBCS_SPONGE_V |
_RL vrelax,lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
252 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
257 |
OBCS_SPONGE_V |
IF (lambda_obcs_v.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
258 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
260 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
264 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
286 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
291 |
OBCS_SPONGE_V |
if (lambda_obcs_v.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
292 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
294 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
298 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
320 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
325 |
OBCS_SPONGE_V |
if (lambda_obcs_v.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
326 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
328 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
332 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
355 |
OBCS_SPONGE_V |
lambda_obcs_v = ( |
|
./pkg/obcs/obcs_sponge.F |
360 |
OBCS_SPONGE_V |
if (lambda_obcs_v.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
361 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
363 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
367 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |