source:
issm/oecreview/Archive/21337-21723/ISSM-21548-21549.diff@
21726
Last change on this file since 21726 was 21726, checked in by , 8 years ago | |
---|---|
File size: 1.8 KB |
-
../trunk-jpl/src/c/cores/transient_core.cpp
85 85 86 86 if(isthermal && domaintype==Domain3DEnum){ 87 87 if(issmb){ 88 bool isenthalpy; 89 femmodel->parameters->FindParam(&isenthalpy,ThermalIsenthalpyEnum); 88 90 femmodel->parameters->FindParam(&smb_model,SmbEnum); 89 if(smb_model==SMBpddEnum) ResetBoundaryConditions(femmodel,ThermalAnalysisEnum); 90 if(smb_model==SMBd18opddEnum) ResetBoundaryConditions(femmodel,ThermalAnalysisEnum); 91 if(isenthalpy){ 92 if(smb_model==SMBpddEnum) ResetBoundaryConditions(femmodel,EnthalpyAnalysisEnum); 93 if(smb_model==SMBd18opddEnum) ResetBoundaryConditions(femmodel,EnthalpyAnalysisEnum); 94 } 95 else{ 96 if(smb_model==SMBpddEnum) ResetBoundaryConditions(femmodel,ThermalAnalysisEnum); 97 if(smb_model==SMBd18opddEnum) ResetBoundaryConditions(femmodel,ThermalAnalysisEnum); 98 } 91 99 } 92 100 if(VerboseSolution()) _printf0_(" computing thermal regime\n"); 93 101 thermal_core(femmodel); -
../trunk-jpl/src/c/analyses/EnthalpyAnalysis.cpp
35 35 /*Convert spcs from temperatures to enthalpy*/ 36 36 _assert_(N>0); _assert_(M>=iomodel->numberofvertices); 37 37 for(int i=0;i<iomodel->numberofvertices;i++){ 38 for(int j=0; i<N;j++){39 spcvector[i*N+j] = heatcapacity*(spcvector[i ]-referencetemperature);38 for(int j=0;j<N;j++){ 39 spcvector[i*N+j] = heatcapacity*(spcvector[i*N+j]-referencetemperature); 40 40 } 41 41 } 42 42
Note:
See TracBrowser
for help on using the repository browser.