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

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

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

revision 1.7 by dgoldberg, Sat Jun 8 22:15:34 2013 UTC revision 1.8 by dgoldberg, Wed Aug 27 19:29:14 2014 UTC
# Line 93  C     LOCAL VARIABLES Line 93  C     LOCAL VARIABLES
93    
94    
95             visc_streamice(i,j,bi,bj) =             visc_streamice(i,j,bi,bj) =
96    #ifdef STREAMICE_3D_GLEN_CONST
97         &      .5 * (B_glen(i,j,1,bi,bj))**2 *
98    #else
99       &      .5 * (B_glen(i,j,bi,bj))**2 *       &      .5 * (B_glen(i,j,bi,bj))**2 *
100    #endif
101       &      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)
102    
103             unorm = sqrt(umid**2+vmid**2+eps_u_min**2)             unorm = sqrt(umid**2+vmid**2+eps_u_min**2)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22