Changeset 23995
- Timestamp:
- 06/06/19 18:00:09 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/modules/KillIcebergsx/KillIcebergsx.cpp
r23992 r23995 21 21 Vector<IssmDouble>* vec_connected_to_land=new Vector<IssmDouble>(nbv_local,nbv_global); 22 22 23 /*Prepare element flag to speed up process*/ 24 bool* element_flag = xNewZeroInit<bool>(femmodel->elements->Size()); 25 23 26 /*Fill vector with 1 where it is grounded*/ 24 27 IssmDouble eflags[MAXVERTICES]; … … 28 31 Element* element=xDynamicCast<Element*>(femmodel->elements->GetObjectByOffset(i)); 29 32 30 if(element->IsIceInElement()){ 33 if(!element->IsIceInElement()){ 34 /*Nothing to do, just flag element to speed up the computation*/ 35 element_flag[i] = true; 36 } 37 else{ 31 38 if(element->IsGrounded()){ 32 39 int numvertices = element->GetNumberOfVertices(); … … 38 45 } 39 46 vec_connected_to_land->Assemble(); 40 41 /*Prepare element flag to speed up process*/42 bool* element_flag = xNewZeroInit<bool>(femmodel->elements->Size());43 47 44 48 bool keepsyncing = true; … … 60 64 Element* element=xDynamicCast<Element*>(femmodel->elements->GetObjectByOffset(i)); 61 65 62 if( element->IsIceInElement() ||element_flag[i]){66 if(!element_flag[i]){ 63 67 int numvertices = element->GetNumberOfVertices(); 64 68 element->GetVerticesLidList(&lidlist[0]); … … 88 92 ISSM_MPI_Reduce(&iter,&iter_max,1,ISSM_MPI_INT,ISSM_MPI_MAX,0,IssmComm::GetComm()); 89 93 if(iter_max==2){ 90 xDelete<bool>(element_flag);91 94 keepsyncing = false; 92 95 } … … 103 106 } 104 107 } 105 xDelete<bool>(element_flag);106 108 vec_connected_to_land->Assemble(); 107 109 } 108 110 } 109 111 112 /*Cleanup*/ 113 xDelete<bool>(element_flag); 110 114 delete vec_connected_to_land; 111 115
Note:
See TracChangeset
for help on using the changeset viewer.