Changeset 18776


Ignore:
Timestamp:
11/12/14 17:25:14 (10 years ago)
Author:
bdef
Message:

CHG:correction in frictionhydro aw computation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk-jpl/src/c/classes/Loads/Friction.cpp

    r18772 r18776  
    168168        /*This routine calculates the basal friction coefficient
    169169                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
    171172                -Chi=|vel|/(C^n*Neff^n*As)
    172173                -alpha=(q-1)^(q-1)/q^q  **/
     
    220221        Chi=vmag/(pow(C_param,n)*pow(Neff,n)*As);
    221222
    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);
    223224        _assert_(!xIsNan<IssmDouble>(alpha2));
    224225       
Note: See TracChangeset for help on using the changeset viewer.