/[MITgcm]/MITgcm/pkg/mom_common/mom_v_implicit_r.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_common/mom_v_implicit_r.F

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

revision 1.6 by jmc, Wed Oct 5 00:04:31 2016 UTC revision 1.7 by jmc, Wed Oct 26 00:49:05 2016 UTC
# Line 204  C--   end if momImplVertAdv Line 204  C--   end if momImplVertAdv
204    
205        IF ( diagonalNumber .EQ. 3 ) THEN        IF ( diagonalNumber .EQ. 3 ) THEN
206  C--   Solve tri-diagonal system :  C--   Solve tri-diagonal system :
207            errCode = -1
208          CALL SOLVE_TRIDIAGONAL( iMin,iMax, jMin,jMax,          CALL SOLVE_TRIDIAGONAL( iMin,iMax, jMin,jMax,
209       I                          b5d, c5d, d5d,       I                          b5d, c5d, d5d,
210       U                          gV(1-OLx,1-OLy,1,bi,bj),       U                          gV(1-OLx,1-OLy,1,bi,bj),
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22