| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
424 |
OBCS_SPONGE_T |
_RL trelax, lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
460 |
OBCS_SPONGE_T |
lambda_obcs_t = ( |
|
./pkg/obcs/obcs_sponge.F |
465 |
OBCS_SPONGE_T |
IF (lambda_obcs_t.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
466 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
468 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
472 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
501 |
OBCS_SPONGE_T |
lambda_obcs_t = ( |
|
./pkg/obcs/obcs_sponge.F |
506 |
OBCS_SPONGE_T |
if (lambda_obcs_t.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
507 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
509 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
513 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
542 |
OBCS_SPONGE_T |
lambda_obcs_t = ( |
|
./pkg/obcs/obcs_sponge.F |
547 |
OBCS_SPONGE_T |
if (lambda_obcs_t.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
548 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
550 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
554 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
585 |
OBCS_SPONGE_T |
lambda_obcs_t= ( |
|
./pkg/obcs/obcs_sponge.F |
590 |
OBCS_SPONGE_T |
if (lambda_obcs_t .ne. 0.) then |
|
./pkg/obcs/obcs_sponge.F |
591 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
593 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
597 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |