/[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.2 by heimbach, Thu Sep 20 02:04:45 2012 UTC revision 1.3 by dgoldberg, Tue Sep 25 03:02:30 2012 UTC
# Line 133  CADJ &     = comlev1_stream_hybrid, key= Line 133  CADJ &     = comlev1_stream_hybrid, key=
133    
134              second_inv =              second_inv =
135       &       sqrt(exx**2+eyy**2+exx*eyy+exy**2+eps_glen_min**2+       &       sqrt(exx**2+eyy**2+exx*eyy+exy**2+eps_glen_min**2+
136       &            streamice_vert_shear_uz(m)**2 +       &            0.25 * streamice_vert_shear_uz(m)**2 +
137       &            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 * A_glen(i,j,bi,bj)**(-1./n_glen) *
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22