/[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.1 by jscott, Fri Aug 11 19:35:31 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 11  C**** Line 11  C****
11    
12  #include "BD2G04.COM"                                                   4004.5    #include "BD2G04.COM"                                                   4004.5  
13  #if ( defined OCEAN_3D || defined ML_2D )  #if ( defined OCEAN_3D || defined ML_2D )
14  #include "AGRID.COM"  #include "AGRID.h"
15  #endif  #endif
16    
17        COMMON U,V,T,P,Q                                                  4005.          COMMON U,V,T,P,Q                                                  4005.  
# 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.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22