| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_u_bottomdrag.F |
54 |
MOM_U_BOTTOMDRAG |
_RL rdrckp1, maskDown |
|
./pkg/mom_common/mom_u_bottomdrag.F |
78 |
MOM_U_BOTTOMDRAG |
maskDown=_maskW(i,j,kDown,bi,bj) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
79 |
MOM_U_BOTTOMDRAG |
IF (k.EQ.kBottom) maskDown=0. |
|
./pkg/mom_common/mom_u_bottomdrag.F |
89 |
MOM_U_BOTTOMDRAG |
& )*(1.-maskDown)*uFld(i,j) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
94 |
MOM_U_BOTTOMDRAG |
& *(1.-maskDown)*uFld(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
101 |
MOM_V_BOTTOMDRAG |
& *(1.-maskDown)*vFld(i,j) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
61 |
MOM_V_BOTTOMDRAG |
_RL rdrckp1, maskDown |
|
./pkg/mom_common/mom_v_bottomdrag.F |
85 |
MOM_V_BOTTOMDRAG |
maskDown=_maskS(i,j,kdown,bi,bj) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
86 |
MOM_V_BOTTOMDRAG |
IF (k.EQ.kBottom) maskDown=0. |
|
./pkg/mom_common/mom_v_bottomdrag.F |
96 |
MOM_V_BOTTOMDRAG |
& )*(1.-maskDown)*vFld(i,j) |