| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_u_bottomdrag.F |
52 |
MOM_U_BOTTOMDRAG |
INTEGER i,j,kDown,kDownC,kBottom |
|
./pkg/mom_common/mom_u_bottomdrag.F |
61 |
MOM_U_BOTTOMDRAG |
kDownC = kDown |
|
./pkg/mom_common/mom_u_bottomdrag.F |
68 |
MOM_U_BOTTOMDRAG |
kDownC = k |
|
./pkg/mom_common/mom_u_bottomdrag.F |
72 |
MOM_U_BOTTOMDRAG |
rdrckp1=recip_drC(kDownC) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
83 |
MOM_U_BOTTOMDRAG |
& 2.*KappaRU(i,j,kDownC)*rdrckp1*viscFac |
|
./pkg/mom_common/mom_v_bottomdrag.F |
59 |
MOM_V_BOTTOMDRAG |
INTEGER i,j,kDown,kDownC,kBottom |
|
./pkg/mom_common/mom_v_bottomdrag.F |
68 |
MOM_V_BOTTOMDRAG |
kDownC = kDown |
|
./pkg/mom_common/mom_v_bottomdrag.F |
75 |
MOM_V_BOTTOMDRAG |
kDownC = k |
|
./pkg/mom_common/mom_v_bottomdrag.F |
79 |
MOM_V_BOTTOMDRAG |
rdrckp1=recip_drC(kDownC) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
90 |
MOM_V_BOTTOMDRAG |
& 2.*KappaRV(i,j,kDownC)*rdrckp1*viscFac |