| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
144 |
GAD_DST3FL_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
76 |
GAD_DST3FL_IMPL_R |
_RL mskM, mskP, maskM2, maskP1 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
86 |
GAD_DST3FL_IMPL_R |
maskP1 = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
89 |
GAD_DST3FL_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
73 |
GAD_U3C4_IMPL_R |
_RL mskM, mskP, maskM2, maskP1 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
82 |
GAD_U3C4_IMPL_R |
maskP1 = 1. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
85 |
GAD_U3C4_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
95 |
GAD_U3C4_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
140 |
MOM_UV_BOUNDARY |
& +uFld(i,j,kp1,bi,bj)*maskP1) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
154 |
MOM_UV_BOUNDARY |
& +vFld(i,j,kp1,bi,bj)*maskP1) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
56 |
MOM_UV_BOUNDARY |
_RL maskM1, maskP1 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
81 |
MOM_UV_BOUNDARY |
maskP1 = 1. |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
83 |
MOM_UV_BOUNDARY |
IF ( k.EQ.Nr ) maskP1 = 0. |
|
./model/src/cg3d.F |
100 |
CG3D |
_RL maskM1, maskP1 |
|
./model/src/cg3d.F |
205 |
CG3D |
maskP1 = 1. _d 0 |
|
./model/src/cg3d.F |
207 |
CG3D |
IF ( k .EQ. Nr) maskP1 = 0. _d 0 |
|
./model/src/cg3d.F |
220 |
CG3D |
& +aV3d( i, j,kp1,bi,bj)*cg3d_x( i, j,kp1,bi,bj)*maskP1 |