| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
685 |
OBCS_SPONGE_S |
_RL srelax, lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
727 |
OBCS_SPONGE_S |
lambda_obcs_s = ( |
|
./pkg/obcs/obcs_sponge.F |
732 |
OBCS_SPONGE_S |
IF (lambda_obcs_s.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
733 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
735 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
739 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
768 |
OBCS_SPONGE_S |
lambda_obcs_s = ( |
|
./pkg/obcs/obcs_sponge.F |
773 |
OBCS_SPONGE_S |
if (lambda_obcs_s.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
774 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
776 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
780 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
809 |
OBCS_SPONGE_S |
lambda_obcs_s = ( |
|
./pkg/obcs/obcs_sponge.F |
814 |
OBCS_SPONGE_S |
if (lambda_obcs_s.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
815 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
817 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
821 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
853 |
OBCS_SPONGE_S |
lambda_obcs_s= ( |
|
./pkg/obcs/obcs_sponge.F |
858 |
OBCS_SPONGE_S |
if (lambda_obcs_s.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
859 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
861 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
865 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |