source:
issm/oecreview/Archive/19101-20495/ISSM-20034-20035.diff
Last change on this file was 20498, checked in by , 9 years ago | |
---|---|
File size: 1.4 KB |
-
../trunk-jpl/src/c/cores/sealevelrise_core.cpp
15 15 Vector<IssmDouble> *Sg_eustatic = NULL; 16 16 bool save_results; 17 17 int configuration_type; 18 int numoutputs = 0; 19 char **requested_outputs = NULL; 18 20 19 21 if(VerboseSolution()) _printf0_(" computing sea level rise\n"); 20 22 21 23 /*Recover some parameters: */ 22 24 femmodel->parameters->FindParam(&configuration_type,ConfigurationTypeEnum); 23 25 femmodel->parameters->FindParam(&save_results,SaveResultsEnum); 26 femmodel->parameters->FindParam(&numoutputs,SealevelriseNumRequestedOutputsEnum); 27 if(numoutputs) femmodel->parameters->FindParam(&requested_outputs,&numoutputs,SealevelriseRequestedOutputsEnum); 24 28 25 29 /*set configuration: */ 26 30 femmodel->SetCurrentConfiguration(SealevelriseAnalysisEnum); … … 35 39 36 40 if(save_results){ 37 41 if(VerboseSolution()) _printf0_(" saving results\n"); 38 int outputs[1] = {SealevelriseSEnum}; 39 femmodel->RequestedOutputsx(&femmodel->results,&outputs[0],1); 42 femmodel->RequestedOutputsx(&femmodel->results,requested_outputs,numoutputs); 40 43 } 44 45 /*Free ressources:*/ 46 if(numoutputs){for(int i=0;i<numoutputs;i++){xDelete<char>(requested_outputs[i]);} xDelete<char*>(requested_outputs);} 41 47 delete Sg; 42 48 delete Sg_eustatic; 49 50 43 51 }
Note:
See TracBrowser
for help on using the repository browser.