Index: /issm/trunk/src/m/qmu/setupdesign/IsScaled.m
===================================================================
--- /issm/trunk/src/m/qmu/setupdesign/IsScaled.m	(revision 5484)
+++ /issm/trunk/src/m/qmu/setupdesign/IsScaled.m	(revision 5485)
@@ -3,5 +3,5 @@
 
 switch variablename,
-case {'RhoIce','RhoWater','HeatCapacity','ThermalConductivity','Gravity'},
+case {'RhoIce','RhoWater','HeatCapacity','ThermalConductivity','Gravity','MaxVel'},
 
 	status=0;
Index: sm/trunk/src/m/qmu/setupdesign/QmuSetupDesign.m
===================================================================
--- /issm/trunk/src/m/qmu/setupdesign/QmuSetupDesign.m	(revision 5484)
+++ 	(revision )
@@ -1,44 +1,0 @@
-function dvar=QmuSetupDesign(md,dvar,variables)
-
-%get descriptor
-descriptor=variables.descriptor;
-
-%decide whether this is a distributed variable, which will drive whether we expand it into npart values,
-%or if we just carry it forward as is. 
-
-%if descriptor is something like 'Thickness1','Surface10', etc ... the variable expansion already did the work, skip
-if qmuisdistributed(descriptor),
-	dvar(end+1)=variables;
-	return;
-end
-
-%if descriptor is more generic, like 'Thickness','RhoIce', decide whether it will get expanded.
-flag=IsScaled(descriptor); %will error out if the descriptor is unknow.
-
-if flag==0,
-	dvar(end+1)=variables;
-
-elseif flag==1,
-
-	if length(variables.stddev)>md.npart,
-		error('QmuSetupDesign error message: stddev should be either a scalar or a ''npart'' length vector');
-	end
-
-	%ok, dealing with semi-discrete distributed variable. Distribute according to how many 
-	%partitions we want
-
-	for j=1:md.npart
-		dvar(end+1)           =variables;
-		dvar(end  ).descriptor=sprintf('%s%d',variables.descriptor,j);
-		if length(variables.stddev)>1,
-			dvar(end  ).stddev=variables.stddev(j);
-		end
-	end
-
-elseif flag==2,
-
-	%special case
-	if strcmpi(descriptor,'RiftsFriction'),
-		dvar=setupriftsfriction(md,dvar,variable);
-	end
-end
Index: /issm/trunk/src/m/qmu/setupdesign/QmuSetupResponses.m
===================================================================
--- /issm/trunk/src/m/qmu/setupdesign/QmuSetupResponses.m	(revision 5485)
+++ /issm/trunk/src/m/qmu/setupdesign/QmuSetupResponses.m	(revision 5485)
@@ -0,0 +1,23 @@
+function dresp=QmuSetupResponses(md,dresp,responses)
+
+%get descriptor
+descriptor=responses.descriptor;
+
+%decide whether this is a distributed response, which will drive whether we expand it into npart values,
+%or if we just carry it forward as is. 
+
+%ok, key off according to type of descriptor:
+if strncmp(descriptor,'scaled_',7),
+	%we have a scaled response, expand it over the partition.
+
+	%ok, dealing with semi-discrete distributed response. Distribute according to how many 
+	%partitions we want
+
+	for j=1:md.npart
+		dresp(end+1)           =responses;
+		dresp(end  ).descriptor=sprintf('%s_%d',responses.descriptor,j);
+	end
+
+else
+	dresp(end+1)=responses;
+end
Index: /issm/trunk/src/m/qmu/setupdesign/QmuSetupVariables.m
===================================================================
--- /issm/trunk/src/m/qmu/setupdesign/QmuSetupVariables.m	(revision 5485)
+++ /issm/trunk/src/m/qmu/setupdesign/QmuSetupVariables.m	(revision 5485)
@@ -0,0 +1,31 @@
+function dvar=QmuSetupVariables(md,dvar,variables)
+
+%get descriptor
+descriptor=variables.descriptor;
+
+%decide whether this is a distributed variable, which will drive whether we expand it into npart values,
+%or if we just carry it forward as is. 
+
+
+%ok, key off according to type of descriptor:
+if strncmp(descriptor,'scaled_',7),
+	%we have a scaled variable, expand it over the partition.
+
+	if length(variables.stddev)>md.npart,
+		error('QmuSetupDesign error message: stddev should be either a scalar or a ''npart'' length vector');
+	end
+
+	%ok, dealing with semi-discrete distributed variable. Distribute according to how many 
+	%partitions we want
+
+	for j=1:md.npart
+		dvar(end+1)           =variables;
+		dvar(end  ).descriptor=sprintf('%s_%d',variables.descriptor,j);
+		if length(variables.stddev)>1,
+			dvar(end  ).stddev=variables.stddev(j);
+		end
+	end
+
+else
+	dvar(end+1)=variables;
+end
