Changeset 22850
- Timestamp:
- 06/18/18 13:52:57 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/classes/Loads/Friction.cpp
r22849 r22850 687 687 case 0:{ 688 688 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); 689 701 IssmDouble rho_ice = element->GetMaterialParameter(MaterialsRhoIceEnum); 690 702 IssmDouble gravity = element->GetMaterialParameter(ConstantsGEnum); … … 694 706 } 695 707 break; 696 case 1:{708 case 2:{ 697 709 element->GetInputValue(&thickness, gauss,ThicknessEnum); 698 710 element->GetInputValue(&base, gauss,BaseEnum); … … 706 718 } 707 719 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;720 720 case 3: 721 721 element->GetInputValue(&Neff,gauss,FrictionEffectivePressureEnum);
Note:
See TracChangeset
for help on using the changeset viewer.