--- MITgcm_contrib/jscott/igsm/src/prland.F	2006/08/11 19:35:31	1.1
+++ MITgcm_contrib/jscott/igsm/src/prland.F	2007/04/23 21:20:18	1.3
@@ -1,4 +1,4 @@
-
+c source sokolov users  24023 Aug 24 11:50 prland.F
 #include "ctrparam.h"
 
       SUBROUTINE PRECIP_LAND(mndriver)                                  4001.   
@@ -11,7 +11,7 @@
 
 #include "BD2G04.COM"                                                   4004.5  
 #if ( defined OCEAN_3D || defined ML_2D )
-#include "AGRID.COM"
+#include "AGRID.h"
 #endif
 
       COMMON U,V,T,P,Q                                                  4005.   
@@ -332,8 +332,8 @@
          BJ(J,39)=BJ(J,39)+BENRGP                                       4200.   
          BJ(J,40)=BJ(J,40)+BERUN0                                       4201.   
          BJ(J,41)=BJ(J,41)+BEDIFS                                       4201.5  
-         BJ(J,43)=BJ(J,43)+BERUN2                                       4203.   
-         BJ(J,45)=BJ(J,45)+BDIFS                                        4204.   
+!        BJ(J,43)=BJ(J,43)+BERUN2                                       4203.   
+!        BJ(J,45)=BJ(J,45)+BDIFS                                        4204.   
 C	 Runoff from first layer of soil including ice melting
  	 BJ(J,47)=BJ(J,47)+BRUN0
 C	 Runoff from first layer of soil does not include ice melting