Changeset 28086
- Timestamp:
- 01/31/24 11:57:57 (15 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/m/parameterization/sethydrostaticmask.m
r24861 r28086 1 function md=sethydrostaticmask(md)1 function ocean_levelset = sethydrostaticmask(md) 2 2 %SETHYDROSTATICMASK - establish ocean_levelset field 3 3 % … … 6 6 % 7 7 % Usage: 8 % md=sethydrostaticmask(md)8 % ocean_levelset = sethydrostaticmask(md) 9 9 % 10 10 % Examples: 11 % md=sethydrostaticmask(md); 11 % md.mask.ocean_levelset = sethydrostaticmask(md); 12 13 %temporary warning for people that already use this function 14 disp('Setting hydrostatic mask: WARNING - now returning ocean_levelset (not md)'); 15 disp(' -- you can blame Mathieu'); 12 16 13 17 if(length(md.geometry.bed)~=md.mesh.numberofvertices | length(md.geometry.thickness)~=md.mesh.numberofvertices | length(md.geometry.base)~=md.mesh.numberofvertices), … … 15 19 end 16 20 17 % grounded ice level set18 md.mask.ocean_levelset=md.geometry.thickness+md.geometry.bed*md.materials.rho_water/md.materials.rho_ice;21 %ocean level set based on height above floatation 22 ocean_levelset=md.geometry.thickness+md.geometry.bed*md.materials.rho_water/md.materials.rho_ice; 19 23 20 24 %Check consistency of geometry 21 pos=find( md.mask.ocean_levelset>0);25 pos=find(ocean_levelset>0); 22 26 if(any(md.geometry.base(pos)~=md.geometry.bed(pos))), 23 27 disp('WARNING: md.geometry.bed and md.geometry.base not equal on grounded ice'); 24 28 end 25 29 26 pos=find( md.mask.ocean_levelset<=0);30 pos=find(ocean_levelset<=0); 27 31 if(any(md.geometry.base(pos)<md.geometry.bed(pos))), 28 32 disp('WARNING: md.geometry.base < md.geometry.bed on floating ice');
Note:
See TracChangeset
for help on using the changeset viewer.