Changeset 4113
- Timestamp:
- 06/21/10 17:20:52 (15 years ago)
- Location:
- issm/trunk/src/m/solutions/jpl
- Files:
-
- 2 added
- 3 deleted
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/m/solutions/jpl/bedslope.m
r4102 r4113 1 function md= slopecompute(md);2 %SLOPECOMPUTE - compute the slope of a model1 function md=bedslopecompute(md); 2 %SLOPECOMPUTE - compute the bed slope of a model 3 3 % 4 4 % Usage: 5 % md= slopecompute(md)5 % md=bedslope(md) 6 6 % 7 7 %timing … … 21 21 if ~qmu_analysis, 22 22 displaystring(verbose,'%s',['call computational core']); 23 bedslope_core(femmodel); 23 femmodel=bedslope_core(femmodel); 24 25 displaystring(verbose,'%s',['write results']); 26 OutputResults(femmodel.elements, femmodel.loads, femmodel.nodes, femmodel.vertices, femmodel.materials, femmodel.parameters); 27 24 28 else 25 29 %launch dakota driver for diagnostic core solution -
issm/trunk/src/m/solutions/jpl/diagnostic.m
r4059 r4113 24 24 25 25 displaystring(verbose,'%s',['call computational core']); 26 diagnostic_core(femmodel);26 femmodel=diagnostic_core(femmodel); 27 27 28 28 else, 29 29 30 30 displaystring(verbose,'%s',['call computational core']); 31 control_core(femmodel);31 femmodel=control_core(femmodel); 32 32 33 33 end 34 35 displaystring(verbose,'%s',['write results']); 36 OutputResults(femmodel.elements, femmodel.loads, femmodel.nodes, femmodel.vertices, femmodel.materials, femmodel.parameters); 37 34 38 else 35 39 %launch dakota driver for diagnostic core solution -
issm/trunk/src/m/solutions/jpl/diagnostic_core.m
r4063 r4113 1 function results=diagnostic_core(model);1 function femmodel=diagnostic_core(femmodel); 2 2 %DIAGNOSTIC_CORE - compute the core velocity field 3 3 % … … 28 28 29 29 %Compute slopes: 30 if(ishutter) surfaceslope_core(femmodel);end31 if(isstokes) bedslope_core(femmodel);end30 if(ishutter)femmodel=surfaceslope_core(femmodel);end 31 if(isstokes)femmodel=bedslope_core(femmodel);end 32 32 33 33 if ishutter, … … 59 59 %"recondition" pressure computed previously: 60 60 InputDuplicate(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,PressureEnum,PressureStokesEnum); 61 ScaleInput(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,PressureStokesEnum,1.0/stokesreconditioning);61 InputScale(femmodel->elements,femmodel->nodes,femmodel->vertices,femmodel->loads,femmodel->materials,femmodel->parameters,PressureStokesEnum,1.0/stokesreconditioning); 62 62 63 63 displaystring(verbose,'\n%s',['update boundary conditions for stokes using velocities previously computed...']); -
issm/trunk/src/m/solutions/jpl/surfaceslope.m
r4102 r4113 1 function md=s lopecompute(md);2 %SLOPECOMPUTE - compute the s lope of a model1 function md=surfaceslopecompute(md); 2 %SLOPECOMPUTE - compute the surface slope of a model 3 3 % 4 4 % Usage: 5 % md=s lopecompute(md)5 % md=surfaceslope(md) 6 6 % 7 7 %timing … … 21 21 if ~qmu_analysis, 22 22 displaystring(verbose,'%s',['call computational core']); 23 surfaceslope_core(femmodel); 23 femmodel=surfaceslope_core(femmodel); 24 25 displaystring(verbose,'%s',['write results']); 26 OutputResults(femmodel.elements, femmodel.loads, femmodel.nodes, femmodel.vertices, femmodel.materials, femmodel.parameters); 27 24 28 else 25 29 %launch dakota driver for diagnostic core solution
Note:
See TracChangeset
for help on using the changeset viewer.