/[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.1 by heimbach, Thu Mar 29 15:59:21 2012 UTC revision 1.2 by dgoldberg, Thu Jul 19 18:46:05 2012 UTC
# Line 92  C     LOCAL VARIABLES Line 92  C     LOCAL VARIABLES
92    
93    
94             visc_streamice(i,j,bi,bj) =             visc_streamice(i,j,bi,bj) =
95       &      .5 * A_glen_isothermal**(-1/n_glen) *       &      .5 * A_glen_isothermal**(-1./n_glen) *
96       &      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)
97    
98             unorm = sqrt(umid**2+vmid**2+eps_glen_min**2)             unorm = sqrt(umid**2+vmid**2+eps_glen_min**2)
99             tau_beta_eff_streamice(i,j,bi,bj) =             tau_beta_eff_streamice(i,j,bi,bj) =
100       &       C_basal_friction(i,j,bi,bj)**2 *       &       C_basal_friction(i,j,bi,bj)**2 *
101       &       unorm ** (n_basal_friction-1) *       &       unorm ** (n_basal_friction-1) *
102       &       float_frac_streamice (i,j,bi,bj)       &       float_frac_streamice (i,j,bi,bj)
103                        
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22