source: issm/trunk-jpl/src/c/analyses/SmbAnalysis.cpp@ 23317

Last change on this file since 23317 was 23317, checked in by rueckamp, 7 years ago

NEW: SICOPOLIS PDD scheme
File size: 16.9 KB
Line 
1#include "./SmbAnalysis.h"
2#include "../toolkits/toolkits.h"
3#include "../classes/classes.h"
4#include "../shared/shared.h"
5#include "../modules/modules.h"
6
7// FIX
8#include "./shared/io/Print/Print.h"
9
10/*Model processing*/
11void SmbAnalysis::CreateConstraints(Constraints* constraints,IoModel* iomodel){/*{{{*/
12 /*No constraints*/
13}/*}}}*/
14void SmbAnalysis::CreateLoads(Loads* loads, IoModel* iomodel){/*{{{*/
15 /*No loads*/
16}/*}}}*/
17void SmbAnalysis::CreateNodes(Nodes* nodes,IoModel* iomodel){/*{{{*/
18 ::CreateNodes(nodes,iomodel,SmbAnalysisEnum,P1Enum);
19}/*}}}*/
20int SmbAnalysis::DofsPerNode(int** doflist,int domaintype,int approximation){/*{{{*/
21 return 1;
22}/*}}}*/
23void SmbAnalysis::UpdateElements(Elements* elements,IoModel* iomodel,int analysis_counter,int analysis_type){/*{{{*/
24
25 int smb_model;
26 bool isdelta18o,ismungsm,isd18opd,issetpddfac,isprecipscaled,istemperaturescaled,isfirnwarming;
27
28 /*Update elements: */
29 int counter=0;
30 for(int i=0;i<iomodel->numberofelements;i++){
31 if(iomodel->my_elements[i]){
32 Element* element=(Element*)elements->GetObjectByOffset(counter);
33 element->Update(i,iomodel,analysis_counter,analysis_type,P1Enum);
34 counter++;
35 }
36 }
37
38 /*Figure out smb model: */
39 iomodel->FindConstant(&smb_model,"md.smb.model");
40
41 switch(smb_model){
42 case SMBforcingEnum:
43 iomodel->FetchDataToInput(elements,"md.smb.mass_balance",SmbMassBalanceEnum,0.);
44 break;
45 case SMBgembEnum:
46 iomodel->FetchDataToInput(elements,"md.smb.Ta",SmbTaEnum);
47 iomodel->FetchDataToInput(elements,"md.smb.V",SmbVEnum);
48 iomodel->FetchDataToInput(elements,"md.smb.dswrf",SmbDswrfEnum);
49 iomodel->FetchDataToInput(elements,"md.smb.dlwrf",SmbDlwrfEnum);
50 iomodel->FetchDataToInput(elements,"md.smb.P",SmbPEnum);
51 iomodel->FetchDataToInput(elements,"md.smb.eAir",SmbEAirEnum);
52 iomodel->FetchDataToInput(elements,"md.smb.pAir",SmbPAirEnum);
53 iomodel->FetchDataToInput(elements,"md.smb.zTop",SmbZTopEnum);
54 iomodel->FetchDataToInput(elements,"md.smb.dzTop",SmbDzTopEnum);
55 iomodel->FetchDataToInput(elements,"md.smb.dzMin",SmbDzMinEnum);
56 iomodel->FetchDataToInput(elements,"md.smb.zY",SmbZYEnum);
57 iomodel->FetchDataToInput(elements,"md.smb.zMax",SmbZMaxEnum);
58 iomodel->FetchDataToInput(elements,"md.smb.zMin",SmbZMinEnum);
59 iomodel->FetchDataToInput(elements,"md.smb.Tmean",SmbTmeanEnum);
60 iomodel->FetchDataToInput(elements,"md.smb.C",SmbCEnum);
61 iomodel->FetchDataToInput(elements,"md.smb.Tz",SmbTzEnum);
62 iomodel->FetchDataToInput(elements,"md.smb.Vz",SmbVzEnum);
63 InputUpdateFromConstantx(elements,0.,SmbIsInitializedEnum);
64 iomodel->FetchDataToInput(elements,"md.smb.Dzini",SmbDziniEnum);
65 iomodel->FetchDataToInput(elements,"md.smb.Dini",SmbDiniEnum);
66 iomodel->FetchDataToInput(elements,"md.smb.Reini",SmbReiniEnum);
67 iomodel->FetchDataToInput(elements,"md.smb.Gdnini",SmbGdniniEnum);
68 iomodel->FetchDataToInput(elements,"md.smb.Gspini",SmbGspiniEnum);
69 iomodel->FetchDataToInput(elements,"md.smb.ECini",SmbECiniEnum);
70 iomodel->FetchDataToInput(elements,"md.smb.Wini",SmbWiniEnum);
71 iomodel->FetchDataToInput(elements,"md.smb.Aini",SmbAiniEnum);
72 iomodel->FetchDataToInput(elements,"md.smb.Tini",SmbTiniEnum);
73 iomodel->FetchDataToInput(elements,"md.smb.Sizeini",SmbSizeiniEnum);
74 iomodel->FetchDataToInput(elements,"md.smb.aValue",SmbAValueEnum);
75 iomodel->FetchDataToInput(elements,"md.smb.teValue",SmbTeValueEnum);
76 break;
77 case SMBpddEnum:
78 iomodel->FindConstant(&isdelta18o,"md.smb.isdelta18o");
79 iomodel->FindConstant(&ismungsm,"md.smb.ismungsm");
80 iomodel->FetchDataToInput(elements,"md.thermal.spctemperature",ThermalSpctemperatureEnum);
81 iomodel->FetchDataToInput(elements,"md.smb.s0p",SmbS0pEnum);
82 iomodel->FetchDataToInput(elements,"md.smb.s0t",SmbS0tEnum);
83 if(isdelta18o || ismungsm){
84 iomodel->FetchDataToInput(elements,"md.smb.temperatures_lgm",SmbTemperaturesLgmEnum);
85 iomodel->FetchDataToInput(elements,"md.smb.temperatures_presentday",SmbTemperaturesPresentdayEnum);
86 iomodel->FetchDataToInput(elements,"md.smb.precipitations_presentday",SmbPrecipitationsPresentdayEnum);
87 iomodel->FetchDataToInput(elements,"md.smb.precipitations_lgm",SmbPrecipitationsLgmEnum);
88 }else{
89 iomodel->FetchDataToInput(elements,"md.smb.precipitation",SmbPrecipitationEnum);
90 iomodel->FetchDataToInput(elements,"md.smb.monthlytemperatures",SmbMonthlytemperaturesEnum);
91 }
92 break;
93 case SMBpddSicopolisEnum:
94 iomodel->FetchDataToInput(elements,"md.smb.s0p",SmbS0pEnum);
95 iomodel->FetchDataToInput(elements,"md.smb.s0t",SmbS0tEnum);
96 iomodel->FindConstant(&isfirnwarming,"md.smb.isfirnwarming");
97 iomodel->FetchDataToInput(elements,"md.smb.smb_corr",SmbSmbCorrEnum);
98 iomodel->FetchDataToInput(elements,"md.smb.precipitation",SmbPrecipitationEnum);
99 iomodel->FetchDataToInput(elements,"md.smb.monthlytemperatures",SmbMonthlytemperaturesEnum);
100 iomodel->FetchDataToInput(elements,"md.smb.precipitation_anomaly",SmbPrecipitationsAnomalyEnum);
101 iomodel->FetchDataToInput(elements,"md.smb.temperature_anomaly",SmbTemperaturesAnomalyEnum);
102 break;
103 case SMBd18opddEnum:
104 iomodel->FindConstant(&istemperaturescaled,"md.smb.istemperaturescaled");
105 iomodel->FindConstant(&isprecipscaled,"md.smb.isprecipscaled");
106 iomodel->FindConstant(&ismungsm,"md.smb.ismungsm");
107 iomodel->FindConstant(&isd18opd,"md.smb.isd18opd");
108 iomodel->FindConstant(&issetpddfac,"md.smb.issetpddfac");
109 iomodel->FetchDataToInput(elements,"md.thermal.spctemperature",ThermalSpctemperatureEnum);
110 iomodel->FetchDataToInput(elements,"md.smb.s0p",SmbS0pEnum);
111 iomodel->FetchDataToInput(elements,"md.smb.s0t",SmbS0tEnum);
112 if(isd18opd){
113 iomodel->FetchDataToInput(elements,"md.smb.temperatures_presentday",SmbTemperaturesPresentdayEnum);
114 iomodel->FetchDataToInput(elements,"md.smb.precipitations_presentday",SmbPrecipitationsPresentdayEnum);
115 if(!istemperaturescaled){
116 iomodel->FetchDataToInput(elements,"md.smb.temperatures_reconstructed",SmbTemperaturesReconstructedEnum);
117 }
118 if(!isprecipscaled){
119 iomodel->FetchDataToInput(elements,"md.smb.precipitations_reconstructed",SmbPrecipitationsReconstructedEnum);
120 }
121 }
122 if(issetpddfac){
123 iomodel->FetchDataToInput(elements,"md.smb.pddfac_snow",SmbPddfacSnowEnum,-1.);
124 iomodel->FetchDataToInput(elements,"md.smb.pddfac_ice",SmbPddfacIceEnum,-1.);
125 }
126 break;
127 case SMBgradientsEnum:
128 iomodel->FetchDataToInput(elements,"md.smb.href",SmbHrefEnum);
129 iomodel->FetchDataToInput(elements,"md.smb.smbref",SmbSmbrefEnum);
130 iomodel->FetchDataToInput(elements,"md.smb.b_pos",SmbBPosEnum);
131 iomodel->FetchDataToInput(elements,"md.smb.b_neg",SmbBNegEnum);
132 break;
133 case SMBgradientselaEnum:
134 iomodel->FetchDataToInput(elements,"md.smb.ela",SmbElaEnum);
135 iomodel->FetchDataToInput(elements,"md.smb.b_pos",SmbBPosEnum);
136 iomodel->FetchDataToInput(elements,"md.smb.b_neg",SmbBNegEnum);
137 iomodel->FetchDataToInput(elements,"md.smb.b_max",SmbBMaxEnum);
138 iomodel->FetchDataToInput(elements,"md.smb.b_min",SmbBMinEnum);
139 break;
140 case SMBhenningEnum:
141 iomodel->FetchDataToInput(elements,"md.smb.smbref",SmbSmbrefEnum,0.);
142 break;
143 case SMBcomponentsEnum:
144 iomodel->FetchDataToInput(elements,"md.smb.accumulation",SmbAccumulationEnum,0.);
145 iomodel->FetchDataToInput(elements,"md.smb.evaporation",SmbEvaporationEnum,0.);
146 iomodel->FetchDataToInput(elements,"md.smb.runoff",SmbRunoffEnum,0.);
147 break;
148 case SMBmeltcomponentsEnum:
149 iomodel->FetchDataToInput(elements,"md.smb.accumulation",SmbAccumulationEnum,0.);
150 iomodel->FetchDataToInput(elements,"md.smb.evaporation",SmbEvaporationEnum,0.);
151 iomodel->FetchDataToInput(elements,"md.smb.melt",SmbMeltEnum,0.);
152 iomodel->FetchDataToInput(elements,"md.smb.refreeze",SmbRefreezeEnum,0.);
153 break;
154 default:
155 _error_("Surface mass balance model "<<EnumToStringx(smb_model)<<" not supported yet");
156 }
157
158}/*}}}*/
159void SmbAnalysis::UpdateParameters(Parameters* parameters,IoModel* iomodel,int solution_enum,int analysis_enum){/*{{{*/
160
161 int numoutputs;
162 char** requestedoutputs = NULL;
163 bool isdelta18o,ismungsm,isd18opd,issetpddfac,interp,isfirnwarming;
164 int smb_model;
165 IssmDouble *temp = NULL;
166 int N,M;
167
168 parameters->AddObject(iomodel->CopyConstantObject("md.smb.model",SmbEnum));
169
170 iomodel->FindConstant(&smb_model,"md.smb.model");
171 iomodel->FindConstant(&interp,"md.timestepping.interp_forcings");
172
173 switch(smb_model){
174 case SMBforcingEnum:
175 /*Nothing to add to parameters*/
176 break;
177 case SMBgembEnum:
178 parameters->AddObject(iomodel->CopyConstantObject("md.smb.aIdx",SmbAIdxEnum));
179 parameters->AddObject(iomodel->CopyConstantObject("md.smb.swIdx",SmbSwIdxEnum));
180 parameters->AddObject(iomodel->CopyConstantObject("md.smb.denIdx",SmbDenIdxEnum));
181 parameters->AddObject(iomodel->CopyConstantObject("md.smb.cldFrac",SmbCldFracEnum));
182 parameters->AddObject(iomodel->CopyConstantObject("md.smb.t0wet",SmbT0wetEnum));
183 parameters->AddObject(iomodel->CopyConstantObject("md.smb.t0dry",SmbT0dryEnum));
184 parameters->AddObject(iomodel->CopyConstantObject("md.smb.K",SmbKEnum));
185 parameters->AddObject(iomodel->CopyConstantObject("md.smb.aSnow",SmbASnowEnum));
186 parameters->AddObject(iomodel->CopyConstantObject("md.smb.aIce",SmbAIceEnum));
187 parameters->AddObject(iomodel->CopyConstantObject("md.smb.dt",SmbDtEnum));
188 parameters->AddObject(iomodel->CopyConstantObject("md.smb.isgraingrowth",SmbIsgraingrowthEnum));
189 parameters->AddObject(iomodel->CopyConstantObject("md.smb.isalbedo",SmbIsalbedoEnum));
190 parameters->AddObject(iomodel->CopyConstantObject("md.smb.isshortwave",SmbIsshortwaveEnum));
191 parameters->AddObject(iomodel->CopyConstantObject("md.smb.isthermal",SmbIsthermalEnum));
192 parameters->AddObject(iomodel->CopyConstantObject("md.smb.isaccumulation",SmbIsaccumulationEnum));
193 parameters->AddObject(iomodel->CopyConstantObject("md.smb.ismelt",SmbIsmeltEnum));
194 parameters->AddObject(iomodel->CopyConstantObject("md.smb.isdensification",SmbIsdensificationEnum));
195 parameters->AddObject(iomodel->CopyConstantObject("md.smb.isturbulentflux",SmbIsturbulentfluxEnum));
196 parameters->AddObject(iomodel->CopyConstantObject("md.smb.InitDensityScaling",SmbInitDensityScalingEnum));
197 parameters->AddObject(iomodel->CopyConstantObject("md.smb.ThermoDeltaTScaling",SmbThermoDeltaTScalingEnum));
198 parameters->AddObject(iomodel->CopyConstantObject("md.smb.adThresh",SmbAdThreshEnum));
199 break;
200 case SMBpddEnum:
201 parameters->AddObject(iomodel->CopyConstantObject("md.smb.isdelta18o",SmbIsdelta18oEnum));
202 parameters->AddObject(iomodel->CopyConstantObject("md.smb.ismungsm",SmbIsmungsmEnum));
203 parameters->AddObject(iomodel->CopyConstantObject("md.smb.issetpddfac",SmbIssetpddfacEnum));
204 iomodel->FindConstant(&isdelta18o,"md.smb.isdelta18o");
205 iomodel->FindConstant(&ismungsm,"md.smb.ismungsm");
206
207 if(ismungsm){
208 iomodel->FetchData(&temp,&N,&M,"md.smb.Pfac"); _assert_(N==2);
209 parameters->AddObject(new TransientParam(SmbPfacEnum,&temp[0],&temp[M],interp,M));
210 iomodel->DeleteData(temp,"md.smb.Pfac");
211
212 iomodel->FetchData(&temp,&N,&M,"md.smb.Tdiff"); _assert_(N==2);
213 parameters->AddObject(new TransientParam(SmbTdiffEnum,&temp[0],&temp[M],interp,M));
214 iomodel->DeleteData(temp,"md.smb.Tdiff");
215
216 iomodel->FetchData(&temp,&N,&M,"md.smb.sealev"); _assert_(N==2);
217 parameters->AddObject(new TransientParam(SmbSealevEnum,&temp[0],&temp[M],interp,M));
218 iomodel->DeleteData(temp,"md.smb.sealev");
219 }
220 if(isdelta18o){
221 iomodel->FetchData(&temp,&N,&M,"md.smb.delta18o"); _assert_(N==2);
222 parameters->AddObject(new TransientParam(SmbDelta18oEnum,&temp[0],&temp[M],interp,M));
223 iomodel->DeleteData(temp,"md.smb.delta18o");
224
225 iomodel->FetchData(&temp,&N,&M,"md.smb.delta18o_surface"); _assert_(N==2);
226 parameters->AddObject(new TransientParam(SmbDelta18oSurfaceEnum,&temp[0],&temp[M],interp,M));
227 iomodel->DeleteData(temp,"md.smb.delta18o_surface");
228 }
229 break;
230 case SMBpddSicopolisEnum:
231 parameters->AddObject(iomodel->CopyConstantObject("md.smb.isfirnwarming",SmbIssetpddfacEnum));
232 break;
233 case SMBd18opddEnum:
234 parameters->AddObject(iomodel->CopyConstantObject("md.smb.ismungsm",SmbIsmungsmEnum));
235 parameters->AddObject(iomodel->CopyConstantObject("md.smb.isd18opd",SmbIsd18opdEnum));
236 parameters->AddObject(iomodel->CopyConstantObject("md.smb.issetpddfac",SmbIssetpddfacEnum));
237 iomodel->FindConstant(&ismungsm,"md.smb.ismungsm");
238 iomodel->FindConstant(&isd18opd,"md.smb.isd18opd");
239 iomodel->FindConstant(&issetpddfac,"md.smb.issetpddfac");
240 if(isd18opd){
241 parameters->AddObject(iomodel->CopyConstantObject("md.smb.f",SmbFEnum));
242 parameters->AddObject(iomodel->CopyConstantObject("md.smb.istemperaturescaled",SmbIstemperaturescaledEnum));
243 parameters->AddObject(iomodel->CopyConstantObject("md.smb.isprecipscaled",SmbIsprecipscaledEnum));
244 iomodel->FetchData(&temp,&N,&M,"md.smb.delta18o"); _assert_(N==2);
245 parameters->AddObject(new TransientParam(SmbDelta18oEnum,&temp[0],&temp[M],interp,M));
246 iomodel->DeleteData(temp,"md.smb.delta18o");
247 }
248 break;
249 case SMBgradientsEnum:
250 /*Nothing to add to parameters*/
251 break;
252 case SMBgradientselaEnum:
253 /*Nothing to add to parameters*/
254 break;
255 case SMBhenningEnum:
256 /*Nothing to add to parameters*/
257 break;
258 case SMBcomponentsEnum:
259 /*Nothing to add to parameters*/
260 break;
261 case SMBmeltcomponentsEnum:
262 /*Nothing to add to parameters*/
263 break;
264 default:
265 _error_("Surface mass balance model "<<EnumToStringx(smb_model)<<" not supported yet");
266 }
267
268 iomodel->FindConstant(&requestedoutputs,&numoutputs,"md.smb.requested_outputs");
269 parameters->AddObject(new IntParam(SmbNumRequestedOutputsEnum,numoutputs));
270 if(numoutputs)parameters->AddObject(new StringArrayParam(SmbRequestedOutputsEnum,requestedoutputs,numoutputs));
271 iomodel->DeleteData(&requestedoutputs,numoutputs,"md.smb.requested_outputs");
272
273}/*}}}*/
274
275/*Finite Element Analysis*/
276void SmbAnalysis::Core(FemModel* femmodel){/*{{{*/
277
278 int smb_model;
279
280 /*Figure out smb model: */
281 femmodel->parameters->FindParam(&smb_model,SmbEnum);
282
283 /*branch to correct module*/
284 switch(smb_model){
285 case SMBforcingEnum:
286 /*Nothing to be done*/
287 break;
288 case SMBgembEnum:
289 Gembx(femmodel);
290 break;
291 case SMBpddEnum:
292 bool isdelta18o,ismungsm;
293 femmodel->parameters->FindParam(&isdelta18o,SmbIsdelta18oEnum);
294 femmodel->parameters->FindParam(&ismungsm,SmbIsmungsmEnum);
295 if(isdelta18o){
296 if(VerboseSolution()) _printf0_(" call Delta18oParameterization module\n");
297 Delta18oParameterizationx(femmodel);
298 }
299 if(ismungsm){
300 if(VerboseSolution()) _printf0_(" call MungsmtpParameterization module\n");
301 MungsmtpParameterizationx(femmodel);
302 }
303 if(VerboseSolution()) _printf0_(" call positive degree day module\n");
304 PositiveDegreeDayx(femmodel);
305 break;
306 case SMBpddSicopolisEnum:
307 if(VerboseSolution()) _printf0_(" call SICOPOLIS positive degree day module\n");
308 PositiveDegreeDaySicopolisx(femmodel);
309 break;
310 case SMBd18opddEnum:
311 bool isd18opd;
312 femmodel->parameters->FindParam(&isd18opd,SmbIsd18opdEnum);
313 if(isd18opd){
314 if(VerboseSolution()) _printf0_(" call Delta18opdParameterization module\n");
315 Delta18opdParameterizationx(femmodel);
316 if(VerboseSolution()) _printf0_(" call positive degree day module\n");
317 PositiveDegreeDayx(femmodel);
318 }
319 break;
320 case SMBgradientsEnum:
321 if(VerboseSolution())_printf0_(" call smb gradients module\n");
322 SmbGradientsx(femmodel);
323 break;
324 case SMBgradientselaEnum:
325 if(VerboseSolution())_printf0_(" call smb gradients ela module\n");
326 SmbGradientsElax(femmodel);
327 break;
328 case SMBhenningEnum:
329 if(VerboseSolution())_printf0_(" call smb Henning module\n");
330 SmbHenningx(femmodel);
331 break;
332 case SMBcomponentsEnum:
333 if(VerboseSolution())_printf0_(" call smb Components module\n");
334 SmbComponentsx(femmodel);
335 break;
336 case SMBmeltcomponentsEnum:
337 if(VerboseSolution())_printf0_(" call smb Melt Components module\n");
338 SmbMeltComponentsx(femmodel);
339 break;
340 case SMBgcmEnum:
341 /*Nothing to be done*/
342 break;
343 default:
344 _error_("Surface mass balance model "<<EnumToStringx(smb_model)<<" not supported yet");
345 }
346
347}/*}}}*/
348ElementVector* SmbAnalysis::CreateDVector(Element* element){/*{{{*/
349 _error_("not implemented");
350}/*}}}*/
351ElementMatrix* SmbAnalysis::CreateJacobianMatrix(Element* element){/*{{{*/
352_error_("Not implemented");
353}/*}}}*/
354ElementMatrix* SmbAnalysis::CreateKMatrix(Element* element){/*{{{*/
355 _error_("not implemented yet");
356}/*}}}*/
357ElementVector* SmbAnalysis::CreatePVector(Element* element){/*{{{*/
358_error_("not implemented yet");
359}/*}}}*/
360void SmbAnalysis::GetSolutionFromInputs(Vector<IssmDouble>* solution,Element* element){/*{{{*/
361 _error_("not implemented yet");
362}/*}}}*/
363void SmbAnalysis::GradientJ(Vector<IssmDouble>* gradient,Element* element,int control_type,int control_index){/*{{{*/
364 _error_("Not implemented yet");
365}/*}}}*/
366void SmbAnalysis::InputUpdateFromSolution(IssmDouble* solution,Element* element){/*{{{*/
367 _error_("not implemented yet");
368}/*}}}*/
369void SmbAnalysis::UpdateConstraints(FemModel* femmodel){/*{{{*/
370 /*Default, do nothing*/
371 return;
372}/*}}}*/
Note: See TracBrowser for help on using the repository browser.