| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
680 |
OBCS_SPONGE_S |
_RL srelax, lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
718 |
OBCS_SPONGE_S |
lambda_obcs_s = ( |
|
./pkg/obcs/obcs_sponge.F |
722 |
OBCS_SPONGE_S |
IF (lambda_obcs_s.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
723 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
725 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
728 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
758 |
OBCS_SPONGE_S |
lambda_obcs_s = ( |
|
./pkg/obcs/obcs_sponge.F |
762 |
OBCS_SPONGE_S |
IF (lambda_obcs_s.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
763 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
765 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
768 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
798 |
OBCS_SPONGE_S |
lambda_obcs_s = ( |
|
./pkg/obcs/obcs_sponge.F |
802 |
OBCS_SPONGE_S |
IF (lambda_obcs_s.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
803 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
805 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
808 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
838 |
OBCS_SPONGE_S |
lambda_obcs_s= ( |
|
./pkg/obcs/obcs_sponge.F |
842 |
OBCS_SPONGE_S |
IF (lambda_obcs_s.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
843 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
845 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
848 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |