/[MITgcm]/MITgcm_contrib/jscott/igsm/src/prland.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/igsm/src/prland.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jscott, Tue Aug 22 20:25:52 2006 UTC revision 1.3 by jscott, Mon Apr 23 21:20:18 2007 UTC
# Line 1  Line 1 
1    c source sokolov users  24023 Aug 24 11:50 prland.F
2  #include "ctrparam.h"  #include "ctrparam.h"
3    
4        SUBROUTINE PRECIP_LAND(mndriver)                                  4001.          SUBROUTINE PRECIP_LAND(mndriver)                                  4001.  
# Line 332  C**** Line 332  C****
332           BJ(J,39)=BJ(J,39)+BENRGP                                       4200.             BJ(J,39)=BJ(J,39)+BENRGP                                       4200.  
333           BJ(J,40)=BJ(J,40)+BERUN0                                       4201.             BJ(J,40)=BJ(J,40)+BERUN0                                       4201.  
334           BJ(J,41)=BJ(J,41)+BEDIFS                                       4201.5             BJ(J,41)=BJ(J,41)+BEDIFS                                       4201.5  
335           BJ(J,43)=BJ(J,43)+BERUN2                                       4203.    !        BJ(J,43)=BJ(J,43)+BERUN2                                       4203.  
336           BJ(J,45)=BJ(J,45)+BDIFS                                        4204.    !        BJ(J,45)=BJ(J,45)+BDIFS                                        4204.  
337  C        Runoff from first layer of soil including ice melting  C        Runoff from first layer of soil including ice melting
338           BJ(J,47)=BJ(J,47)+BRUN0           BJ(J,47)=BJ(J,47)+BRUN0
339  C        Runoff from first layer of soil does not include ice melting  C        Runoff from first layer of soil does not include ice melting
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22