--- MITgcm_contrib/jscott/igsm/src/prland.F 2006/08/22 20:25:52 1.2 +++ 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. @@ -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