/[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.2 by cnh, Fri Apr 24 02:05:40 1998 UTC revision 1.3 by cnh, Wed May 27 21:01:47 1998 UTC
# Line 100  C     Diffusive component of zonal flux Line 100  C     Diffusive component of zonal flux
100        DO j=jMin,jMax        DO j=jMin,jMax
101         DO i=iMin,iMax         DO i=iMin,iMax
102          df(i,j) =          df(i,j) =
103       &   -diffKhS*xA(i,j)*rdxC(i,j,bi,bj)       &   -diffKhS*xA(i,j)*_rdxC(i,j,bi,bj)
104       &   *(salt(i,j,k,bi,bj)-salt(i-1,j,k,bi,bj))       &   *(salt(i,j,k,bi,bj)-salt(i-1,j,k,bi,bj))
105         ENDDO         ENDDO
106        ENDDO        ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22