Changeset 22048

Timestamp:

09/06/17 04:48:55 (8 years ago)

Author:

sjohnsen

Message:

NEW: added CoupledFlag(Neff) for frictionlaw 7, coulomb

File:

• issm/trunk-jpl/src/c/analyses/EnthalpyAnalysis.cpp (modified) (2 diffs)

issm/trunk-jpl/src/c/analyses/EnthalpyAnalysis.cpp

@@ -214 +214 @@
                         iomodel->FetchDataToInput(elements,"md.initialization.temperature",TemperatureEnum);
                         break;
+                case 7:
+                        iomodel->FindConstant(&FrictionCoupling,"md.friction.coupling");
+                        iomodel->FetchDataToInput(elements,"md.friction.coefficient",FrictionCoefficientEnum);
+                        iomodel->FetchDataToInput(elements,"md.friction.coefficientcoulomb",FrictionCoefficientcoulombEnum);
+                        iomodel->FetchDataToInput(elements,"md.friction.p",FrictionPEnum);
+                        iomodel->FetchDataToInput(elements,"md.friction.q",FrictionQEnum);
+                        if (FrictionCoupling==1){
+                                iomodel->FetchDataToInput(elements,"md.friction.effective_pressure",FrictionEffectivePressureEnum);
+                        }
+                        break;
                 case 9:
                         iomodel->FetchDataToInput(elements,"md.friction.coefficient",FrictionCoefficientEnum);
@@ -251 +261 @@
                 parameters->AddObject(iomodel->CopyConstantObject("md.friction.gamma",FrictionGammaEnum));
         }
-        if(frictionlaw==3 || frictionlaw==1){
+        if(frictionlaw==3 || frictionlaw==1 || frictionlaw==7){
                 parameters->AddObject(iomodel->CopyConstantObject("md.friction.coupling",FrictionCouplingEnum));
         }