Changeset 9610 for issm/trunk/src/m/model/plot/plot_basaldrag.m

Timestamp:

09/06/11 11:11:00 (14 years ago)

Author:

Mathieu Morlighem

Message:

Added friction object

File:

• issm/trunk/src/m/model/plot/plot_basaldrag.m (modified) (2 diffs)

issm/trunk/src/m/model/plot/plot_basaldrag.m

@@ -17 +17 @@
 
 %compute exponents
-s=averaging(md,1./md.drag_p,0);
-r=averaging(md,md.drag_q./md.drag_p,0);
+s=averaging(md,1./md.friction.p,0);
+r=averaging(md,md.friction.q./md.friction.p,0);
 
 %compute horizontal velocity
@@ -30 +30 @@
 
 %compute basal drag
-drag=(max(md.constants.g*(md.rho_ice*md.thickness+md.rho_water*md.bed),0)).^r.*(md.drag_coefficient).^2.*ub.^s/1000;
+drag=(max(md.constants.g*(md.rho_ice*md.thickness+md.rho_water*md.bed),0)).^r.*(md.friction.coefficient).^2.*ub.^s/1000;
 
 %Figure out if this is a Section plot