/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/streamice_visc_beta_hybrid.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/streamice/streamice_visc_beta_hybrid.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by dgoldberg, Thu Sep 27 20:29:01 2012 UTC revision 1.5 by dgoldberg, Mon Dec 10 02:34:45 2012 UTC
# Line 187  CADJ &     = comlev1_stream_hybrid, key= Line 187  CADJ &     = comlev1_stream_hybrid, key=
187             vb = vmid - streamice_tauby(i,j,bi,bj) *             vb = vmid - streamice_tauby(i,j,bi,bj) *
188       &      streamice_omega(i,j,bi,bj) / H_streamice(i,j,bi,bj)       &      streamice_omega(i,j,bi,bj) / H_streamice(i,j,bi,bj)
189    
190             unorm = sqrt(ub**2+vb**2+eps_glen_min**2)             unorm = sqrt(ub**2+vb**2+eps_u_min**2)
191    
192             fb = C_basal_friction(i,j,bi,bj)**2 *             fb = C_basal_friction(i,j,bi,bj)**2 *
193       &      STREAMICE_BSTRESS_EXPONENT (unorm,n_basal_friction) *       &      STREAMICE_BSTRESS_EXPONENT (unorm,n_basal_friction) *
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22