95 |
& .5 * A_glen(i,j,bi,bj)**(-1/n_glen) * |
& .5 * A_glen(i,j,bi,bj)**(-1/n_glen) * |
96 |
& second_inv**((1-n_glen)/n_glen) * H_streamice(i,j,bi,bj) |
& second_inv**((1-n_glen)/n_glen) * H_streamice(i,j,bi,bj) |
97 |
|
|
98 |
unorm = sqrt(umid**2+vmid**2+eps_glen_min**2) |
unorm = sqrt(umid**2+vmid**2+eps_u_min**2) |
99 |
tau_beta_eff_streamice(i,j,bi,bj) = |
tau_beta_eff_streamice(i,j,bi,bj) = |
100 |
& C_basal_friction(i,j,bi,bj)**2 * |
& C_basal_friction(i,j,bi,bj)**2 * |
101 |
& unorm ** (n_basal_friction-1) * |
& unorm ** (n_basal_friction-1) * |