/[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.9 by mlosch, Wed Nov 14 15:55:48 2007 UTC revision 1.10 by mlosch, Wed Mar 18 10:26:49 2009 UTC
# Line 99  C     no slip boundary conditions apply Line 99  C     no slip boundary conditions apply
99             hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj)             hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj)
100    
101             e12(I,J,bi,bj) = e12(I,J,bi,bj)             e12(I,J,bi,bj) = e12(I,J,bi,bj)
102       &          + recip_rAz(i,j,bi,bj) *       &          + recip_rAz(i,j,bi,bj) * 2. _d 0 *
103       &          ( hFacU * ( _dxC(i,j-1,bi,bj)*uFld(i,j  ,1,bi,bj)       &          ( hFacU * ( _dxC(i,j-1,bi,bj)*uFld(i,j  ,1,bi,bj)
104       &                    + _dxC(i,j,  bi,bj)*uFld(i,j-1,1,bi,bj) )       &                    + _dxC(i,j,  bi,bj)*uFld(i,j-1,1,bi,bj) )
105       &          + hFacV * ( _dyC(i-1,j,bi,bj)*vFld(i  ,j,1,bi,bj)       &          + hFacV * ( _dyC(i-1,j,bi,bj)*vFld(i  ,j,1,bi,bj)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22