/[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.9 by heimbach, Sat Jul 13 03:12:30 2002 UTC revision 1.10 by jmc, Sun Jul 18 01:19:36 2004 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) * drF(1) *       &         KappaRS(i,j,k) * KPPghat(i,j,km1,bi,bj) *
54       &         SurfaceTendencyS(i,j,bi,bj)       &         surfaceForcingS(i,j,bi,bj)
55         ENDDO         ENDDO
56        ENDDO        ENDDO
57    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22