Changeset 8331
- Timestamp:
- 05/17/11 16:08:06 (14 years ago)
- Location:
- issm/trunk/src/c
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/c/Makefile.am
r8330 r8331 1036 1036 ./io/pfopen.cpp\ 1037 1037 ./io/pfclose.cpp\ 1038 ./io/ParsePetscOptions.cpp\1039 1038 ./EnumDefinitions/EnumDefinitions.h\ 1040 1039 ./EnumDefinitions/EnumToModelField.cpp\ -
issm/trunk/src/c/modules/ModelProcessorx/Transient/UpdateElementsTransient.cpp
r8330 r8331 22 22 /*Ok, let's go through forcings: */ 23 23 24 /*Fetch data needed: */25 IoModelFetchData(&iomodel->elements,NULL,NULL,iomodel_handle,"elements");26 IoModelFetchData(&iomodel->elements_type,NULL,NULL,iomodel_handle,"elements_type");27 IoModelFetchData(&iomodel->thickness,NULL,NULL,iomodel_handle,"thickness");28 IoModelFetchData(&iomodel->thickness_coeff,NULL,NULL,iomodel_handle,"thickness_coeff");29 IoModelFetchData(&iomodel->surface,NULL,NULL,iomodel_handle,"surface");30 IoModelFetchData(&iomodel->bed,NULL,NULL,iomodel_handle,"bed");31 IoModelFetchData(&iomodel->drag_coefficient,NULL,NULL,iomodel_handle,"drag_coefficient");32 IoModelFetchData(&iomodel->drag_p,NULL,NULL,iomodel_handle,"drag_p");33 IoModelFetchData(&iomodel->drag_q,NULL,NULL,iomodel_handle,"drag_q");34 IoModelFetchData(&iomodel->elementoniceshelf,NULL,NULL,iomodel_handle,"elementoniceshelf");35 IoModelFetchData(&iomodel->elementonwater,NULL,NULL,iomodel_handle,"elementonwater");36 IoModelFetchData(&iomodel->rheology_B,NULL,NULL,iomodel_handle,"rheology_B");37 IoModelFetchData(&iomodel->rheology_n,NULL,NULL,iomodel_handle,"rheology_n");38 IoModelFetchData(&iomodel->vx,NULL,NULL,iomodel_handle,"vx");39 IoModelFetchData(&iomodel->vy,NULL,NULL,iomodel_handle,"vy");40 if(iomodel->gl_migration!=NoneEnum) IoModelFetchData(&iomodel->bathymetry,NULL,NULL,iomodel_handle,"bathymetry");41 24 42 if (iomodel->dim==3){43 IoModelFetchData(&iomodel->elementonbed,NULL,NULL,iomodel_handle,"elementonbed");44 IoModelFetchData(&iomodel->elementonsurface,NULL,NULL,iomodel_handle,"elementonsurface");45 IoModelFetchData(&iomodel->vz,NULL,NULL,iomodel_handle,"vz");46 IoModelFetchData(&iomodel->accumulation_rate,NULL,NULL,iomodel_handle,"accumulation_rate");47 IoModelFetchData(&iomodel->melting_rate,NULL,NULL,iomodel_handle,"melting_rate");48 IoModelFetchData(&iomodel->nodeonstokes,NULL,NULL,iomodel_handle,"nodeonstokes");49 }50 if(iomodel->control_analysis){51 IoModelFetchData(&iomodel->vx_obs,NULL,NULL,iomodel_handle,"vx_obs");52 IoModelFetchData(&iomodel->vy_obs,NULL,NULL,iomodel_handle,"vy_obs");53 }54 55 /*Update elements: */56 counter=0;57 for (i=0;i<iomodel->numberofelements;i++){58 if(iomodel->my_elements[i]){59 element=(Element*)elements->GetObjectByOffset(counter);60 element->Update(i,iomodel,analysis_counter,analysis_type); //we need i to index into elements.61 counter++;62 }63 }64 cleanup_and_return:65 66 /*Free data: */67 xfree((void**)&iomodel->elements);68 xfree((void**)&iomodel->elements_type);69 xfree((void**)&iomodel->thickness);70 xfree((void**)&iomodel->thickness_coeff);71 xfree((void**)&iomodel->surface);72 xfree((void**)&iomodel->bed);73 xfree((void**)&iomodel->drag_coefficient);74 xfree((void**)&iomodel->drag_p);75 xfree((void**)&iomodel->drag_q);76 xfree((void**)&iomodel->rheology_n);77 xfree((void**)&iomodel->rheology_B);78 xfree((void**)&iomodel->elementoniceshelf);79 xfree((void**)&iomodel->elementonbed);80 xfree((void**)&iomodel->elementonsurface);81 xfree((void**)&iomodel->elementonwater);82 xfree((void**)&iomodel->accumulation_rate);83 xfree((void**)&iomodel->melting_rate);84 xfree((void**)&iomodel->nodeonstokes);85 xfree((void**)&iomodel->vx);86 xfree((void**)&iomodel->vy);87 xfree((void**)&iomodel->vz);88 xfree((void**)&iomodel->vx_obs);89 xfree((void**)&iomodel->vy_obs);90 25 }
Note:
See TracChangeset
for help on using the changeset viewer.