Changeset 44
- Timestamp:
- 04/24/09 15:18:31 (16 years ago)
- Location:
- issm/trunk/test/Verification
- Files:
-
- 16 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/test/Verification/test1_icesheet_noicefront/runme.m
r16 r44 1 2 % This file can be run to check that the current version of macayeal and ice models are giving 1 % This file can be run to check that the current version of macayeal and issm models are giving 3 2 % coherent results. This test deals with an icesheet without icefront for a 2d model. The geometry 4 % is square. Just run this file in Matlab, with a properly setup I cecode.3 % is square. Just run this file in Matlab, with a properly setup ISSM code. 5 4 % The results of this test will indicate if there is a difference between current computations 6 5 % and archived results. … … 33 32 md=solve(md,'diagnostic','ice'); 34 33 vel_ice=md.vel; 35 36 %Compute solution with accelerated Ice model37 md.acceleration=1;38 md=solve(md,'diagnostic','ice');39 vel_acc=md.vel;40 34 41 35 %Compute solution with Hutter elements in Ice model … … 73 67 end 74 68 75 %Accelerated Ice76 load archive_acc77 pos=find(archive_acc-vel_acc);78 error_vel=abs(norm((archive_acc(pos)-vel_acc(pos))./archive_acc(pos),2));79 80 disp(sprintf('numerical difference between old and new version of Accelerated Ice is : %d', error_vel));81 82 if (error_vel>tolerance);83 logoutput(logstring,sprintf('%s\n',' ERROR. Results from Accelerated Ice model differ from the archive version'));84 else85 logoutput(logstring,sprintf('%s\n',' SUCCESS. Results from Accelerated Ice model are comform with the archive version'));86 end87 88 69 %Ice with Hutter elements 89 70 load archive_hutter -
issm/trunk/test/Verification/test1_icesheet_noicefront/updatearchive.m
r16 r44 20 20 21 21 %Compute solution with Ice model 22 md.acceleration=0;23 22 md=solve(md,'diagnostic','ice'); 24 23 archive_ice=md.vel; … … 26 25 %Save the solution in the directory 27 26 save archive_ice archive_ice 28 29 %Compute solution with accelerated Ice model30 md.acceleration=1;31 md=solve(md,'diagnostic','ice');32 archive_acc=md.vel;33 34 %Save the solution in the directory35 save archive_acc archive_acc36 27 37 28 %Compute solution with Hutter elements in Ice model -
issm/trunk/test/Verification/test2_icesheet_icefront/runme.m
r16 r44 16 16 tolerance=10^-13; 17 17 18 19 18 md=model; 20 19 md=mesh(md,'DomainOutline.exp',50000); … … 28 27 29 28 %Compute solution with Ice model 30 md.acceleration=0;31 29 md=solve(md,'diagnostic','ice'); 32 30 vel_ice=md.vel; 33 34 %Compute solution with accelerated Ice model35 md.acceleration=1;36 md=solve(md,'diagnostic','ice');37 vel_acc=md.vel;38 31 39 32 %Compute prognostic with Ice model … … 76 69 end 77 70 78 %Accelerated Ice79 load archive_acc80 pos=find(archive_acc-vel_acc);81 error_vel=abs(norm((archive_acc(pos)-vel_acc(pos))./archive_ice(pos),2));82 83 disp(sprintf('numerical difference between old and new version of Accelerated Ice is : %d', error_vel));84 85 if (error_vel>tolerance);86 logoutput(logstring,sprintf('%s\n',' ERROR. Results from Accelerated Ice model differ from the archive version'));87 else88 logoutput(logstring,sprintf('%s\n',' SUCCESS. Results from Accelerated Ice model are comform with the archive version'));89 end90 91 71 %Ice prognostic 92 72 load archive_thickness -
issm/trunk/test/Verification/test2_icesheet_icefront/updatearchive.m
r16 r44 20 20 21 21 %Compute solution with Ice model 22 md.acceleration=0;23 22 md=solve(md,'diagnostic','ice'); 24 23 archive_ice=md.vel; … … 26 25 %Save the solution in the directory 27 26 save archive_ice archive_ice 28 29 %Compute solution with accelerated Ice model30 md.acceleration=1;31 md=solve(md,'diagnostic','ice');32 archive_acc=md.vel;33 34 %Save the solution in the directory35 save archive_acc archive_acc36 27 37 28 %Compute prognostic with Ice model -
issm/trunk/test/Verification/test3_iceshelf_icefront/runme.m
r16 r44 29 29 30 30 %Compute solution with Ice model 31 md.acceleration=0;32 31 md=solve(md,'diagnostic','ice'); 33 32 vel_ice=md.vel; 34 35 %Compute solution with accelerated Ice model36 md.acceleration=1;37 md=solve(md,'diagnostic','ice');38 vel_acc=md.vel;39 33 40 34 %Compute prognostic with Ice model … … 72 66 end 73 67 74 %Accelerated Ice75 load archive_acc76 pos=find(archive_acc-vel_acc);77 error_vel=abs(norm((archive_acc(pos)-vel_acc(pos))./archive_ice(pos),2));78 79 disp(sprintf('numerical difference between old and new version of Accelerated Ice is : %d', error_vel));80 81 if (error_vel>tolerance);82 logoutput(logstring,sprintf('%s\n',' ERROR. Results from Accelerated Ice model differ from the archive version'));83 else84 logoutput(logstring,sprintf('%s\n',' SUCCESS. Results from Accelerated Ice model are comform with the archive version'));85 end86 87 68 %Ice prognostic 88 69 load archive_thickness -
issm/trunk/test/Verification/test3_iceshelf_icefront/updatearchive.m
r16 r44 20 20 21 21 %Compute solution with Ice model 22 md.acceleration=0;23 22 md=solve(md,'diagnostic','ice'); 24 23 archive_ice=md.vel; … … 26 25 %Save the solution in the directory 27 26 save archive_ice archive_ice 28 29 %Compute solution with accelerated Ice model30 md.acceleration=1;31 md=solve(md,'diagnostic','ice');32 archive_acc=md.vel;33 34 %Save the solution in the directory35 save archive_acc archive_acc36 27 37 28 %Compute prognostic with Ice model
Note:
See TracChangeset
for help on using the changeset viewer.