source: issm/oecreview/Archive/16133-16554/ISSM-16356-16357.diff@ 16556

Last change on this file since 16556 was 16556, checked in by Mathieu Morlighem, 11 years ago

NEW: added Archive/16133-16554
File size: 890 bytes
RevLine 
[16556]1Index: ../trunk-jpl/src/c/classes/Elements/Penta.cpp
2===================================================================
3--- ../trunk-jpl/src/c/classes/Elements/Penta.cpp (revision 16356)
4+++ ../trunk-jpl/src/c/classes/Elements/Penta.cpp (revision 16357)
5@@ -4874,8 +4874,10 @@
6 /*Force temperature between [Tpmp-50 Tpmp] to disable penalties*/
7 IssmDouble pressure[numdof];
8 GetInputListOnVertices(&pressure[0],PressureEnum);
9- if(values[i]>matpar->TMeltingPoint(pressure[i])) values[i]=matpar->TMeltingPoint(pressure[i]);
10- if(values[i]<matpar->TMeltingPoint(pressure[i])-50.) values[i]=matpar->TMeltingPoint(pressure[i])-50.;
11+ for(i=0;i<numdof;i++){
12+ if(values[i]>matpar->TMeltingPoint(pressure[i])) values[i]=matpar->TMeltingPoint(pressure[i]);
13+ if(values[i]<matpar->TMeltingPoint(pressure[i])-50.) values[i]=matpar->TMeltingPoint(pressure[i])-50.;
14+ }
15 }
16
17
Note: See TracBrowser for help on using the repository browser.