--- MITgcm_contrib/jscott/igsm/src/grland.F	2006/08/22 20:25:52	1.2
+++ MITgcm_contrib/jscott/igsm/src/grland.F	2007/04/23 21:20:18	1.3
@@ -1,4 +1,4 @@
-
+c source sokolov users  40827 Aug 24 11:48 grland.F
 #include "ctrparam.h"
 
 !	==========================================================
@@ -573,8 +573,8 @@
          BJ(J,40)=BJ(J,40)+BERUN0                                       7323.5  
          BJ(J,41)=BJ(J,41)+BEDIFS                                       7324.   
          BJ(J,42)=BJ(J,42)+BF1DT                                        7325.   
-         BJ(J,43)=BJ(J,43)+BERUN2                                       7326.5  
-         BJ(J,45)=BJ(J,45)+BDIFS                                        7327.5  
+!        BJ(J,43)=BJ(J,43)+BERUN2                                       7326.5  
+!        BJ(J,45)=BJ(J,45)+BDIFS                                        7327.5  
          BJ(J,46)=BJ(J,46)+BRUN2                                        7329.   
          BJ(J,49)=BJ(J,49)+BWTR1                                        7332.   
          BJ(J,50)=BJ(J,50)+BACE1                                        7332.5