/[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.22 by jmc, Tue Nov 8 02:14:10 2005 UTC revision 1.23 by jmc, Tue Dec 13 23:16:52 2005 UTC
# Line 81  CEOP Line 81  CEOP
81        jMax = sNy        jMax = sNy
82    
83  C     Adams-Bashforth timestepping weights  C     Adams-Bashforth timestepping weights
84        ab15 =  1.5 _d 0 + abeps        IF (myIter .EQ. 0) THEN
85        ab05 = -0.5 _d 0 - abeps         ab15 =  1.0 _d 0
86           ab05 =  0.0 _d 0
87          ELSE
88           ab15 =  1.5 _d 0 + abeps
89           ab05 = -0.5 _d 0 - abeps
90          ENDIF
91    
92  C     Lateral friction (no-slip, free slip, or half slip):  C     Lateral friction (no-slip, free slip, or half slip):
93        IF ( no_slip_sides ) THEN        IF ( no_slip_sides ) THEN
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22