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

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

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

revision 1.8 by jmc, Tue Mar 16 00:23:19 2010 UTC revision 1.9 by mlosch, Thu Nov 17 12:50:55 2011 UTC
# Line 151  C     compute metric term coefficients f Line 151  C     compute metric term coefficients f
151           ENDDO           ENDDO
152           DO j=1-OLy+1,sNy+OLy           DO j=1-OLy+1,sNy+OLy
153            DO i=1-OLx,sNx+OLx            DO i=1-OLx,sNx+OLx
154             k2AtC(I,J,bi,bj) = _recip_dxV(I,J,bi,bj)             k2AtZ(I,J,bi,bj) = _recip_dxV(I,J,bi,bj)
155       &          * ( _dxC(I,J,bi,bj) - _dxC(I,J-1,bi,bj) )       &          * ( _dxC(I,J,bi,bj) - _dxC(I,J-1,bi,bj) )
156       &          * _recip_dyU(I,J,bi,bj)       &          * _recip_dyU(I,J,bi,bj)
157            ENDDO            ENDDO
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22