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

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

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

revision 1.5 by dimitri, Tue Feb 18 05:33:55 2003 UTC revision 1.6 by dimitri, Wed Apr 30 07:04:08 2003 UTC
# Line 56  C NOW DO DIFFUSION WITH NUIT CONVERSION Line 56  C NOW DO DIFFUSION WITH NUIT CONVERSION
56       &     -HEFF(I,J,3,bi,bj))*HEFFM(I+1,J,bi,bj)       &     -HEFF(I,J,3,bi,bj))*HEFFM(I+1,J,bi,bj)
57       &     -(HEFF(I,J,3,bi,bj)-HEFF(I-1,J,3,bi,bj))*HEFFM(I-1,J,bi,bj))       &     -(HEFF(I,J,3,bi,bj)-HEFF(I-1,J,3,bi,bj))*HEFFM(I-1,J,bi,bj))
58       &     +DELTYY*((HEFF(I,J+1,3,bi,bj)-HEFF(I,J,3,bi,bj))       &     +DELTYY*((HEFF(I,J+1,3,bi,bj)-HEFF(I,J,3,bi,bj))
59       &     *CSUICE(I,J,bi,bj)*HEFFM(I,J+1,bi,bj)       &     *CSUICE(I+1,J+1,bi,bj)*HEFFM(I,J+1,bi,bj)
60       &     -(HEFF(I,J,3,bi,bj)-HEFF(I,J-1,3,bi,bj))       &     -(HEFF(I,J,3,bi,bj)-HEFF(I,J-1,3,bi,bj))
61       &     *CSUICE(I,J-1,bi,bj)*HEFFM(I,J-1,bi,bj))       &     *CSUICE(I+1,J,bi,bj)*HEFFM(I,J-1,bi,bj))
62           ENDDO           ENDDO
63          ENDDO          ENDDO
64    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22