/[MITgcm]/MITgcm/model/src/calc_gs.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_gs.F

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

revision 1.5 by cnh, Thu May 28 15:09:29 1998 UTC revision 1.6 by cnh, Sat May 30 02:10:16 1998 UTC
# Line 149  C     Diffusive component of vertical fl Line 149  C     Diffusive component of vertical fl
149        DO j=jMin,jMax        DO j=jMin,jMax
150         DO i=iMin,iMax         DO i=iMin,iMax
151          df(i,j) =          df(i,j) =
152       &   -diffKzS*zA(i,j,bi,bj)*rdzC(k)       &   -diffKzS*_zA(i,j,bi,bj)*rdzC(k)
153       &   *(salt(i,j,kM1,bi,bj)-salt(i,j,k,bi,bj))       &   *(salt(i,j,kM1,bi,bj)-salt(i,j,k,bi,bj))
154         ENDDO         ENDDO
155        ENDDO        ENDDO
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22