Changeset 21282
- Timestamp:
- 10/17/16 19:36:04 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/classes/Elements/Tria.cpp
r21272 r21282 3698 3698 IssmDouble late,longe,re; 3699 3699 IssmDouble lati,longi,ri; 3700 IssmDouble rho_ice,rho_ water,rho_earth;3700 IssmDouble rho_ice,rho_earth; 3701 3701 IssmDouble minlong=400; 3702 3702 IssmDouble maxlong=-20; … … 3715 3715 bool store_green_functions=false; 3716 3716 3717 /*Compute ice thickness change: */ 3718 Input* deltathickness_input=inputs->GetInput(EsaDeltathicknessEnum); 3719 if (!deltathickness_input)_error_("delta thickness input needed to compute elastic adjustment!"); 3720 deltathickness_input->GetInputAverage(&I); 3721 3717 3722 /*early return if we are not on the (ice) loading point: */ 3718 //if(!(this->inputs->Max(MaskIceLevelsetEnum)<0)) return;3723 if(I==0) return; 3719 3724 3720 3725 /*recover material parameters: */ 3721 3726 rho_ice=matpar->GetMaterialParameter(MaterialsRhoIceEnum); 3722 rho_water=matpar->GetMaterialParameter(MaterialsRhoFreshwaterEnum);3723 3727 rho_earth=matpar->GetMaterialParameter(MaterialsEarthDensityEnum); 3724 3728 … … 3779 3783 H_parameter->GetParameterValueByPointer(&H_elastic_precomputed,&M); 3780 3784 3781 /*Compute ice thickness change: */3782 Input* deltathickness_input=inputs->GetInput(EsaDeltathicknessEnum);3783 if (!deltathickness_input)_error_("delta thickness input needed to compute elastic adjustment!");3784 deltathickness_input->GetInputAverage(&I);3785 3786 3785 /*initialize: */ 3787 3786 U_elastic=xNewZeroInit<IssmDouble>(gsize);
Note:
See TracChangeset
for help on using the changeset viewer.