Index: /issm/trunk/src/m/solutions/ice/diagnostic_core_nonlinear.m
===================================================================
--- /issm/trunk/src/m/solutions/ice/diagnostic_core_nonlinear.m	(revision 391)
+++ /issm/trunk/src/m/solutions/ice/diagnostic_core_nonlinear.m	(revision 392)
@@ -144,6 +144,6 @@
 if nout==2,
 	%K_ff and K_fs are requested, for the case where we have no loads (ie basal drag)
-	inputs.drag=zeros(gridset.gsize,1); kflag=1;pflag=1; 
 	inputs.velocity=soln(count).u_g;
+	kflag=1;pflag=0; 
 
 	[K_gg,p_g]=SystemMatrices(elements,grids,loads,materials,kflag, pflag, sparsity,inputs,analysis_type);