Changeset 22850


Ignore:
Timestamp:
06/18/18 13:52:57 (7 years ago)
Author:
Mathieu Morlighem
Message:

BUG: fixed ordering

File:
1 edited

Legend:

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

    r22849 r22850  
    687687                case 0:{
    688688                                         element->GetInputValue(&thickness, gauss,ThicknessEnum);
     689                                         element->GetInputValue(&base, gauss,BaseEnum);
     690                                         element->GetInputValue(&sealevel, gauss,SealevelEnum);
     691                                         IssmDouble rho_water = element->GetMaterialParameter(MaterialsRhoSeawaterEnum);
     692                                         IssmDouble rho_ice   = element->GetMaterialParameter(MaterialsRhoIceEnum);
     693                                         IssmDouble gravity   = element->GetMaterialParameter(ConstantsGEnum);
     694                                         p_ice   = gravity*rho_ice*thickness;
     695                                         p_water = rho_water*gravity*(sealevel-base);
     696                                         Neff = p_ice - p_water;
     697                                 }
     698                          break;
     699                case 1:{
     700                                         element->GetInputValue(&thickness, gauss,ThicknessEnum);
    689701                                         IssmDouble rho_ice   = element->GetMaterialParameter(MaterialsRhoIceEnum);
    690702                                         IssmDouble gravity   = element->GetMaterialParameter(ConstantsGEnum);
     
    694706                                 }
    695707                          break;
    696                 case 1:{
     708                case 2:{
    697709                                         element->GetInputValue(&thickness, gauss,ThicknessEnum);
    698710                                         element->GetInputValue(&base, gauss,BaseEnum);
     
    706718                                 }
    707719                          break;
    708                 case 2:{
    709                                          element->GetInputValue(&thickness, gauss,ThicknessEnum);
    710                                          element->GetInputValue(&base, gauss,BaseEnum);
    711                                          element->GetInputValue(&sealevel, gauss,SealevelEnum);
    712                                          IssmDouble rho_water = element->GetMaterialParameter(MaterialsRhoSeawaterEnum);
    713                                          IssmDouble rho_ice   = element->GetMaterialParameter(MaterialsRhoIceEnum);
    714                                          IssmDouble gravity   = element->GetMaterialParameter(ConstantsGEnum);
    715                                          p_ice   = gravity*rho_ice*thickness;
    716                                          p_water = rho_water*gravity*(sealevel-base);
    717                                          Neff = p_ice - p_water;
    718                                  }
    719                           break;
    720720                case 3:
    721721                        element->GetInputValue(&Neff,gauss,FrictionEffectivePressureEnum);
Note: See TracChangeset for help on using the changeset viewer.