33 |
|
|
34 |
|
|
35 |
C LOCAL VARIABLES |
C LOCAL VARIABLES |
36 |
INTEGER i, j, bi, bj, k, l, umid, vmid |
INTEGER i, j, bi, bj, k, l |
37 |
_RL ux, uy, vx, vy, exx, eyy, exy, second_inv, unorm |
_RL ux, uy, vx, vy, exx, eyy, exy, second_inv, unorm |
38 |
|
_RL umid, vmid |
39 |
|
|
40 |
DO bj=myByLo(myThid),myByHi(myThid) |
DO bj=myByLo(myThid),myByHi(myThid) |
41 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
DO bi=myBxLo(myThid),myBxHi(myThid) |
99 |
unorm = sqrt(umid**2+vmid**2+eps_u_min**2) |
unorm = sqrt(umid**2+vmid**2+eps_u_min**2) |
100 |
tau_beta_eff_streamice(i,j,bi,bj) = |
tau_beta_eff_streamice(i,j,bi,bj) = |
101 |
& C_basal_friction(i,j,bi,bj)**2 * |
& C_basal_friction(i,j,bi,bj)**2 * |
102 |
& unorm ** (n_basal_friction-1) * |
& unorm ** (n_basal_friction-1.0) * |
103 |
& float_frac_streamice (i,j,bi,bj) |
& float_frac_streamice (i,j,bi,bj) |
104 |
|
|
105 |
ENDIF |
ENDIF |