/[MITgcm]/MITgcm/pkg/kpp/kpp_transport_s.F
ViewVC logotype

Diff of /MITgcm/pkg/kpp/kpp_transport_s.F

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

revision 1.7 by adcroft, Tue May 29 14:01:38 2001 UTC revision 1.8 by jmc, Thu Mar 7 14:27:47 2002 UTC
# Line 50  C     I, J - Loop counters Line 50  C     I, J - Loop counters
50        DO j=jMin,jMax        DO j=jMin,jMax
51         DO i=iMin,iMax         DO i=iMin,iMax
52          df(i,j) = df(i,j) - _rA(i,j,bi,bj) *          df(i,j) = df(i,j) - _rA(i,j,bi,bj) *
53       &         KappaRS(i,j,k) * KPPghat(i,j,km1,bi,bj) * delZ(1) *       &         KappaRS(i,j,k) * KPPghat(i,j,km1,bi,bj) * drF(1) *
54       &         SurfaceTendencyS(i,j,bi,bj)       &         SurfaceTendencyS(i,j,bi,bj)
55         ENDDO         ENDDO
56        ENDDO        ENDDO
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22