| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
107 |
OBCS_SPONGE_U |
lambda_obcs_u = ( |
|
./pkg/obcs/obcs_sponge.F |
112 |
OBCS_SPONGE_U |
if (lambda_obcs_u.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
113 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
115 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
119 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
141 |
OBCS_SPONGE_U |
lambda_obcs_u = ( |
|
./pkg/obcs/obcs_sponge.F |
146 |
OBCS_SPONGE_U |
if (lambda_obcs_u.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
147 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
149 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
153 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
175 |
OBCS_SPONGE_U |
lambda_obcs_u= ( |
|
./pkg/obcs/obcs_sponge.F |
180 |
OBCS_SPONGE_U |
if (lambda_obcs_u.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
181 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
183 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
187 |
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 |
73 |
OBCS_SPONGE_U |
lambda_obcs_u = ( |
|
./pkg/obcs/obcs_sponge.F |
78 |
OBCS_SPONGE_U |
IF (lambda_obcs_u.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
79 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
81 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
85 |
OBCS_SPONGE_U |
& - _maskW(i,j,k,bi,bj) * lambda_obcs_u |