Changeset 17609 for issm/trunk-jpl/src/c/analyses/ThermalAnalysis.cpp
- Timestamp:
- 03/31/14 16:33:33 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/analyses/ThermalAnalysis.cpp
r17585 r17609 673 673 element->GetInputValue(&converged,ConvergedEnum); 674 674 if(converged){ 675 element->AddInput(TemperatureEnum,values, P1Enum);675 element->AddInput(TemperatureEnum,values,element->GetElementType()); 676 676 677 677 /*Update Rheology only if converged (we must make sure that the temperature is below melting point … … 685 685 case CuffeyEnum: 686 686 for(i=0;i<numnodes;i++) B[i]=Cuffey(values[i]); 687 element->AddInput(MaterialsRheologyBEnum,&B[0], P1Enum);687 element->AddInput(MaterialsRheologyBEnum,&B[0],element->GetElementType()); 688 688 break; 689 689 case PatersonEnum: 690 690 for(i=0;i<numnodes;i++) B[i]=Paterson(values[i]); 691 element->AddInput(MaterialsRheologyBEnum,&B[0], P1Enum);691 element->AddInput(MaterialsRheologyBEnum,&B[0],element->GetElementType()); 692 692 break; 693 693 case ArrheniusEnum:{ 694 694 element->GetVerticesCoordinates(&xyz_list); 695 695 for(i=0;i<numnodes;i++) B[i]=Arrhenius(values[i],surface[i]-xyz_list[i*3+2],element->GetMaterialParameter(MaterialsRheologyNEnum)); 696 element->AddInput(MaterialsRheologyBEnum,&B[0], P1Enum);696 element->AddInput(MaterialsRheologyBEnum,&B[0],element->GetElementType()); 697 697 break; 698 698 } … … 702 702 } 703 703 else{ 704 element->AddInput(TemperaturePicardEnum,values, P1Enum);704 element->AddInput(TemperaturePicardEnum,values,element->GetElementType()); 705 705 } 706 706
Note:
See TracChangeset
for help on using the changeset viewer.