| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_v_bottomdrag.F |
47 |
MOM_V_BOTTOMDRAG |
_RL viscFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
72 |
MOM_V_BOTTOMDRAG |
viscFac=0. |
|
./pkg/mom_common/mom_v_bottomdrag.F |
73 |
MOM_V_BOTTOMDRAG |
IF (no_slip_bottom) viscFac=1. |
|
./pkg/mom_common/mom_v_bottomdrag.F |
82 |
MOM_V_BOTTOMDRAG |
& 2.*KappaRV(i,j,kDownC)*rdrckp1*viscFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
50 |
MOM_U_BOTTOMDRAG |
_RL viscFac |
|
./pkg/mom_common/mom_u_bottomdrag.F |
66 |
MOM_U_BOTTOMDRAG |
viscFac=0. |
|
./pkg/mom_common/mom_u_bottomdrag.F |
67 |
MOM_U_BOTTOMDRAG |
IF (no_slip_bottom) viscFac=1. |
|
./pkg/mom_common/mom_u_bottomdrag.F |
75 |
MOM_U_BOTTOMDRAG |
& 2.*KappaRU(i,j,kDownC)*rdrckp1*viscFac |