Changeset 14576
- Timestamp:
- 04/15/13 13:19:09 (12 years ago)
- Location:
- issm/trunk-jpl/src/c/classes
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/classes/IoModel.cpp
r14569 r14576 207 207 void IoModel::DeclareIndependents(void){ 208 208 209 int 210 bool autodiff= false;211 int 209 int i; 210 bool autodiff = false; 211 int num_independent_objects; 212 212 213 213 int *names = NULL; 214 214 int *types = NULL; 215 215 216 int numberofvertices; 217 int dummy; 218 bool keep=false; 216 int numberofvertices,dummy; 217 bool keep=false; 219 218 220 219 /*Initialize array detecting whether data[i] is an independent AD mode variable: */ … … 228 227 229 228 #ifdef _HAVE_ADOLC_ 230 231 /*Start trace: {{{*/ 229 /*Start trace*/ 232 230 this->FetchData(&keep,AutodiffKeepEnum); 233 231 if(keep)trace_on(1,1); 234 232 else trace_on(1); 235 233 236 /*}}}*/ 237 /*build dataset made of independent objects: {{{*/ 234 /*build dataset made of independent objects:*/ 238 235 this->independent_objects=new DataSet(); 239 236 this->FetchData(&num_independent_objects,AutodiffNumIndependentObjectsEnum); … … 257 254 xDelete<int>(names); 258 255 xDelete<int>(types); 259 } /*}}}*/ 260 256 } 261 257 #else 262 258 /*if we asked for AD computations, we have a problem!: */ -
issm/trunk-jpl/src/c/classes/objects/Elements/Penta.cpp
r14529 r14576 1578 1578 void Penta::InputToResult(int enum_type,int step,IssmDouble time){ 1579 1579 1580 int i;1581 1580 bool found = false; 1582 1581 Input *input = NULL; … … 2180 2179 void Penta::MigrateGroundingLine(IssmDouble* old_floating_ice,IssmDouble* sheet_ungrounding){ 2181 2180 2182 int i,migration_style ,unground;2181 int i,migration_style; 2183 2182 bool floatingelement = false; 2184 2183 IssmDouble bed_hydro,yts,gl_melting_rate; … … 2684 2683 Tria* Penta::SpawnTria(int g0, int g1, int g2){ 2685 2684 2686 int i,analysis_counter;2685 int analysis_counter; 2687 2686 int indices[3]; 2688 2687 int zero=0; … … 2732 2731 IssmDouble h[NUMVERTICES]; // ice thickness (m) 2733 2732 IssmDouble s[NUMVERTICES]; // surface elevation (m) 2734 IssmDouble a_pos[NUMVERTICES]; // Hs-SMB relation parameter2735 2733 IssmDouble b_pos[NUMVERTICES]; // Hs-SMB relation parameter 2736 IssmDouble a_neg[NUMVERTICES]; // Hs-SMB relation parameter2737 2734 IssmDouble b_neg[NUMVERTICES]; // Hs-SMB relation paremeter 2738 IssmDouble Hc[NUMVERTICES]; // elevation of transition between accumulation regime and ablation regime2739 2735 IssmDouble Href[NUMVERTICES]; // reference elevation from which deviations are used to calculate the SMB adjustment 2740 2736 IssmDouble Smbref[NUMVERTICES]; // reference SMB to which deviations are added 2741 IssmDouble smb_pos_max[NUMVERTICES]; // maximum SMB value in the accumulation regime2742 IssmDouble smb_pos_min[NUMVERTICES]; // minimum SMB value in the accumulation regime2743 2737 IssmDouble rho_water; // density of fresh water 2744 2738 IssmDouble rho_ice; // density of ice … … 2884 2878 2885 2879 /*Intermediaries*/ 2886 IssmInt i,j;2880 int i; 2887 2881 int penta_type; 2888 2882 int penta_node_ids[6];
Note:
See TracChangeset
for help on using the changeset viewer.