| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
441 |
OBCS_SPONGE_T |
_RL trelax, lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
477 |
OBCS_SPONGE_T |
lambda_obcs_t = ( |
|
./pkg/obcs/obcs_sponge.F |
482 |
OBCS_SPONGE_T |
IF (lambda_obcs_t.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
483 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
485 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
489 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
518 |
OBCS_SPONGE_T |
lambda_obcs_t = ( |
|
./pkg/obcs/obcs_sponge.F |
523 |
OBCS_SPONGE_T |
if (lambda_obcs_t.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
524 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
526 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
530 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
559 |
OBCS_SPONGE_T |
lambda_obcs_t = ( |
|
./pkg/obcs/obcs_sponge.F |
564 |
OBCS_SPONGE_T |
if (lambda_obcs_t.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
565 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
567 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
571 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
602 |
OBCS_SPONGE_T |
lambda_obcs_t= ( |
|
./pkg/obcs/obcs_sponge.F |
607 |
OBCS_SPONGE_T |
if (lambda_obcs_t .ne. 0.) then |
|
./pkg/obcs/obcs_sponge.F |
608 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
610 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
614 |
OBCS_SPONGE_T |
& - maskC(i,j,k,bi,bj) * lambda_obcs_t |