Index: /issm/trunk/src/m/solutions/cielo/diagnostic_core_nonlinear.m
===================================================================
--- /issm/trunk/src/m/solutions/cielo/diagnostic_core_nonlinear.m	(revision 1411)
+++ /issm/trunk/src/m/solutions/cielo/diagnostic_core_nonlinear.m	(revision 1412)
@@ -50,5 +50,5 @@
 
 		%Get residue
-		residu=norm(K_ff*soln(count).u_f-p_f,2);
+		residu=norm(K_ff*soln(count).u_f-p_f,2)/norm(p_f,2);
 
 		%Merge back to g set
@@ -72,5 +72,5 @@
 
 		%Residue criterion
-		displaystring(m.parameters.debug,'%s%g','      convergence criterion: norm(residue)=',residu);
+		displaystring(m.parameters.debug,'%s%g','      convergence criterion: norm(KU-F)/norm(F)=',residu);
 
 		%Relative criterion