| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
105 |
OBCS_SPONGE_U |
lambda_obcs_u = ( |
|
./pkg/obcs/obcs_sponge.F |
110 |
OBCS_SPONGE_U |
if (lambda_obcs_u.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
111 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
113 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
117 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
139 |
OBCS_SPONGE_U |
lambda_obcs_u = ( |
|
./pkg/obcs/obcs_sponge.F |
144 |
OBCS_SPONGE_U |
if (lambda_obcs_u.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
145 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
147 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
151 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
173 |
OBCS_SPONGE_U |
lambda_obcs_u= ( |
|
./pkg/obcs/obcs_sponge.F |
178 |
OBCS_SPONGE_U |
if (lambda_obcs_u.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
179 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
181 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
185 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
48 |
OBCS_SPONGE_U |
_RL urelax, lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
71 |
OBCS_SPONGE_U |
lambda_obcs_u = ( |
|
./pkg/obcs/obcs_sponge.F |
76 |
OBCS_SPONGE_U |
IF (lambda_obcs_u.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
77 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
79 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
83 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |