| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_uv_smag_3d.F |
56 |
MOM_UV_SMAG_3D |
_RL maskM1, maskP1 |
|
./pkg/mom_common/mom_uv_smag_3d.F |
60 |
MOM_UV_SMAG_3D |
maskM1 = 1. |
|
./pkg/mom_common/mom_uv_smag_3d.F |
62 |
MOM_UV_SMAG_3D |
IF ( k.LE.1 ) maskM1 = 0. |
|
./pkg/mom_common/mom_w_smag_3d.F |
58 |
MOM_W_SMAG_3D |
_RL maskM1 |
|
./pkg/mom_common/mom_w_smag_3d.F |
61 |
MOM_W_SMAG_3D |
maskM1 = 1. |
|
./pkg/mom_common/mom_w_smag_3d.F |
62 |
MOM_W_SMAG_3D |
IF ( k.LE.1 ) maskM1 = 0. |
|
./pkg/mom_common/mom_w_smag_3d.F |
93 |
MOM_W_SMAG_3D |
& -viscAh3d_00( i , j ,km1)*str33( i , j ,km1)*maskM1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
139 |
MOM_UV_BOUNDARY |
& *(uFld(i,j,km1,bi,bj)*maskM1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
153 |
MOM_UV_BOUNDARY |
& *(vFld(i,j,km1,bi,bj)*maskM1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
56 |
MOM_UV_BOUNDARY |
_RL maskM1, maskP1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
80 |
MOM_UV_BOUNDARY |
maskM1 = 1. |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
82 |
MOM_UV_BOUNDARY |
IF ( k.EQ.1 ) maskM1 = 0. |
|
./model/src/cg3d.F |
204 |
CG3D |
maskM1 = 1. _d 0 |
|
./model/src/cg3d.F |
206 |
CG3D |
IF ( k .EQ. 1 ) maskM1 = 0. _d 0 |
|
./model/src/cg3d.F |
219 |
CG3D |
& +aV3d( i, j, k, bi,bj)*cg3d_x( i, j,km1,bi,bj)*maskM1 |
|
./model/src/cg3d.F |
99 |
CG3D |
_RL maskM1, maskP1 |
|
./model/src/cg3d_ex0.F |
197 |
CG3D_EX0 |
maskM1 = 1. _d 0 |
|
./model/src/cg3d_ex0.F |
199 |
CG3D_EX0 |
IF ( k .EQ. 1 ) maskM1 = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
212 |
CG3D_EX0 |
& +aV3d( i, j, k, bi,bj)*cg3d_x( i, j,km1,bi,bj)*maskM1 |
|
./model/src/cg3d_ex0.F |
91 |
CG3D_EX0 |
_RL maskM1, maskP1 |