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

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

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

revision 1.12 by mlosch, Fri May 29 10:18:02 2009 UTC revision 1.13 by mlosch, Wed Jun 3 08:48:07 2009 UTC
# Line 77  C     evaluate strain rates Line 77  C     evaluate strain rates
77       &         +HALF*       &         +HALF*
78       &         (uFld(I,J,1,bi,bj)+uFld(I+1,J,1,bi,bj))       &         (uFld(I,J,1,bi,bj)+uFld(I+1,J,1,bi,bj))
79       &         * k1AtC(I,J,bi,bj)       &         * k1AtC(I,J,bi,bj)
 C     one metric term is missing  
80           ENDDO           ENDDO
81          ENDDO          ENDDO
82          DO j=1-Oly+1,sNy+Oly          DO j=1-Oly+1,sNy+Oly
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22