| 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 |
54 |
MOM_U_BOTTOMDRAG |
INTEGER i,j,kDown,kLowF,kBottom |
|
./pkg/mom_common/mom_u_bottomdrag.F |
66 |
MOM_U_BOTTOMDRAG |
kLowF = kDown |
|
./pkg/mom_common/mom_u_bottomdrag.F |
73 |
MOM_U_BOTTOMDRAG |
kLowF = k |
|
./pkg/mom_common/mom_u_bottomdrag.F |
85 |
MOM_U_BOTTOMDRAG |
recDrC = recip_drC(kLowF) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
100 |
MOM_V_BOTTOMDRAG |
& KappaRV(i,j,kLowF)*recDrC*viscFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
54 |
MOM_V_BOTTOMDRAG |
INTEGER i,j,kDown,kLowF,kBottom |
|
./pkg/mom_common/mom_v_bottomdrag.F |
66 |
MOM_V_BOTTOMDRAG |
kLowF = kDown |
|
./pkg/mom_common/mom_v_bottomdrag.F |
73 |
MOM_V_BOTTOMDRAG |
kLowF = k |
|
./pkg/mom_common/mom_v_bottomdrag.F |
85 |
MOM_V_BOTTOMDRAG |
recDrC = recip_drC(kLowF) |