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

Diff of /MITgcm_contrib/jscott/igsm/src/grland.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  40827 Aug 24 11:48 grland.F
2  #include "ctrparam.h"  #include "ctrparam.h"
3    
4  !       ==========================================================  !       ==========================================================
# Line 26  C**** Line 26  C****
26  #include "BD2G04.COM"                                                   7003.5    #include "BD2G04.COM"                                                   7003.5  
27    
28  #if ( defined OCEAN_3D || defined ML_2D )  #if ( defined OCEAN_3D || defined ML_2D )
29  #include "AGRID.COM"  #include "AGRID.h"
30  #endif  #endif
31    
32        COMMON U,V,T,P,Q                                                  7004.          COMMON U,V,T,P,Q                                                  7004.  
# Line 573  C**** LONGITUDINALLY INTEGRATED QUANTITI Line 573  C**** LONGITUDINALLY INTEGRATED QUANTITI
573           BJ(J,40)=BJ(J,40)+BERUN0                                       7323.5             BJ(J,40)=BJ(J,40)+BERUN0                                       7323.5  
574           BJ(J,41)=BJ(J,41)+BEDIFS                                       7324.             BJ(J,41)=BJ(J,41)+BEDIFS                                       7324.  
575           BJ(J,42)=BJ(J,42)+BF1DT                                        7325.             BJ(J,42)=BJ(J,42)+BF1DT                                        7325.  
576           BJ(J,43)=BJ(J,43)+BERUN2                                       7326.5    !        BJ(J,43)=BJ(J,43)+BERUN2                                       7326.5  
577           BJ(J,45)=BJ(J,45)+BDIFS                                        7327.5    !        BJ(J,45)=BJ(J,45)+BDIFS                                        7327.5  
578           BJ(J,46)=BJ(J,46)+BRUN2                                        7329.             BJ(J,46)=BJ(J,46)+BRUN2                                        7329.  
579           BJ(J,49)=BJ(J,49)+BWTR1                                        7332.             BJ(J,49)=BJ(J,49)+BWTR1                                        7332.  
580           BJ(J,50)=BJ(J,50)+BACE1                                        7332.5             BJ(J,50)=BJ(J,50)+BACE1                                        7332.5  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22