| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_u_drag.F |
54 |
SHELFICE_U_DRAG |
INTEGER i,j,kUpC,kTop |
|
./pkg/shelfice/shelfice_u_drag.F |
62 |
SHELFICE_U_DRAG |
kUpC = k |
|
./pkg/shelfice/shelfice_u_drag.F |
65 |
SHELFICE_U_DRAG |
kUpC = k+1 |
|
./pkg/shelfice/shelfice_u_drag.F |
67 |
SHELFICE_U_DRAG |
rdrckp1=recip_drC(kUpC) |
|
./pkg/shelfice/shelfice_u_drag.F |
80 |
SHELFICE_U_DRAG |
& * kappaRU(i,j,kUpC)*rdrckp1*viscFac |
|
./pkg/shelfice/shelfice_v_drag.F |
54 |
SHELFICE_V_DRAG |
INTEGER i,j,kUpC,kTop |
|
./pkg/shelfice/shelfice_v_drag.F |
62 |
SHELFICE_V_DRAG |
kUpC = k |
|
./pkg/shelfice/shelfice_v_drag.F |
65 |
SHELFICE_V_DRAG |
kUpC = k+1 |
|
./pkg/shelfice/shelfice_v_drag.F |
67 |
SHELFICE_V_DRAG |
rdrckp1=recip_drC(kUpC) |
|
./pkg/shelfice/shelfice_v_drag.F |
80 |
SHELFICE_V_DRAG |
& * kappaRV(i,j,kUpC)*rdrckp1*viscFac |