Changeset 18776
- Timestamp:
- 11/12/14 17:25:14 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/classes/Loads/Friction.cpp
r18772 r18776 168 168 /*This routine calculates the basal friction coefficient 169 169 Based on Gagliardini 2007, needs a good effective pressure computation 170 alpha2= C*Neff*[|vel|/{(C^n*Neff^n*As)*(1+alpha*Chi^q)}]^(1/n) with 170 Not tested so far so use at your own risks 171 alpha2= [vel^(1-n)/{(As)*(1+alpha*Chi^q)}]^(1/n) with 171 172 -Chi=|vel|/(C^n*Neff^n*As) 172 173 -alpha=(q-1)^(q-1)/q^q **/ … … 220 221 Chi=vmag/(pow(C_param,n)*pow(Neff,n)*As); 221 222 222 alpha2= C_param*Neff*pow((Chi/(1+alpha*pow(Chi,q_exp))),1./n);223 alpha2=pow((pow(vmag,1.-n)/(As*(1+alpha*pow(Chi,q_exp)))),1./n); 223 224 _assert_(!xIsNan<IssmDouble>(alpha2)); 224 225
Note:
See TracChangeset
for help on using the changeset viewer.