/[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.3 by cnh, Wed May 27 21:01:47 1998 UTC revision 1.4 by cnh, Thu May 28 03:34:52 1998 UTC
# Line 124  C     Diffusive component of meridional Line 124  C     Diffusive component of meridional
124        DO j=jMin,jMax        DO j=jMin,jMax
125         DO i=iMin,iMax         DO i=iMin,iMax
126          df(i,j) =          df(i,j) =
127       &   -diffKhS*yA(i,j)*rdyC(i,j,bi,bj)       &   -diffKhS*yA(i,j)*_rdyC(i,j,bi,bj)
128       &   *(salt(i,j,k,bi,bj)-salt(i,j-1,k,bi,bj))       &   *(salt(i,j,k,bi,bj)-salt(i,j-1,k,bi,bj))
129         ENDDO         ENDDO
130        ENDDO        ENDDO
# Line 169  C           are not used. Line 169  C           are not used.
169        DO j=jMin,jMax        DO j=jMin,jMax
170         DO i=iMin,iMax         DO i=iMin,iMax
171          gS(i,j,k,bi,bj)=          gS(i,j,k,bi,bj)=
172       &   -rHFacC(i,j,k,bi,bj)*rdzF(k)*rDxF(i,j,bi,bj)*rDyF(i,j,bi,bj)       &   -rHFacC(i,j,k,bi,bj)*rdzF(k)*_rdxF(i,j,bi,bj)*_rdyF(i,j,bi,bj)
173       &   *(       &   *(
174       &    +( fZon(i+1,j)-fZon(i,j) )       &    +( fZon(i+1,j)-fZon(i,j) )
175       &    +( fMer(i,j+1)-fMer(i,j) )       &    +( fMer(i,j+1)-fMer(i,j) )
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22