| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
655 |
OBCS_SPONGE_S |
_RL srelax, lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
692 |
OBCS_SPONGE_S |
lambda_obcs_s = ( |
|
./pkg/obcs/obcs_sponge.F |
697 |
OBCS_SPONGE_S |
IF (lambda_obcs_s.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
698 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
700 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
704 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
733 |
OBCS_SPONGE_S |
lambda_obcs_s = ( |
|
./pkg/obcs/obcs_sponge.F |
738 |
OBCS_SPONGE_S |
if (lambda_obcs_s.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
739 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
741 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
745 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
774 |
OBCS_SPONGE_S |
lambda_obcs_s = ( |
|
./pkg/obcs/obcs_sponge.F |
779 |
OBCS_SPONGE_S |
if (lambda_obcs_s.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
780 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
782 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
786 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
818 |
OBCS_SPONGE_S |
lambda_obcs_s= ( |
|
./pkg/obcs/obcs_sponge.F |
823 |
OBCS_SPONGE_S |
if (lambda_obcs_s.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
824 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
826 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
830 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |