| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
678 |
OBCS_SPONGE_S |
_RL srelax, lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
715 |
OBCS_SPONGE_S |
lambda_obcs_s = ( |
|
./pkg/obcs/obcs_sponge.F |
720 |
OBCS_SPONGE_S |
IF (lambda_obcs_s.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
721 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
723 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
727 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
756 |
OBCS_SPONGE_S |
lambda_obcs_s = ( |
|
./pkg/obcs/obcs_sponge.F |
761 |
OBCS_SPONGE_S |
if (lambda_obcs_s.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
762 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
764 |
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 |
797 |
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 |
809 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
841 |
OBCS_SPONGE_S |
lambda_obcs_s= ( |
|
./pkg/obcs/obcs_sponge.F |
846 |
OBCS_SPONGE_S |
if (lambda_obcs_s.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
847 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
849 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
853 |
OBCS_SPONGE_S |
& - maskC(i,j,k,bi,bj) * lambda_obcs_s |