| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
443 |
OBCS_SPONGE_T |
_RL trelax, lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
484 |
OBCS_SPONGE_T |
lambda_obcs_t = ( |
|
./pkg/obcs/obcs_sponge.F |
489 |
OBCS_SPONGE_T |
IF (lambda_obcs_t.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
490 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
492 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
496 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
525 |
OBCS_SPONGE_T |
lambda_obcs_t = ( |
|
./pkg/obcs/obcs_sponge.F |
530 |
OBCS_SPONGE_T |
if (lambda_obcs_t.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
531 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
533 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
537 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
566 |
OBCS_SPONGE_T |
lambda_obcs_t = ( |
|
./pkg/obcs/obcs_sponge.F |
571 |
OBCS_SPONGE_T |
if (lambda_obcs_t.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
572 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
574 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
578 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
609 |
OBCS_SPONGE_T |
lambda_obcs_t= ( |
|
./pkg/obcs/obcs_sponge.F |
614 |
OBCS_SPONGE_T |
if (lambda_obcs_t .ne. 0.) then |
|
./pkg/obcs/obcs_sponge.F |
615 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
617 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
621 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |