| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_u_bottomdrag.F |
100 |
MOM_U_BOTTOMDRAG |
& KappaRU(i,j,kLowF)*recDrC*viscFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
55 |
MOM_U_BOTTOMDRAG |
_RL viscFac, dragFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
61 |
MOM_U_BOTTOMDRAG |
viscFac = 0. |
|
./pkg/mom_common/mom_u_bottomdrag.F |
62 |
MOM_U_BOTTOMDRAG |
IF (no_slip_bottom) viscFac = 2. |
|
./pkg/mom_common/mom_v_bottomdrag.F |
100 |
MOM_V_BOTTOMDRAG |
& KappaRV(i,j,kLowF)*recDrC*viscFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
55 |
MOM_V_BOTTOMDRAG |
_RL viscFac, dragFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
61 |
MOM_V_BOTTOMDRAG |
viscFac = 0. |
|
./pkg/mom_common/mom_v_bottomdrag.F |
62 |
MOM_V_BOTTOMDRAG |
IF (no_slip_bottom) viscFac = 2. |
|
./pkg/shelfice/shelfice_u_drag.F |
54 |
SHELFICE_U_DRAG |
_RL viscFac |
|
./pkg/shelfice/shelfice_u_drag.F |
70 |
SHELFICE_U_DRAG |
viscFac=0. |
|
./pkg/shelfice/shelfice_u_drag.F |
71 |
SHELFICE_U_DRAG |
IF (no_slip_shelfice) viscFac=1. |
|
./pkg/shelfice/shelfice_u_drag.F |
79 |
SHELFICE_U_DRAG |
& - 2.*KappaRU(i,j,kUpC)*rdrckp1*viscFac |
|
./pkg/shelfice/shelfice_v_drag.F |
54 |
SHELFICE_V_DRAG |
_RL viscFac |
|
./pkg/shelfice/shelfice_v_drag.F |
70 |
SHELFICE_V_DRAG |
viscFac=0. |
|
./pkg/shelfice/shelfice_v_drag.F |
71 |
SHELFICE_V_DRAG |
IF (no_slip_shelfice) viscFac=1. |
|
./pkg/shelfice/shelfice_v_drag.F |
79 |
SHELFICE_V_DRAG |
& - 2.*KappaRV(i,j,kUpC)*rdrckp1*viscFac |