Changeset 5117
- Timestamp:
- 08/10/10 11:44:24 (15 years ago)
- Location:
- issm/trunk/test
- Files:
-
- 7 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/test/Par/ISMIPC.par
r5049 r5117 9 9 disp(' creating drag'); 10 10 md.drag_type=2; %0 none 1 plastic 2 viscous 11 md.drag_coefficient=sqrt(md.yts.*(1000+1000*sin(md.x*2*pi/max(md.x/ 3)).*sin(md.y*2*pi/max(md.x/3)))./(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/2)).*sin(md.y*2*pi/max(md.x/2)))./(md.g*(md.rho_ice*md.thickness+md.rho_water*md.bed))); 12 12 %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))); 13 13 %Take care of iceshelves: no basal drag
Note:
See TracChangeset
for help on using the changeset viewer.