Index: /issm/trunk-jpl/src/m/psl/shlm.m
===================================================================
--- /issm/trunk-jpl/src/m/psl/shlm.m	(revision 20330)
+++ /issm/trunk-jpl/src/m/psl/shlm.m	(revision 20331)
@@ -15,10 +15,8 @@
 
 sh_lm = zeros((lMax+1)^2,1); 
-%sh_lm = zeros(1,(lMax+1)^2); 
 
 % weighted area integration over the unit sphere 
 for l=0:lMax
    for m=-l:l
-      %func0 = sh(:,1+p).*(func<1); 
       func0 = sh(:,1+p).*func; 
       sh_lm(1+p) = sum(mean(func0(index),2).*areas); 
@@ -26,5 +24,4 @@
    end
 end 
-%sh_lm = sh_lm/sum(areas);
 sh_lm = sh_lm*4*pi/sum(areas);
 
Index: /issm/trunk-jpl/src/m/psl/shlm_element.m
===================================================================
--- /issm/trunk-jpl/src/m/psl/shlm_element.m	(revision 20330)
+++ /issm/trunk-jpl/src/m/psl/shlm_element.m	(revision 20331)
@@ -25,4 +25,2 @@
 end 
 sh_lm = sh_lm*4*pi/sum(areas);
-
-