/[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.28 by jmc, Fri Jul 7 20:09:37 2006 UTC revision 1.29 by jmc, Mon Jul 10 15:17:19 2006 UTC
# Line 96  C     Lateral friction (no-slip, free sl Line 96  C     Lateral friction (no-slip, free sl
96  CML   half slip was used before ; keep the line for now, but half slip is  CML   half slip was used before ; keep the line for now, but half slip is
97  CML   not used anywhere in the code as far as I can see.  CML   not used anywhere in the code as far as I can see.
98  C        slipSideFac = 0. _d 0  C        slipSideFac = 0. _d 0
99    C- need to fix the side-drag implementation; for now, always impose free-slip
100            slipSideFac =  1. _d 0
101    
102  C--   Initialise gW to zero  C--   Initialise gW to zero
103        DO k=1,Nr        DO k=1,Nr
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22