| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
111 |
OBCS_SPONGE_U |
lambda_obcs_u = ( |
|
./pkg/obcs/obcs_sponge.F |
115 |
OBCS_SPONGE_U |
IF (lambda_obcs_u.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
116 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
118 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
121 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
146 |
OBCS_SPONGE_U |
lambda_obcs_u = ( |
|
./pkg/obcs/obcs_sponge.F |
150 |
OBCS_SPONGE_U |
IF (lambda_obcs_u.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
151 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
153 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
156 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
181 |
OBCS_SPONGE_U |
lambda_obcs_u= ( |
|
./pkg/obcs/obcs_sponge.F |
185 |
OBCS_SPONGE_U |
IF (lambda_obcs_u.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
186 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
188 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
191 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
56 |
OBCS_SPONGE_U |
_RL urelax, lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
76 |
OBCS_SPONGE_U |
lambda_obcs_u = ( |
|
./pkg/obcs/obcs_sponge.F |
80 |
OBCS_SPONGE_U |
IF (lambda_obcs_u.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
81 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
83 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
86 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |