| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_sponge.F |
102 |
OBCS_SPONGE_U |
lambda_obcs_u = ( |
|
./pkg/obcs/obcs_sponge.F |
107 |
OBCS_SPONGE_U |
if (lambda_obcs_u.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
108 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
110 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
114 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
136 |
OBCS_SPONGE_U |
lambda_obcs_u = ( |
|
./pkg/obcs/obcs_sponge.F |
141 |
OBCS_SPONGE_U |
if (lambda_obcs_u.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
142 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
144 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
148 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
170 |
OBCS_SPONGE_U |
lambda_obcs_u= ( |
|
./pkg/obcs/obcs_sponge.F |
175 |
OBCS_SPONGE_U |
if (lambda_obcs_u.ne.0.) then |
|
./pkg/obcs/obcs_sponge.F |
176 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
178 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
182 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
51 |
OBCS_SPONGE_U |
_RL urelax, lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
68 |
OBCS_SPONGE_U |
lambda_obcs_u = ( |
|
./pkg/obcs/obcs_sponge.F |
73 |
OBCS_SPONGE_U |
IF (lambda_obcs_u.ne.0.) THEN |
|
./pkg/obcs/obcs_sponge.F |
74 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
76 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
80 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |