/[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.5 by dgoldberg, Mon Dec 10 02:34:45 2012 UTC revision 1.6 by dgoldberg, Thu Mar 7 15:23:19 2013 UTC
# Line 137  CADJ &     = comlev1_stream_hybrid, key= Line 137  CADJ &     = comlev1_stream_hybrid, key=
137       &            0.25 * streamice_vert_shear_vz(m)**2)       &            0.25 * streamice_vert_shear_vz(m)**2)
138    
139              visc_streamice_full(i,j,m,bi,bj) =              visc_streamice_full(i,j,m,bi,bj) =
140       &       .5 * A_glen(i,j,bi,bj)**(-1./n_glen) *       &       .5 * B_glen(i,j,bi,bj)**2 *
141       &        second_inv**((1-n_glen)/n_glen)       &        second_inv**((1-n_glen)/n_glen)
142    
143              visc_streamice (i,j,bi,bj) = visc_streamice (i,j,bi,bj) +              visc_streamice (i,j,bi,bj) = visc_streamice (i,j,bi,bj) +
# Line 191  CADJ &     = comlev1_stream_hybrid, key= Line 191  CADJ &     = comlev1_stream_hybrid, key=
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) *
194       &      streamice_basal_geom(i,j,bi,bj)       &      streamice_basal_geom(i,j,bi,bj) *
195         &      float_frac_streamice(i,j,bi,bj)
196    
197             tau_beta_eff_streamice(i,j,bi,bj) =             tau_beta_eff_streamice(i,j,bi,bj) =
198       &       fb /       &       fb /
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22