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

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

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

revision 1.32 by jmc, Thu Jul 13 03:01:21 2006 UTC revision 1.33 by jmc, Thu Jul 13 14:26:50 2006 UTC
# Line 144  C-    note: assume fluid @ smaller k tha Line 144  C-    note: assume fluid @ smaller k tha
144               recip_rThickC(i,j) = 0.               recip_rThickC(i,j) = 0.
145             ELSE             ELSE
146               recip_rThickC(i,j) = 1. _d 0 /               recip_rThickC(i,j) = 1. _d 0 /
147       &        ( drF(k-1)*halfRS +       &        ( drF(k-1)*halfRS
148       &        + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS )       &        + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS )
149       &        )       &        )
150             ENDIF             ENDIF
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22