| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
683 |
OBCS_SPONGE_S |
_RL srelax, lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
726 |
OBCS_SPONGE_S |
lambda_obcs_s = ( |
|
./pkg/obcs/obcs_sponge.F |
731 |
OBCS_SPONGE_S |
IF (lambda_obcs_s.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
732 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
734 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
738 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
767 |
OBCS_SPONGE_S |
lambda_obcs_s = ( |
|
./pkg/obcs/obcs_sponge.F |
772 |
OBCS_SPONGE_S |
if (lambda_obcs_s.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
773 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
775 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
779 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
808 |
OBCS_SPONGE_S |
lambda_obcs_s = ( |
|
./pkg/obcs/obcs_sponge.F |
813 |
OBCS_SPONGE_S |
if (lambda_obcs_s.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
814 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
816 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
820 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
852 |
OBCS_SPONGE_S |
lambda_obcs_s= ( |
|
./pkg/obcs/obcs_sponge.F |
857 |
OBCS_SPONGE_S |
if (lambda_obcs_s.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
858 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
860 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
864 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |