Changeset 3768
- Timestamp:
- 05/17/10 09:19:37 (15 years ago)
- Location:
- issm/trunk/test
- Files:
-
- 26 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/test/Miscellaneous/Bump/Bump.par
r2898 r3768 21 21 22 22 md.drag_type=2; %0 none 1 plastic 2 viscous 23 md.drag =30*ones(md.numberofgrids,1); %q=1.23 md.drag_coefficient=30*ones(md.numberofgrids,1); %q=1. 24 24 %Take care of iceshelves: no basal drag 25 25 pos=find(md.elementoniceshelf); 26 md.drag (md.elements(pos,:))=0;27 md. p=ones(md.numberofelements,1);28 md. q=ones(md.numberofelements,1);26 md.drag_coefficient(md.elements(pos,:))=0; 27 md.drag_p=ones(md.numberofelements,1); 28 md.drag_q=ones(md.numberofelements,1); 29 29 30 30 md.observed_temperature=(273-20)*ones(md.numberofgrids,1); 31 31 32 md. B=paterson(md.observed_temperature);33 md. n=3*ones(md.numberofelements,1);32 md.rheology_B=paterson(md.observed_temperature); 33 md.rheology_n=3*ones(md.numberofelements,1); 34 34 35 35 %Deal with boundary conditions: -
issm/trunk/test/Miscellaneous/connectivity/Square.par
r340 r3768 15 15 16 16 md.drag_type=2; %0 none 1 plastic 2 viscous 17 md.drag =200*ones(md.numberofgrids,1); %q=1.17 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 18 18 %Take care of iceshelves: no basal drag 19 19 pos=find(md.elementoniceshelf); 20 md.drag (md.elements(pos,:))=0;21 md. p=ones(md.numberofelements,1);22 md. q=ones(md.numberofelements,1);20 md.drag_coefficient(md.elements(pos,:))=0; 21 md.drag_p=ones(md.numberofelements,1); 22 md.drag_q=ones(md.numberofelements,1); 23 23 md.viscosity_overshoot=0.3; 24 24 25 25 md.observed_temperature=(273-20)*ones(md.numberofgrids,1); 26 26 27 md. B=paterson(md.observed_temperature);28 md. n=3*ones(md.numberofelements,1);27 md.rheology_B=paterson(md.observed_temperature); 28 md.rheology_n=3*ones(md.numberofelements,1); 29 29 30 30 %Deal with boundary conditions: -
issm/trunk/test/Validation/ControlMethods/Square.par
r280 r3768 17 17 disp(' creating drag'); 18 18 md.drag_type=2; %0 none 1 plastic 2 viscous 19 md.drag =200*ones(md.numberofgrids,1); %q=1.19 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 20 20 %Take care of iceshelves: no basal drag 21 21 pos=find(md.elementoniceshelf); 22 md.drag (md.elements(pos,:))=0;23 md. p=ones(md.numberofelements,1);24 md. q=ones(md.numberofelements,1);22 md.drag_coefficient(md.elements(pos,:))=0; 23 md.drag_p=ones(md.numberofelements,1); 24 md.drag_q=ones(md.numberofelements,1); 25 25 md.viscosity_overshoot=0.0; 26 26 … … 29 29 30 30 disp(' creating flow law paramter'); 31 md. B=paterson(md.observed_temperature);32 md. n=3*ones(md.numberofelements,1);31 md.rheology_B=paterson(md.observed_temperature); 32 md.rheology_n=3*ones(md.numberofelements,1); 33 33 34 34 %Deal with boundary conditions: -
issm/trunk/test/Validation/EISMINT/Diagnostic1/Square.par
r900 r3768 11 11 disp(' creating drag'); 12 12 md.drag_type=2; %0 none 1 plastic 2 viscous 13 md.drag =200*ones(md.numberofgrids,1); %q=1.13 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 14 14 %Take care of iceshelves: no basal drag 15 15 pos=find(md.elementoniceshelf); 16 md.drag (md.elements(pos,:))=0;17 md. p=ones(md.numberofelements,1);18 md. q=ones(md.numberofelements,1);16 md.drag_coefficient(md.elements(pos,:))=0; 17 md.drag-p=ones(md.numberofelements,1); 18 md.drag_q=ones(md.numberofelements,1); 19 19 20 20 disp(' creating temperature'); … … 22 22 23 23 disp(' creating flow law paramter'); 24 md. B=1.7687*10^8*ones(md.numberofgrids,1);25 md. n=3*ones(md.numberofelements,1);24 md.rheology_B=1.7687*10^8*ones(md.numberofgrids,1); 25 md.rheology_n=3*ones(md.numberofelements,1); 26 26 27 27 disp(' creating accumulation rates'); 28 md.accumulation =0.2*ones(md.numberofgrids,1); %0.2m/a29 md.melting =0*ones(md.numberofgrids,1); %0m/a28 md.accumulation_rate=0.2*ones(md.numberofgrids,1); %0.2m/a 29 md.melting_rate=0*ones(md.numberofgrids,1); %0m/a 30 30 31 31 disp(' boundary conditions '); -
issm/trunk/test/Validation/EISMINT/Diagnostic2/Square.par
r900 r3768 11 11 disp(' creating drag'); 12 12 md.drag_type=2; %0 none 1 plastic 2 viscous 13 md.drag =200*ones(md.numberofgrids,1); %q=1.13 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 14 14 %Take care of iceshelves: no basal drag 15 15 pos=find(md.elementoniceshelf); 16 md.drag (md.elements(pos,:))=0;17 md. p=ones(md.numberofelements,1);18 md. q=ones(md.numberofelements,1);16 md.drag_coefficient(md.elements(pos,:))=0; 17 md.drag_p=ones(md.numberofelements,1); 18 md.drag_q=ones(md.numberofelements,1); 19 19 20 20 disp(' creating temperature'); … … 22 22 23 23 disp(' creating flow law paramter'); 24 md. B=1.7687*10^8*ones(md.numberofgrids,1);25 md. n=3*ones(md.numberofelements,1);24 md.rheology_B=1.7687*10^8*ones(md.numberofgrids,1); 25 md.rheology_n=3*ones(md.numberofelements,1); 26 26 27 27 disp(' creating accumulation rates'); 28 md.accumulation =0.2*ones(md.numberofgrids,1); %0.2m/a29 md.melting =0*ones(md.numberofgrids,1); %0m/a28 md.accumulation_rate=0.2*ones(md.numberofgrids,1); %0.2m/a 29 md.melting_rate=0*ones(md.numberofgrids,1); %0m/a 30 30 31 31 disp(' boundary conditions '); -
issm/trunk/test/Validation/EISMINT/MassConservation/Square.par
r3156 r3768 11 11 disp(' creating drag'); 12 12 md.drag_type=2; %0 none 1 plastic 2 viscous 13 md.drag =200*ones(md.numberofgrids,1); %q=1.13 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 14 14 %Take care of iceshelves: no basal drag 15 15 pos=find(md.elementoniceshelf); 16 md.drag (md.elements(pos,:))=0;17 md. p=ones(md.numberofelements,1);18 md. q=ones(md.numberofelements,1);16 md.drag_coefficient(md.elements(pos,:))=0; 17 md.drag-p=ones(md.numberofelements,1); 18 md.drag_q=ones(md.numberofelements,1); 19 19 20 20 disp(' creating temperature'); … … 23 23 disp(' creating flow law paramter'); 24 24 %md.B=paterson(md.observed_temperature); 25 md. B=1.7687*10^8*ones(md.numberofgrids,1);26 md. n=3*ones(md.numberofelements,1);25 md.rheology_B=1.7687*10^8*ones(md.numberofgrids,1); 26 md.rheology_n=3*ones(md.numberofelements,1); 27 27 28 28 disp(' creating accumulation rates'); 29 md.accumulation =0.0*ones(md.numberofgrids,1); %0m/a30 md.melting =0*ones(md.numberofgrids,1); %0m/a29 md.accumulation_rate=0.0*ones(md.numberofgrids,1); %0m/a 30 md.melting_rate=0*ones(md.numberofgrids,1); %0m/a 31 31 32 32 disp(' boundary conditions '); -
issm/trunk/test/Validation/EISMINT/Transient/Square.par
r900 r3768 11 11 disp(' creating drag'); 12 12 md.drag_type=2; %0 none 1 plastic 2 viscous 13 md.drag =200*ones(md.numberofgrids,1); %q=1.13 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 14 14 %Take care of iceshelves: no basal drag 15 15 pos=find(md.elementoniceshelf); 16 md.drag (md.elements(pos,:))=0;17 md. p=ones(md.numberofelements,1);18 md. q=ones(md.numberofelements,1);16 md.drag_coefficient(md.elements(pos,:))=0; 17 md.drag_p=ones(md.numberofelements,1); 18 md.drag_q=ones(md.numberofelements,1); 19 19 20 20 disp(' creating temperature'); … … 22 22 23 23 disp(' creating flow law paramter'); 24 md. B=1.7687*10^8*ones(md.numberofgrids,1);25 md. n=3*ones(md.numberofelements,1);24 md.rheology_B=1.7687*10^8*ones(md.numberofgrids,1); 25 md.rheology_n=3*ones(md.numberofelements,1); 26 26 27 27 disp(' creating accumulation rates'); 28 md.accumulation =0.2*ones(md.numberofgrids,1); %0.2m/a29 md.melting =0*ones(md.numberofgrids,1); %0m/a28 md.accumulation_rate=0.2*ones(md.numberofgrids,1); %0.2m/a 29 md.melting_rate=0*ones(md.numberofgrids,1); %0m/a 30 30 31 31 disp(' boundary conditions '); -
issm/trunk/test/Validation/HydrostaticIceSheet/NoFront/Square.par
r761 r3768 12 12 disp(' creating drag'); 13 13 md.drag_type=2; %0 none 1 plastic 2 viscous 14 md.drag =200*ones(md.numberofgrids,1); %q=1.14 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 15 15 %Take care of iceshelves: no basal drag 16 16 pos=find(md.elementoniceshelf); 17 md.drag (md.elements(pos,:))=0;18 md. p=ones(md.numberofelements,1);19 md. q=ones(md.numberofelements,1);17 md.drag_coefficient(md.elements(pos,:))=0; 18 md.drag_p=ones(md.numberofelements,1); 19 md.drag_q=ones(md.numberofelements,1); 20 20 md.viscosity_overshoot=0.3; 21 21 … … 24 24 25 25 disp(' creating flow law paramter'); 26 md. B=paterson(md.observed_temperature);27 md. n=3*ones(md.numberofelements,1);26 md.rheology_B=paterson(md.observed_temperature); 27 md.rheology_n=3*ones(md.numberofelements,1); 28 28 29 29 %Deal with boundary conditions: -
issm/trunk/test/Validation/HydrostaticIceSheet/WithFront/Square.par
r761 r3768 12 12 disp(' creating drag'); 13 13 md.drag_type=2; %0 none 1 plastic 2 viscous 14 md.drag =200*ones(md.numberofgrids,1); %q=1.14 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 15 15 %Take care of iceshelves: no basal drag 16 16 pos=find(md.elementoniceshelf); 17 md.drag (md.elements(pos,:))=0;18 md. p=ones(md.numberofelements,1);19 md. q=ones(md.numberofelements,1);17 md.drag_coefficient(md.elements(pos,:))=0; 18 md.drag_p=ones(md.numberofelements,1); 19 md.drag_q=ones(md.numberofelements,1); 20 20 md.viscosity_overshoot=0.3; 21 21 … … 24 24 25 25 disp(' creating flow law paramter'); 26 md. B=paterson(md.observed_temperature);27 md. n=3*ones(md.numberofelements,1);26 md.rheology_B=paterson(md.observed_temperature); 27 md.rheology_n=3*ones(md.numberofelements,1); 28 28 29 29 %Deal with boundary conditions: -
issm/trunk/test/Validation/ISMIP/TestA/Square.par
r904 r3768 9 9 disp(' creating drag'); 10 10 md.drag_type=2; %0 none 1 plastic 2 viscous 11 md.drag =200*ones(md.numberofgrids,1); %q=1.11 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 12 12 %Take care of iceshelves: no basal drag 13 13 pos=find(md.elementoniceshelf); 14 md.drag (md.elements(pos,:))=0;15 md. p=ones(md.numberofelements,1);16 md. q=ones(md.numberofelements,1);14 md.drag_coefficient(md.elements(pos,:))=0; 15 md.drag_p=ones(md.numberofelements,1); 16 md.drag_q=ones(md.numberofelements,1); 17 17 18 18 disp(' creating flow law paramter'); 19 md. B=6.8067*10^7*ones(md.numberofgrids,1);20 md. n=3*ones(md.numberofelements,1);19 md.rheology_B=6.8067*10^7*ones(md.numberofgrids,1); 20 md.rheology_n=3*ones(md.numberofelements,1); 21 21 22 22 disp(' boundary conditions for diagnostic model'); -
issm/trunk/test/Validation/ISMIP/TestB/Square.par
r904 r3768 9 9 disp(' creating drag'); 10 10 md.drag_type=2; %0 none 1 plastic 2 viscous 11 md.drag =200*ones(md.numberofgrids,1); %q=1.11 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 12 12 %Take care of iceshelves: no basal drag 13 13 pos=find(md.elementoniceshelf); 14 md.drag (md.elements(pos,:))=0;15 md. p=ones(md.numberofelements,1);16 md. q=ones(md.numberofelements,1);14 md.drag_coefficient(md.elements(pos,:))=0; 15 md.drag_p=ones(md.numberofelements,1); 16 md.drag_q=ones(md.numberofelements,1); 17 17 18 18 disp(' creating flow law paramter'); 19 md. B=6.8067*10^7*ones(md.numberofgrids,1);20 md. n=3*ones(md.numberofelements,1);19 md.rheology_B=6.8067*10^7*ones(md.numberofgrids,1); 20 md.rheology_n=3*ones(md.numberofelements,1); 21 21 22 22 disp(' boundary conditions for diagnostic model: '); -
issm/trunk/test/Validation/ISMIP/TestC/Square.par
r904 r3768 9 9 disp(' creating drag'); 10 10 md.drag_type=2; %0 none 1 plastic 2 viscous 11 md.drag =sqrt(md.yts.*(1000+1000*sin(md.x*2*pi/max(md.x)).*sin(md.y*2*pi/max(md.x)))./(md.g*(md.rho_ice*md.thickness+md.rho_water*md.bed)));11 md.drag_coefficient=sqrt(md.yts.*(1000+1000*sin(md.x*2*pi/max(md.x)).*sin(md.y*2*pi/max(md.x)))./(md.g*(md.rho_ice*md.thickness+md.rho_water*md.bed))); 12 12 %Take care of iceshelves: no basal drag 13 13 pos=find(md.elementoniceshelf); 14 md.drag (md.elements(pos,:))=0;15 md. p=ones(md.numberofelements,1);16 md. q=ones(md.numberofelements,1);14 md.drag_coefficient(md.elements(pos,:))=0; 15 md.drag_p=ones(md.numberofelements,1); 16 md.drag_q=ones(md.numberofelements,1); 17 17 18 18 disp(' creating flow law paramter'); 19 md. B=6.8067*10^7*ones(md.numberofgrids,1);20 md. n=3*ones(md.numberofelements,1);19 md.rheology_B=6.8067*10^7*ones(md.numberofgrids,1); 20 md.rheology_n=3*ones(md.numberofelements,1); 21 21 22 22 disp(' boundary conditions for diagnostic model: '); -
issm/trunk/test/Validation/ISMIP/TestD/Square.par
r904 r3768 9 9 disp(' creating drag'); 10 10 md.drag_type=2; %0 none 1 plastic 2 viscous 11 md.drag =sqrt(md.yts.*(1000+1000*sin(md.x*2*pi/max(md.x)))./(md.g*(md.rho_ice*md.thickness+md.rho_water*md.bed)));11 md.drag_coefficient=sqrt(md.yts.*(1000+1000*sin(md.x*2*pi/max(md.x)))./(md.g*(md.rho_ice*md.thickness+md.rho_water*md.bed))); 12 12 %Take care of iceshelves: no basal drag 13 13 pos=find(md.elementoniceshelf); 14 md.drag (md.elements(pos,:))=0;15 md. p=ones(md.numberofelements,1);16 md. q=ones(md.numberofelements,1);14 md.drag_coefficient(md.elements(pos,:))=0; 15 md.drag_p=ones(md.numberofelements,1); 16 md.drag_q=ones(md.numberofelements,1); 17 17 18 18 disp(' creating flow law paramter'); 19 md. B=6.8067*10^7*ones(md.numberofgrids,1);20 md. n=3*ones(md.numberofelements,1);19 md.rheology_B=6.8067*10^7*ones(md.numberofgrids,1); 20 md.rheology_n=3*ones(md.numberofelements,1); 21 21 22 22 disp(' boundary conditions for diagnostic model: '); -
issm/trunk/test/Validation/ISMIP/TestE/Square.par
r904 r3768 21 21 disp(' creating drag'); 22 22 md.drag_type=2; %0 none 1 plastic 2 viscous 23 md.drag =zeros(md.numberofgrids,1);23 md.drag_coefficient=zeros(md.numberofgrids,1); 24 24 %Take care of iceshelves: no basal drag 25 25 pos=find(md.elementoniceshelf); 26 md.drag (md.elements(pos,:))=0;27 md. p=ones(md.numberofelements,1);28 md. q=ones(md.numberofelements,1);26 md.drag_coefficient(md.elements(pos,:))=0; 27 md.drag_p=ones(md.numberofelements,1); 28 md.drag_q=ones(md.numberofelements,1); 29 29 30 30 disp(' creating flow law paramter'); 31 md. B=6.8067*10^7*ones(md.numberofgrids,1);32 md. n=3*ones(md.numberofelements,1);31 md.rheology_B=6.8067*10^7*ones(md.numberofgrids,1); 32 md.rheology_n=3*ones(md.numberofelements,1); 33 33 34 34 disp(' boundary conditions for diagnostic model: '); -
issm/trunk/test/Validation/ISMIP/TestF/Square.par
r2527 r3768 11 11 disp(' creating drag'); 12 12 md.drag_type=2; %0 none 1 plastic 2 viscous 13 md.drag =sqrt(md.yts.*(2.140373*10^-7*1000)^(-1));14 md. p=ones(md.numberofelements,1);15 md. q=zeros(md.numberofelements,1);13 md.drag_coefficient=sqrt(md.yts.*(2.140373*10^-7*1000)^(-1)); 14 md.drag_p=ones(md.numberofelements,1); 15 md.drag_q=zeros(md.numberofelements,1); 16 16 17 17 disp(' creating flow law paramter'); 18 md. B=1.4734*10^14*ones(md.numberofgrids,1);19 md. n=1*ones(md.numberofelements,1);18 md.rheology_B=1.4734*10^14*ones(md.numberofgrids,1); 19 md.rheology_n=1*ones(md.numberofelements,1); 20 20 21 21 disp(' boundary conditions for diagnostic model'); -
issm/trunk/test/Validation/MacAyealVsPattyn/test1_iceshelf/Square.par
r909 r3768 16 16 disp(' creating drag'); 17 17 md.drag_type=2; %0 none 1 plastic 2 viscous 18 md.drag =200*ones(md.numberofgrids,1); %q=1.18 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 19 19 %Take care of iceshelves: no basal drag 20 20 pos=find(md.elementoniceshelf); 21 md.drag (md.elements(pos,:))=0;22 md. p=ones(md.numberofelements,1);23 md. q=ones(md.numberofelements,1);21 md.drag_coefficient(md.elements(pos,:))=0; 22 md.drag_p=ones(md.numberofelements,1); 23 md.drag_q=ones(md.numberofelements,1); 24 24 25 25 disp(' creating flow law paramter'); 26 md. B=paterson(md.observed_temperature);27 md. n=3*ones(md.numberofelements,1);26 md.rheology_B=paterson(md.observed_temperature); 27 md.rheology_n=3*ones(md.numberofelements,1); 28 28 29 29 disp(' boundary conditions for diagnostic model: '); -
issm/trunk/test/Validation/MacAyealVsPattyn/test2_icesheet/Square.par
r909 r3768 16 16 disp(' creating drag'); 17 17 md.drag_type=2; %0 none 1 plastic 2 viscous 18 md.drag =10*ones(md.numberofgrids,1); %q=1.18 md.drag_coefficient=10*ones(md.numberofgrids,1); %q=1. 19 19 %Take care of iceshelves: no basal drag 20 20 pos=find(md.elementoniceshelf); 21 md.drag (md.elements(pos,:))=0;22 md. p=ones(md.numberofelements,1);23 md. q=ones(md.numberofelements,1);21 md.drag_coefficient(md.elements(pos,:))=0; 22 md.drag_p=ones(md.numberofelements,1); 23 md.drag_q=ones(md.numberofelements,1); 24 24 25 25 disp(' creating flow law paramter'); 26 md. B=paterson(md.observed_temperature);27 md. n=3*ones(md.numberofelements,1);26 md.rheology_B=paterson(md.observed_temperature); 27 md.rheology_n=3*ones(md.numberofelements,1); 28 28 29 29 %Deal with boundary conditions: -
issm/trunk/test/Validation/MacAyealVsPattyn/test3_icesheet_iceshelf/Square.par
r909 r3768 12 12 disp(' creating drag'); 13 13 md.drag_type=2; %0 none 1 plastic 2 viscous 14 md.drag =200*ones(md.numberofgrids,1); %q=1.14 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 15 15 %Take care of iceshelves: no basal drag 16 16 pos=find(md.elementoniceshelf); 17 md.drag (md.elements(pos,:))=0;18 md. p=ones(md.numberofelements,1);19 md. q=ones(md.numberofelements,1);17 md.drag_coefficient(md.elements(pos,:))=0; 18 md.drag_p=ones(md.numberofelements,1); 19 md.drag_q=ones(md.numberofelements,1); 20 20 21 21 disp(' creating temperature'); … … 23 23 24 24 disp(' creating flow law paramter'); 25 md. B=paterson(md.observed_temperature);26 md. n=3*ones(md.numberofelements,1);25 md.rheology_B=paterson(md.observed_temperature); 26 md.rheology_n=3*ones(md.numberofelements,1); 27 27 28 28 %Deal with boundary conditions: -
issm/trunk/test/Validation/PattynStokes/test1_iceshelf/Square.par
r910 r3768 13 13 disp(' creating drag'); 14 14 md.drag_type=2; %0 none 1 plastic 2 viscous 15 md.drag =200*ones(md.numberofgrids,1); %q=1.15 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 16 16 %Take care of iceshelves: no basal drag 17 17 pos=find(md.elementoniceshelf); 18 md.drag (md.elements(pos,:))=0;19 md. p=ones(md.numberofelements,1);20 md. q=ones(md.numberofelements,1);18 md.drag_coefficient(md.elements(pos,:))=0; 19 md.drag_p=ones(md.numberofelements,1); 20 md.drag_q=ones(md.numberofelements,1); 21 21 22 22 disp(' creating temperature'); … … 24 24 25 25 disp(' creating flow law paramter'); 26 md. B=paterson(md.observed_temperature);27 md. n=3*ones(md.numberofelements,1);26 md.rheology_B=paterson(md.observed_temperature); 27 md.rheology_n=3*ones(md.numberofelements,1); 28 28 29 29 disp(' boundary conditions for diagnostic model: '); -
issm/trunk/test/Validation/PattynStokes/test2_icesheet/Square.par
r910 r3768 13 13 disp(' creating drag'); 14 14 md.drag_type=2; %0 none 1 plastic 2 viscous 15 md.drag =200*ones(md.numberofgrids,1); %q=1.15 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 16 16 %Take care of iceshelves: no basal drag 17 17 pos=find(md.elementoniceshelf); 18 md.drag (md.elements(pos,:))=0;19 md. p=ones(md.numberofelements,1);20 md. q=ones(md.numberofelements,1);18 md.drag_coefficient(md.elements(pos,:))=0; 19 md.drag_p=ones(md.numberofelements,1); 20 md.drag_q=ones(md.numberofelements,1); 21 21 22 22 disp(' creating temperature'); … … 24 24 25 25 disp(' creating flow law paramter'); 26 md. B=paterson(md.observed_temperature);27 md. n=3*ones(md.numberofelements,1);26 md.rheology_B=paterson(md.observed_temperature); 27 md.rheology_n=3*ones(md.numberofelements,1); 28 28 29 29 %Deal with boundary conditions: -
issm/trunk/test/Validation/PattynStokes/test3_icesheet_iceshelf/Square.par
r910 r3768 13 13 disp(' creating drag'); 14 14 md.drag_type=2; %0 none 1 plastic 2 viscous 15 md.drag =200*ones(md.numberofgrids,1); %q=1.15 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 16 16 %Take care of iceshelves: no basal drag 17 17 pos=find(md.elementoniceshelf); 18 md.drag (md.elements(pos,:))=0;19 md. p=ones(md.numberofelements,1);20 md. q=ones(md.numberofelements,1);18 md.drag_coefficient(md.elements(pos,:))=0; 19 md.drag_p=ones(md.numberofelements,1); 20 md.drag_q=ones(md.numberofelements,1); 21 21 22 22 disp(' creating temperature'); … … 24 24 25 25 disp(' creating flow law paramter'); 26 md. B=paterson(md.observed_temperature);27 md. n=3*ones(md.numberofelements,1);26 md.rheology_B=paterson(md.observed_temperature); 27 md.rheology_n=3*ones(md.numberofelements,1); 28 28 29 29 %Deal with boundary conditions: -
issm/trunk/test/Validation/RoundIceSheet/Circ.par
r908 r3768 13 13 disp(' creating drag'); 14 14 md.drag_type=2; %0 none 1 plastic 2 viscous 15 md.drag =20*ones(md.numberofgrids,1); %q=1. %no drag is specified in the analytical solution15 md.drag_coefficient=20*ones(md.numberofgrids,1); %q=1. %no drag is specified in the analytical solution 16 16 %Take care of iceshelves: no basal drag 17 17 pos=find(md.elementoniceshelf); 18 md.drag (md.elements(pos,:))=0;19 md. p=ones(md.numberofelements,1);20 md. q=ones(md.numberofelements,1);18 md.drag_coefficient(md.elements(pos,:))=0; 19 md.drag_p=ones(md.numberofelements,1); 20 md.drag_q=ones(md.numberofelements,1); 21 21 22 22 disp(' creating temperatures'); … … 24 24 25 25 disp(' creating flow law paramter'); 26 md. B=6.81*10^(7)*ones(md.numberofgrids,1); %to have the same B as the analytical solution27 md. n=3*ones(md.numberofelements,1);26 md.rheology_B=6.81*10^(7)*ones(md.numberofgrids,1); %to have the same B as the analytical solution 27 md.rheology_n=3*ones(md.numberofelements,1); 28 28 29 29 disp(' creating accumulation rates'); 30 md.accumulation =0.3*ones(md.numberofgrids,1)/md.yts; %1m/a30 md.accumulation_rate=0.3*ones(md.numberofgrids,1)/md.yts; %1m/a 31 31 32 32 disp(' creating velocities'); -
issm/trunk/test/Validation/ThermalTests/Melting/Square.par
r900 r3768 18 18 disp(' creating drag'); 19 19 md.drag_type=2; %0 none 1 plastic 2 viscous 20 md.drag =200*ones(md.numberofgrids,1); %q=1.20 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 21 21 %Take care of iceshelves: no basal drag 22 22 pos=find(md.elementoniceshelf); 23 md.drag (md.elements(pos,:))=0;24 md. p=ones(md.numberofelements,1);25 md. q=ones(md.numberofelements,1);23 md.drag_coefficient(md.elements(pos,:))=0; 24 md.drag_p=ones(md.numberofelements,1); 25 md.drag_q=ones(md.numberofelements,1); 26 26 27 27 disp(' creating temperatures'); … … 29 29 30 30 disp(' creating flow law paramter'); 31 md. B=paterson(md.observed_temperature);32 md. n=3*ones(md.numberofelements,1);31 md.rheology_B=paterson(md.observed_temperature); 32 md.rheology_n=3*ones(md.numberofelements,1); 33 33 34 34 disp(' creating accumulation rates'); 35 md.accumulation =ones(md.numberofgrids,1)/md.yts; %1m/a36 md.melting =0*ones(md.numberofgrids,1)/md.yts; %1m/a35 md.accumulation_rate=ones(md.numberofgrids,1)/md.yts; %1m/a 36 md.melting_rate=0*ones(md.numberofgrids,1)/md.yts; %1m/a 37 37 38 38 %Deal with boundary conditions: -
issm/trunk/test/Validation/ThermalTests/Simpleadvection/Square.par
r900 r3768 18 18 disp(' creating drag'); 19 19 md.drag_type=2; %0 none 1 plastic 2 viscous 20 md.drag =200*ones(md.numberofgrids,1); %q=1.20 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 21 21 %Take care of iceshelves: no basal drag 22 22 pos=find(md.elementoniceshelf); 23 md.drag (md.elements(pos,:))=0;24 md. p=ones(md.numberofelements,1);25 md. q=ones(md.numberofelements,1);23 md.drag_coefficient(md.elements(pos,:))=0; 24 md.drag_p=ones(md.numberofelements,1); 25 md.drag_q=ones(md.numberofelements,1); 26 26 27 27 disp(' creating temperatures'); … … 29 29 30 30 disp(' creating flow law paramter'); 31 md. B=paterson(md.observed_temperature);32 md. n=3*ones(md.numberofelements,1);31 md.rheology_B=paterson(md.observed_temperature); 32 md.rheology_n=3*ones(md.numberofelements,1); 33 33 34 34 disp(' creating accumulation rates'); 35 md.accumulation =ones(md.numberofgrids,1)/md.yts; %1m/a36 md.melting =0*ones(md.numberofgrids,1)/md.yts; %1m/a35 md.accumulation_rate=ones(md.numberofgrids,1)/md.yts; %1m/a 36 md.melting_rate=0*ones(md.numberofgrids,1)/md.yts; %1m/a 37 37 38 38 %Deal with boundary conditions: -
issm/trunk/test/Validation/ThermalTests/Simpleconduction/Square.par
r491 r3768 18 18 disp(' creating drag'); 19 19 md.drag_type=2; %0 none 1 plastic 2 viscous 20 md.drag =200*ones(md.numberofgrids,1); %q=1.20 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 21 21 %Take care of iceshelves: no basal drag 22 22 pos=find(md.elementoniceshelf); 23 md.drag (md.elements(pos,:))=0;24 md. p=ones(md.numberofelements,1);25 md. q=ones(md.numberofelements,1);23 md.drag_coefficient(md.elements(pos,:))=0; 24 md.drag_p=ones(md.numberofelements,1); 25 md.drag_q=ones(md.numberofelements,1); 26 26 27 27 disp(' creating temperatures'); … … 29 29 30 30 disp(' creating flow law paramter'); 31 md. B=paterson(md.observed_temperature);32 md. n=3*ones(md.numberofelements,1);31 md.rheology_B=paterson(md.observed_temperature); 32 md.rheology_n=3*ones(md.numberofelements,1); 33 33 34 34 disp(' creating accumulation rates'); 35 md.accumulation =ones(md.numberofgrids,1)/md.yts; %1m/a36 md.melting =0*ones(md.numberofgrids,1)/md.yts; %1m/a35 md.accumulation_rate=ones(md.numberofgrids,1)/md.yts; %1m/a 36 md.melting_rate=0*ones(md.numberofgrids,1)/md.yts; %1m/a 37 37 38 38 %Deal with boundary conditions: -
issm/trunk/test/Validation/ThermalTests/Simplegeothermalflux/Square.par
r900 r3768 18 18 disp(' creating drag'); 19 19 md.drag_type=2; %0 none 1 plastic 2 viscous 20 md.drag =200*ones(md.numberofgrids,1); %q=1.20 md.drag_coefficient=200*ones(md.numberofgrids,1); %q=1. 21 21 %Take care of iceshelves: no basal drag 22 22 pos=find(md.elementoniceshelf); 23 md.drag (md.elements(pos,:))=0;24 md. p=ones(md.numberofelements,1);25 md. q=ones(md.numberofelements,1);23 md.drag_coefficient(md.elements(pos,:))=0; 24 md.drag_p=ones(md.numberofelements,1); 25 md.drag_q=ones(md.numberofelements,1); 26 26 27 27 disp(' creating temperatures'); … … 29 29 30 30 disp(' creating flow law paramter'); 31 md. B=paterson(md.observed_temperature);32 md. n=3*ones(md.numberofelements,1);31 md.rheology_B=paterson(md.observed_temperature); 32 md.rheology_n=3*ones(md.numberofelements,1); 33 33 34 34 disp(' creating accumulation rates'); 35 md.accumulation =ones(md.numberofgrids,1)/md.yts; %1m/a36 md.melting =0*ones(md.numberofgrids,1)/md.yts; %1m/a35 md.accumulation_rate=ones(md.numberofgrids,1)/md.yts; %1m/a 36 md.melting_rate=0*ones(md.numberofgrids,1)/md.yts; %1m/a 37 37 38 38 %Deal with boundary conditions:
Note:
See TracChangeset
for help on using the changeset viewer.