/[MITgcm]/MITgcm/pkg/seaice/seaice_jfnk.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_jfnk.F

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

revision 1.3 by mlosch, Tue Nov 6 12:53:14 2012 UTC revision 1.4 by mlosch, Tue Nov 6 13:18:14 2012 UTC
# Line 262  C     Update linear solution vector and Line 262  C     Update linear solution vector and
262             DO I=1-Olx,sNx+Olx             DO I=1-Olx,sNx+Olx
263              uIce(I,J,bi,bj) = uIce(I,J,bi,bj)+duIce(I,J,bi,bj)              uIce(I,J,bi,bj) = uIce(I,J,bi,bj)+duIce(I,J,bi,bj)
264              vIce(I,J,bi,bj) = vIce(I,J,bi,bj)+dvIce(I,J,bi,bj)              vIce(I,J,bi,bj) = vIce(I,J,bi,bj)+dvIce(I,J,bi,bj)
265    C     reset du/vIce here instead of setting sol = 0 in seaice_fgmres_driver
266                duIce(I,J,bi,bj)= 0. _d 0
267                dvIce(I,J,bi,bj)= 0. _d 0
268             ENDDO             ENDDO
269            ENDDO            ENDDO
270           ENDDO           ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22