Changeset 9610 for issm/trunk/src/m/model/plot/plot_basaldrag.m
- Timestamp:
- 09/06/11 11:11:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/m/model/plot/plot_basaldrag.m
r9597 r9610 17 17 18 18 %compute exponents 19 s=averaging(md,1./md. drag_p,0);20 r=averaging(md,md. drag_q./md.drag_p,0);19 s=averaging(md,1./md.friction.p,0); 20 r=averaging(md,md.friction.q./md.friction.p,0); 21 21 22 22 %compute horizontal velocity … … 30 30 31 31 %compute basal drag 32 drag=(max(md.constants.g*(md.rho_ice*md.thickness+md.rho_water*md.bed),0)).^r.*(md. drag_coefficient).^2.*ub.^s/1000;32 drag=(max(md.constants.g*(md.rho_ice*md.thickness+md.rho_water*md.bed),0)).^r.*(md.friction.coefficient).^2.*ub.^s/1000; 33 33 34 34 %Figure out if this is a Section plot
Note:
See TracChangeset
for help on using the changeset viewer.