| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
441 |
OBCS_SPONGE_T |
_RL trelax, lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
483 |
OBCS_SPONGE_T |
lambda_obcs_t = ( |
|
./pkg/obcs/obcs_sponge.F |
488 |
OBCS_SPONGE_T |
IF (lambda_obcs_t.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
489 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
491 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
495 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
524 |
OBCS_SPONGE_T |
lambda_obcs_t = ( |
|
./pkg/obcs/obcs_sponge.F |
529 |
OBCS_SPONGE_T |
if (lambda_obcs_t.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
530 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
532 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
536 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
565 |
OBCS_SPONGE_T |
lambda_obcs_t = ( |
|
./pkg/obcs/obcs_sponge.F |
570 |
OBCS_SPONGE_T |
if (lambda_obcs_t.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
571 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
573 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
577 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
608 |
OBCS_SPONGE_T |
lambda_obcs_t= ( |
|
./pkg/obcs/obcs_sponge.F |
613 |
OBCS_SPONGE_T |
if (lambda_obcs_t .ne. 0.) then |
|
./pkg/obcs/obcs_sponge.F |
614 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
616 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
620 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |