/[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.24 by mlosch, Tue Feb 4 18:30:31 2014 UTC revision 1.25 by mlosch, Fri Feb 7 14:27:21 2014 UTC
# Line 153  C     cycle ice velocities Line 153  C     cycle ice velocities
153          IF ( .NOT.SEAICEuseIMEX ) THEN          IF ( .NOT.SEAICEuseIMEX ) THEN
154  C     Compute things that do no change during the Newton iteration:  C     Compute things that do no change during the Newton iteration:
155  C     sea-surface tilt and wind stress:  C     sea-surface tilt and wind stress:
156  C     FORCEX/Y0 - mass*(abA*u/vIceNm1+abB*(u/vIceNm1-u/vIceNm2))/deltaT  C     FORCEX/Y0 - mass*(1.5*u/vIceNm1+0.5*(u/vIceNm1-u/vIceNm2))/deltaT
157          DO J=1-OLy,sNy+OLy          DO J=1-OLy,sNy+OLy
158           DO I=1-OLx,sNx+OLx           DO I=1-OLx,sNx+OLx
159            FORCEX(I,J,bi,bj) = FORCEX0(I,J,bi,bj)            FORCEX(I,J,bi,bj) = FORCEX0(I,J,bi,bj)
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22