Changeset 20452 for issm/trunk-jpl/src/c/analyses/LevelsetAnalysis.cpp
- Timestamp:
- 04/07/16 11:42:19 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/analyses/LevelsetAnalysis.cpp
r20307 r20452 48 48 iomodel->FetchDataToInput(elements,VyEnum); 49 49 50 /*Get calvingparameters*/51 bool is calving;50 /*Get moving front parameters*/ 51 bool ismovingfront; 52 52 int calvinglaw; 53 iomodel->Constant(&is calving,TransientIscalvingEnum);54 if(is calving){53 iomodel->Constant(&ismovingfront,TransientIsmovingfrontEnum); 54 if(ismovingfront){ 55 55 iomodel->Constant(&calvinglaw,CalvingLawEnum); 56 iomodel->Constant(&is calving,TransientIscalvingEnum);56 iomodel->Constant(&ismovingfront,TransientIsmovingfrontEnum); 57 57 switch(calvinglaw){ 58 58 case DefaultCalvingEnum: … … 129 129 /*Intermediaries */ 130 130 int stabilization,dim, domaintype, calvinglaw; 131 bool is calving;131 bool ismovingfront; 132 132 int i, row, col; 133 133 IssmDouble kappa; … … 138 138 IssmDouble* xyz_list = NULL; 139 139 140 /*Get problem dimension and whether there is calvingor not*/141 basalelement->FindParam(&is calving,TransientIscalvingEnum);140 /*Get problem dimension and whether there is moving front or not*/ 141 basalelement->FindParam(&ismovingfront,TransientIsmovingfrontEnum); 142 142 basalelement->FindParam(&domaintype,DomainTypeEnum); 143 143 basalelement->FindParam(&calvinglaw,CalvingLawEnum); … … 194 194 195 195 /*Load calving inputs*/ 196 if(is calving){196 if(ismovingfront){ 197 197 switch(calvinglaw){ 198 198 case DefaultCalvingEnum: … … 267 267 268 268 /*Get calving speed*/ 269 if(is calving){269 if(ismovingfront){ 270 270 switch(calvinglaw){ 271 271 case DefaultCalvingEnum:
Note:
See TracChangeset
for help on using the changeset viewer.