| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
448 |
OBCS_SPONGE_T |
_RL trelax, lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
486 |
OBCS_SPONGE_T |
lambda_obcs_t = ( |
|
./pkg/obcs/obcs_sponge.F |
490 |
OBCS_SPONGE_T |
IF (lambda_obcs_t.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
491 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
493 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
496 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
526 |
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 |
536 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
566 |
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 |
576 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
606 |
OBCS_SPONGE_T |
lambda_obcs_t= ( |
|
./pkg/obcs/obcs_sponge.F |
610 |
OBCS_SPONGE_T |
IF (lambda_obcs_t .ne. 0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
611 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
613 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
616 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |