Changeset 8305
- Timestamp:
- 05/16/11 15:50:32 (14 years ago)
- Location:
- issm/trunk/test/Par
- Files:
-
- 17 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/test/Par/79North.par
r7332 r8305 11 11 12 12 %Materials 13 md.observed_temperature=(273-20)*ones(md.numberof grids,1);13 md.observed_temperature=(273-20)*ones(md.numberofnodes,1); 14 14 md.rheology_B=paterson(md.observed_temperature); 15 15 md.rheology_n=3*ones(md.numberofelements,1); … … 18 18 pos=find(md.elementoniceshelf); 19 19 md.drag_type=2; 20 md.drag_coefficient=50*ones(md.numberof grids,1);20 md.drag_coefficient=50*ones(md.numberofnodes,1); 21 21 md.drag_coefficient(md.elements(pos,:))=0; 22 22 md.drag_p=ones(md.numberofelements,1); … … 24 24 25 25 %Ice shelf melting and accumulation 26 md.melting_rate=zeros(md.numberof grids,1);27 pos=zeros(md.numberof grids,1);26 md.melting_rate=zeros(md.numberofnodes,1); 27 pos=zeros(md.numberofnodes,1); 28 28 pos(md.elements(find(md.elementoniceshelf),:))=1; 29 29 md.melting_rate(find(pos))=10; 30 md.accumulation_rate=15*ones(md.numberof grids,1);30 md.accumulation_rate=15*ones(md.numberofnodes,1); 31 31 32 32 %Numerical parameters -
issm/trunk/test/Par/ISMIPA.par
r5966 r8305 5 5 md.bed=md.surface-1000+500*sin(md.x*2*pi/max(md.x)).*sin(md.y*2*pi/max(md.x)); 6 6 md.thickness=md.surface-md.bed; 7 md.firn_layer=0*ones(md.numberof grids,1);7 md.firn_layer=0*ones(md.numberofnodes,1); 8 8 9 9 disp(' creating drag'); 10 10 md.drag_type=2; %0 none 1 plastic 2 viscous 11 md.drag_coefficient=200*ones(md.numberof grids,1); %q=1.11 md.drag_coefficient=200*ones(md.numberofnodes,1); %q=1. 12 12 %Take care of iceshelves: no basal drag 13 13 pos=find(md.elementoniceshelf); … … 17 17 18 18 disp(' creating flow law paramter'); 19 md.rheology_B=6.8067*10^7*ones(md.numberof grids,1);19 md.rheology_B=6.8067*10^7*ones(md.numberofnodes,1); 20 20 md.rheology_n=3*ones(md.numberofelements,1); 21 21 -
issm/trunk/test/Par/ISMIPB.par
r5966 r8305 5 5 md.bed=md.surface-1000+500*sin(md.x*2*pi/max(md.x)); 6 6 md.thickness=md.surface-md.bed; 7 md.firn_layer=0*ones(md.numberof grids,1);7 md.firn_layer=0*ones(md.numberofnodes,1); 8 8 9 9 disp(' creating drag'); 10 10 md.drag_type=2; %0 none 1 plastic 2 viscous 11 md.drag_coefficient=200*ones(md.numberof grids,1); %q=1.11 md.drag_coefficient=200*ones(md.numberofnodes,1); %q=1. 12 12 %Take care of iceshelves: no basal drag 13 13 pos=find(md.elementoniceshelf); … … 17 17 18 18 disp(' creating flow law paramter'); 19 md.rheology_B=6.8067*10^7*ones(md.numberof grids,1);19 md.rheology_B=6.8067*10^7*ones(md.numberofnodes,1); 20 20 md.rheology_n=3*ones(md.numberofelements,1); 21 21 -
issm/trunk/test/Par/ISMIPC.par
r7877 r8305 5 5 md.bed=md.surface-1000; 6 6 md.thickness=md.surface-md.bed; 7 md.firn_layer=0*ones(md.numberof grids,1);7 md.firn_layer=0*ones(md.numberofnodes,1); 8 8 9 9 disp(' creating drag'); … … 18 18 19 19 disp(' creating flow law paramter'); 20 md.rheology_B=6.8067*10^7*ones(md.numberof grids,1);20 md.rheology_B=6.8067*10^7*ones(md.numberofnodes,1); 21 21 md.rheology_n=3*ones(md.numberofelements,1); 22 22 -
issm/trunk/test/Par/ISMIPD.par
r7963 r8305 5 5 md.bed=md.surface-1000; 6 6 md.thickness=md.surface-md.bed; 7 md.firn_layer=0*ones(md.numberof grids,1);7 md.firn_layer=0*ones(md.numberofnodes,1); 8 8 9 9 disp(' creating drag'); … … 17 17 18 18 disp(' creating flow law paramter'); 19 md.rheology_B=6.8067*10^7*ones(md.numberof grids,1);19 md.rheology_B=6.8067*10^7*ones(md.numberofnodes,1); 20 20 md.rheology_n=3*ones(md.numberofelements,1); 21 21 -
issm/trunk/test/Par/ISMIPE.par
r5966 r8305 4 4 data=load('../Data/ISMIPE.data','-mat'); 5 5 data=data.data; 6 md.surface=zeros(md.numberof grids,1);7 md.bed=zeros(md.numberof grids,1);8 for i=1:md.numberof grids6 md.surface=zeros(md.numberofnodes,1); 7 md.bed=zeros(md.numberofnodes,1); 8 for i=1:md.numberofnodes 9 9 y=md.y(i); 10 10 point1=floor(y/100)+1; … … 15 15 end 16 16 md.thickness=md.surface-md.bed; 17 md.firn_layer=0*ones(md.numberof grids,1);17 md.firn_layer=0*ones(md.numberofnodes,1); 18 18 md.thickness(find(~md.thickness))=0.01; 19 19 md.bed=md.surface-md.thickness; … … 21 21 disp(' creating drag'); 22 22 md.drag_type=2; %0 none 1 plastic 2 viscous 23 md.drag_coefficient=zeros(md.numberof grids,1);23 md.drag_coefficient=zeros(md.numberofnodes,1); 24 24 md.drag_p=ones(md.numberofelements,1); 25 25 md.drag_q=ones(md.numberofelements,1); 26 26 27 27 disp(' creating flow law paramter'); 28 md.rheology_B=6.8067*10^7*ones(md.numberof grids,1);28 md.rheology_B=6.8067*10^7*ones(md.numberofnodes,1); 29 29 md.rheology_n=3*ones(md.numberofelements,1); 30 30 -
issm/trunk/test/Par/ISMIPF.par
r8244 r8305 7 7 md.bed=md.surface-1000+100*exp(-((md.x-max(md.x)/2).^2+(md.y-max(md.y)/2).^2)/(10000^2)); 8 8 md.thickness=md.surface-md.bed; 9 md.firn_layer=0*ones(md.numberof grids,1);9 md.firn_layer=0*ones(md.numberofnodes,1); 10 10 11 11 disp(' creating drag'); 12 12 md.drag_type=2; %0 none 1 plastic 2 viscous 13 md.drag_coefficient=sqrt(md.yts/(2.140373*10^-7*1000))*ones(md.numberof grids,1);13 md.drag_coefficient=sqrt(md.yts/(2.140373*10^-7*1000))*ones(md.numberofnodes,1); 14 14 md.drag_p=ones(md.numberofelements,1); 15 15 md.drag_q=zeros(md.numberofelements,1); 16 16 17 17 disp(' creating flow law paramter'); 18 md.rheology_B=1.4734*10^14*ones(md.numberof grids,1);18 md.rheology_B=1.4734*10^14*ones(md.numberofnodes,1); 19 19 md.rheology_n=1*ones(md.numberofelements,1); 20 20 md.rheology_law=NoneEnum; … … 23 23 %Create grid on boundary fist (because we cannot use mesh) 24 24 md=SetIceSheetBC(md); 25 md.spcvelocity(:,4)=100*ones(md.numberof grids,1);26 md.vx=zeros(md.numberof grids,1);27 md.vy=zeros(md.numberof grids,1);28 md.vz=zeros(md.numberof grids,1);29 md.vel=zeros(md.numberof grids,1);30 md.pressure=zeros(md.numberof grids,1);31 md.temperature=255*ones(md.numberof grids,1);25 md.spcvelocity(:,4)=100*ones(md.numberofnodes,1); 26 md.vx=zeros(md.numberofnodes,1); 27 md.vy=zeros(md.numberofnodes,1); 28 md.vz=zeros(md.numberofnodes,1); 29 md.vel=zeros(md.numberofnodes,1); 30 md.pressure=zeros(md.numberofnodes,1); 31 md.temperature=255*ones(md.numberofnodes,1); 32 32 pos=find(md.x==min(md.x) | md.x==max(md.x) | md.y==min(md.y) | md.y==max(md.y)); 33 33 md.spcthickness(pos,1)=1; 34 34 md.spcthickness(pos,2)=md.thickness(pos); 35 md.spctemperature=[ones(md.numberof grids,1) 255*ones(md.numberofgrids,1)];36 md.geothermalflux=0.4*ones(md.numberof grids,1);35 md.spctemperature=[ones(md.numberofnodes,1) 255*ones(md.numberofnodes,1)]; 36 md.geothermalflux=0.4*ones(md.numberofnodes,1); 37 37 38 38 %Parallel options -
issm/trunk/test/Par/Pig.par
r6307 r8305 11 11 md.vx=md.vx_obs; 12 12 md.vy=md.vy_obs; 13 md.vz=zeros(md.numberof grids,1);14 md.pressure=zeros(md.numberof grids,1);13 md.vz=zeros(md.numberofnodes,1); 14 md.pressure=zeros(md.numberofnodes,1); 15 15 16 16 %Materials 17 md.observed_temperature=(273-20)*ones(md.numberof grids,1);17 md.observed_temperature=(273-20)*ones(md.numberofnodes,1); 18 18 md.rheology_B=paterson(md.observed_temperature); 19 19 md.rheology_n=3*ones(md.numberofelements,1); … … 23 23 pos=find(md.elementoniceshelf); 24 24 md.drag_type=2; 25 md.drag_coefficient=50*ones(md.numberof grids,1);25 md.drag_coefficient=50*ones(md.numberofnodes,1); 26 26 md.drag_coefficient(md.elements(pos,:))=0; 27 27 md.drag_p=ones(md.numberofelements,1); -
issm/trunk/test/Par/RoundSheetEISMINT.par
r5966 r8305 1 1 %Ok, start defining model parameters here 2 2 disp(' creating thickness'); 3 md.thickness=10*ones(md.numberof grids,1);4 md.bed=zeros(md.numberof grids,1);3 md.thickness=10*ones(md.numberofnodes,1); 4 md.bed=zeros(md.numberofnodes,1); 5 5 md.surface=md.bed+md.thickness; 6 6 7 7 disp(' creating drag'); 8 8 md.drag_type=2; %0 none 1 plastic 2 viscous 9 md.drag_coefficient=20*ones(md.numberof grids,1); %q=1. %no drag is specified in the analytical solution9 md.drag_coefficient=20*ones(md.numberofnodes,1); %q=1. %no drag is specified in the analytical solution 10 10 md.drag_p=ones(md.numberofelements,1); 11 11 md.drag_q=ones(md.numberofelements,1); … … 17 17 md.observed_temperature=(tmin+st*radius); 18 18 md.temperature=md.observed_temperature; 19 md.geothermalflux=4.2*10^-2*ones(md.numberof grids,1);19 md.geothermalflux=4.2*10^-2*ones(md.numberofnodes,1); 20 20 21 21 disp(' creating flow law paramter'); 22 md.rheology_B=6.81*10^(7)*ones(md.numberof grids,1); %to have the same B as the analytical solution22 md.rheology_B=6.81*10^(7)*ones(md.numberofnodes,1); %to have the same B as the analytical solution 23 23 md.rheology_n=3*ones(md.numberofelements,1); 24 24 … … 34 34 md.vy_obs=constant/2*md.y.*(md.thickness).^-1; 35 35 md.vel_obs=(sqrt((md.vx_obs).^2+(md.vy_obs).^2)); 36 md.vx=zeros(md.numberof grids,1);37 md.vy=zeros(md.numberof grids,1);38 md.vz=zeros(md.numberof grids,1);39 md.pressure=zeros(md.numberof grids,1);36 md.vx=zeros(md.numberofnodes,1); 37 md.vy=zeros(md.numberofnodes,1); 38 md.vz=zeros(md.numberofnodes,1); 39 md.pressure=zeros(md.numberofnodes,1); 40 40 41 41 %Deal with boundary conditions: -
issm/trunk/test/Par/RoundSheetShelf.par
r8244 r8305 34 34 35 35 %Initial velocity 36 md.vx=zeros(md.numberof grids,1);37 md.vy=zeros(md.numberof grids,1);38 md.vz=zeros(md.numberof grids,1);39 md.pressure=zeros(md.numberof grids,1);36 md.vx=zeros(md.numberofnodes,1); 37 md.vy=zeros(md.numberofnodes,1); 38 md.vz=zeros(md.numberofnodes,1); 39 md.pressure=zeros(md.numberofnodes,1); 40 40 41 41 %Materials 42 md.observed_temperature=(273-20)*ones(md.numberof grids,1);42 md.observed_temperature=(273-20)*ones(md.numberofnodes,1); 43 43 md.rheology_B=paterson(md.observed_temperature); 44 44 md.rheology_n=3*ones(md.numberofelements,1); … … 46 46 47 47 %Accumulation and melting 48 md.accumulation_rate=-10*ones(md.numberof grids,1);49 md.melting_rate=zeros(md.numberof grids,1);48 md.accumulation_rate=-10*ones(md.numberofnodes,1); 49 md.melting_rate=zeros(md.numberofnodes,1); 50 50 pos=find(md.gridoniceshelf);md.melting_rate(pos)=10; 51 51 … … 53 53 pos=find(md.elementoniceshelf); 54 54 md.drag_type=2; 55 md.drag_coefficient=20*ones(md.numberof grids,1);55 md.drag_coefficient=20*ones(md.numberofnodes,1); 56 56 md.drag_coefficient(md.elements(pos,:))=0; 57 57 md.drag_p=ones(md.numberofelements,1); … … 75 75 76 76 %Deal with boundary conditions: 77 md.spcvelocity=zeros(md.numberof grids,6);77 md.spcvelocity=zeros(md.numberofnodes,6); 78 78 pos=find(md.x==0 & md.y==0); 79 79 md.spcvelocity(pos,1:2)=1; … … 81 81 pressureload=[pressureload WaterEnum*md.elementoniceshelf(pressureload(:,end))+AirEnum*md.elementonicesheet(pressureload(:,end))]; 82 82 md.pressureload=pressureload; 83 md.spcthickness=zeros(md.numberof grids,2);84 md.diagnostic_ref=NaN*ones(md.numberof grids,6);83 md.spcthickness=zeros(md.numberofnodes,2); 84 md.diagnostic_ref=NaN*ones(md.numberofnodes,6); 85 85 86 86 %Change name so that no test have the same name -
issm/trunk/test/Par/RoundSheetStaticEISMINT.par
r5966 r8305 5 5 radiusmax=max(radius); 6 6 md.thickness=hmin*ones(size(md.x,1),1)+hmax*(4*((1/2)^(4/3)*ones(size(md.x,1),1)-((radius)./(2*radiusmax)).^(4/3))).^(3/8); 7 md.firn_layer=10*ones(md.numberof grids,1);7 md.firn_layer=10*ones(md.numberofnodes,1); 8 8 md.bed=0*md.thickness; 9 9 md.surface=md.bed+md.thickness; … … 11 11 disp(' creating drag'); 12 12 md.drag_type=2; %0 none 1 plastic 2 viscous 13 md.drag_coefficient=20*ones(md.numberof grids,1); %q=1. %no drag is specified in the analytical solution13 md.drag_coefficient=20*ones(md.numberofnodes,1); %q=1. %no drag is specified in the analytical solution 14 14 %Take care of iceshelves: no basal drag 15 15 pos=find(md.elementoniceshelf); … … 23 23 md.observed_temperature=(tmin+st*radius); 24 24 md.temperature=md.observed_temperature; 25 md.geothermalflux=4.2*10^-2*ones(md.numberof grids,1);25 md.geothermalflux=4.2*10^-2*ones(md.numberofnodes,1); 26 26 27 27 disp(' creating flow law paramter'); 28 md.rheology_B=6.81*10^(7)*ones(md.numberof grids,1); %to have the same B as the analytical solution28 md.rheology_B=6.81*10^(7)*ones(md.numberofnodes,1); %to have the same B as the analytical solution 29 29 md.rheology_n=3*ones(md.numberofelements,1); 30 30 … … 40 40 md.vy_obs=constant/2*md.y.*(md.thickness).^-1; 41 41 md.vel_obs=(sqrt((md.vx_obs).^2+(md.vy_obs).^2)); 42 md.vx=zeros(md.numberof grids,1);43 md.vy=zeros(md.numberof grids,1);44 md.vz=zeros(md.numberof grids,1);45 md.pressure=zeros(md.numberof grids,1);42 md.vx=zeros(md.numberofnodes,1); 43 md.vy=zeros(md.numberofnodes,1); 44 md.vz=zeros(md.numberofnodes,1); 45 md.pressure=zeros(md.numberofnodes,1); 46 46 47 47 %Deal with boundary conditions: -
issm/trunk/test/Par/SquareEISMINT.par
r6245 r8305 4 4 ymin=min(md.y); 5 5 ymax=max(md.y); 6 md.thickness=500*ones(md.numberof grids,1);7 md.firn_layer=0*ones(md.numberof grids,1);6 md.thickness=500*ones(md.numberofnodes,1); 7 md.firn_layer=0*ones(md.numberofnodes,1); 8 8 md.bed=-md.rho_ice/md.rho_water*md.thickness; 9 9 md.surface=md.bed+md.thickness; … … 11 11 disp(' creating drag'); 12 12 md.drag_type=2; %0 none 1 plastic 2 viscous 13 md.drag_coefficient=200*ones(md.numberof grids,1); %q=1.13 md.drag_coefficient=200*ones(md.numberofnodes,1); %q=1. 14 14 %Take care of iceshelves: no basal drag 15 15 pos=find(md.elementoniceshelf); … … 19 19 20 20 disp(' creating temperature'); 21 md.observed_temperature=(273-20)*ones(md.numberof grids,1);21 md.observed_temperature=(273-20)*ones(md.numberofnodes,1); 22 22 23 23 disp(' creating flow law paramter'); 24 24 %md.B=paterson(md.observed_temperature); 25 md.rheology_B=1.7687*10^8*ones(md.numberof grids,1);25 md.rheology_B=1.7687*10^8*ones(md.numberofnodes,1); 26 26 md.rheology_n=3*ones(md.numberofelements,1); 27 27 28 28 disp(' creating accumulation rates'); 29 md.accumulation_rate=0.2*ones(md.numberof grids,1); %0m/a30 md.melting_rate=0*ones(md.numberof grids,1); %0m/a29 md.accumulation_rate=0.2*ones(md.numberofnodes,1); %0m/a 30 md.melting_rate=0*ones(md.numberofnodes,1); %0m/a 31 31 32 32 disp(' boundary conditions '); … … 37 37 38 38 %Evolution of the ice shelf 39 pos=find(md.y==200000); % grids on the upper boundary condition39 pos=find(md.y==200000); %nodes on the upper boundary condition 40 40 md.spcthickness(pos,1)=1; 41 41 md.spcthickness(pos,2)=500; -
issm/trunk/test/Par/SquareSheetConstrained.par
r7542 r8305 15 15 md.vy=InterpFromMeshToMesh2d(index,x,y,vy,md.x,md.y); 16 16 clear vx vy x y index; 17 md.vz=zeros(md.numberof grids,1);18 md.pressure=zeros(md.numberof grids,1);17 md.vz=zeros(md.numberofnodes,1); 18 md.pressure=zeros(md.numberofnodes,1); 19 19 20 20 %Materials 21 md.observed_temperature=(273-20)*ones(md.numberof grids,1);21 md.observed_temperature=(273-20)*ones(md.numberofnodes,1); 22 22 md.rheology_B=paterson(md.observed_temperature); 23 23 md.rheology_n=3*ones(md.numberofelements,1); … … 27 27 pos=find(md.elementoniceshelf); 28 28 md.drag_type=2; 29 md.drag_coefficient=20*ones(md.numberof grids,1);29 md.drag_coefficient=20*ones(md.numberofnodes,1); 30 30 md.drag_coefficient(md.elements(pos,:))=0; 31 31 md.drag_p=ones(md.numberofelements,1); -
issm/trunk/test/Par/SquareSheetShelf.par
r6307 r8305 18 18 md.vy=InterpFromMeshToMesh2d(index,x,y,vy,md.x,md.y); 19 19 clear vx vy x y index; 20 md.vz=zeros(md.numberof grids,1);21 md.pressure=zeros(md.numberof grids,1);20 md.vz=zeros(md.numberofnodes,1); 21 md.pressure=zeros(md.numberofnodes,1); 22 22 23 23 %Materials 24 md.observed_temperature=(273-20)*ones(md.numberof grids,1);24 md.observed_temperature=(273-20)*ones(md.numberofnodes,1); 25 25 md.rheology_B=paterson(md.observed_temperature); 26 26 md.rheology_n=3*ones(md.numberofelements,1); … … 28 28 29 29 %Accumulation and melting 30 md.accumulation_rate=10*ones(md.numberof grids,1);31 md.melting_rate=5*ones(md.numberof grids,1);30 md.accumulation_rate=10*ones(md.numberofnodes,1); 31 md.melting_rate=5*ones(md.numberofnodes,1); 32 32 33 33 %Friction 34 34 pos=find(md.elementoniceshelf); 35 35 md.drag_type=2; 36 md.drag_coefficient=20*ones(md.numberof grids,1);36 md.drag_coefficient=20*ones(md.numberofnodes,1); 37 37 md.drag_coefficient(md.elements(pos,:))=0; 38 38 md.drag_p=ones(md.numberofelements,1); -
issm/trunk/test/Par/SquareShelf.par
r7542 r8305 15 15 md.vy=InterpFromMeshToMesh2d(index,x,y,vy,md.x,md.y); 16 16 clear vx vy x y index; 17 md.vz=zeros(md.numberof grids,1);18 md.pressure=zeros(md.numberof grids,1);17 md.vz=zeros(md.numberofnodes,1); 18 md.pressure=zeros(md.numberofnodes,1); 19 19 20 20 %Materials 21 md.observed_temperature=(273-20)*ones(md.numberof grids,1);21 md.observed_temperature=(273-20)*ones(md.numberofnodes,1); 22 22 md.rheology_B=paterson(md.observed_temperature); 23 23 md.rheology_n=3*ones(md.numberofelements,1); … … 27 27 pos=find(md.elementoniceshelf); 28 28 md.drag_type=2; 29 md.drag_coefficient=20*ones(md.numberof grids,1);29 md.drag_coefficient=20*ones(md.numberofnodes,1); 30 30 md.drag_coefficient(md.elements(pos,:))=0; 31 31 md.drag_p=ones(md.numberofelements,1); -
issm/trunk/test/Par/SquareShelfConstrained.par
r7542 r8305 15 15 md.vy=InterpFromMeshToMesh2d(index,x,y,vy,md.x,md.y); 16 16 clear vx vy x y index; 17 md.vz=zeros(md.numberof grids,1);18 md.pressure=zeros(md.numberof grids,1);17 md.vz=zeros(md.numberofnodes,1); 18 md.pressure=zeros(md.numberofnodes,1); 19 19 20 20 %Materials 21 md.observed_temperature=(273-20)*ones(md.numberof grids,1);21 md.observed_temperature=(273-20)*ones(md.numberofnodes,1); 22 22 md.rheology_B=paterson(md.observed_temperature); 23 23 md.rheology_n=3*ones(md.numberofelements,1); … … 25 25 26 26 %Accumulation and melting 27 md.accumulation_rate=10*ones(md.numberof grids,1);28 md.melting_rate=5*ones(md.numberof grids,1);27 md.accumulation_rate=10*ones(md.numberofnodes,1); 28 md.melting_rate=5*ones(md.numberofnodes,1); 29 29 30 30 %Friction 31 31 pos=find(md.elementoniceshelf); 32 32 md.drag_type=2; 33 md.drag_coefficient=20*ones(md.numberof grids,1);33 md.drag_coefficient=20*ones(md.numberofnodes,1); 34 34 md.drag_coefficient(md.elements(pos,:))=0; 35 35 md.drag_p=ones(md.numberofelements,1); -
issm/trunk/test/Par/SquareThermal.par
r5966 r8305 7 7 disp(' creating thickness'); 8 8 h=1000; 9 md.thickness=h*ones(md.numberof grids,1);10 md.firn_layer=10*ones(md.numberof grids,1);11 md.bed=-1000*ones(md.numberof grids,1);9 md.thickness=h*ones(md.numberofnodes,1); 10 md.firn_layer=10*ones(md.numberofnodes,1); 11 md.bed=-1000*ones(md.numberofnodes,1); 12 12 md.surface=md.bed+md.thickness; 13 13 14 14 disp(' creating velocities'); 15 md.vx=zeros(md.numberof grids,1);16 md.vy=zeros(md.numberof grids,1);17 md.vz=zeros(md.numberof grids,1);15 md.vx=zeros(md.numberofnodes,1); 16 md.vy=zeros(md.numberofnodes,1); 17 md.vz=zeros(md.numberofnodes,1); 18 18 19 19 disp(' creating drag'); 20 20 md.drag_type=2; %0 none 1 plastic 2 viscous 21 md.drag_coefficient=200*ones(md.numberof grids,1); %q=1.21 md.drag_coefficient=200*ones(md.numberofnodes,1); %q=1. 22 22 %Take care of iceshelves: no basal drag 23 23 pos=find(md.elementoniceshelf); … … 27 27 28 28 disp(' creating temperatures'); 29 md.observed_temperature=(273-20)*ones(md.numberof grids,1);29 md.observed_temperature=(273-20)*ones(md.numberofnodes,1); 30 30 31 31 disp(' creating flow law paramter'); … … 34 34 35 35 disp(' creating accumulation rates'); 36 md.accumulation_rate=ones(md.numberof grids,1)/md.yts; %1m/a37 md.melting_rate=0*ones(md.numberof grids,1)/md.yts; %1m/a36 md.accumulation_rate=ones(md.numberofnodes,1)/md.yts; %1m/a 37 md.melting_rate=0*ones(md.numberofnodes,1)/md.yts; %1m/a 38 38 39 39 %Deal with boundary conditions: … … 44 44 disp(' boundary conditions for thermal model'); 45 45 md.temperature=md.observed_temperature; 46 md.spctemperature(:,1)=ones(md.numberof grids,1); %surface temperature46 md.spctemperature(:,1)=ones(md.numberofnodes,1); %surface temperature 47 47 md.spctemperature(:,2)=md.observed_temperature; 48 md.geothermalflux=zeros(md.numberof grids,1);48 md.geothermalflux=zeros(md.numberofnodes,1); 49 49 pos=find(md.elementonicesheet);md.geothermalflux(md.elements(pos,:))=1*10^-3; %1 mW/m^2
Note:
See TracChangeset
for help on using the changeset viewer.