/[MITgcm]/MITgcm/model/src/calc_r_star.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_r_star.F

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

revision 1.17 by jmc, Fri Sep 10 17:52:05 2010 UTC revision 1.18 by jmc, Mon Sep 20 15:54:36 2010 UTC
# Line 59  CEOP Line 59  CEOP
59    
60        rStarAreaWeight = .TRUE.        rStarAreaWeight = .TRUE.
61  C-    Area-weighted average consistent with KE (& vert. advection):  C-    Area-weighted average consistent with KE (& vert. advection):
62  c     IF ( vectorInvariantMomentum .AND.        IF ( vectorInvariantMomentum .AND.
63  c    &     (selectKEscheme.EQ.1 .OR. selectKEscheme.EQ.3)       &     (selectKEscheme.EQ.1 .OR. selectKEscheme.EQ.3)
64  c    &   ) rStarAreaWeight =.FALSE.       &   ) rStarAreaWeight =.FALSE.
65    
66  #ifdef W2_FILL_NULL_REGIONS  #ifdef W2_FILL_NULL_REGIONS
67        INTEGER ii,jj        INTEGER ii,jj
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22