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

Diff of /MITgcm/pkg/kpp/kpp_transport_t.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 54  C     I, J - Loop counters Line 54  C     I, J - Loop counters
54        DO j=jMin,jMax        DO j=jMin,jMax
55         DO i=iMin,iMax         DO i=iMin,iMax
56          df(i,j) = df(i,j) - _rA(i,j,bi,bj) *          df(i,j) = df(i,j) - _rA(i,j,bi,bj) *
57       &         KappaRT(i,j,k) * KPPghat(i,j,km1,bi,bj) * delZ(1) *       &         KappaRT(i,j,k) * KPPghat(i,j,km1,bi,bj) * drF(1) *
58       &         ( SurfaceTendencyT(i,j,bi,bj) -       &         ( SurfaceTendencyT(i,j,bi,bj) -
59       &           Qsw(i,j,bi,bj)       &           Qsw(i,j,bi,bj)
60       &          *recip_Cp*recip_rhoNil*recip_dRf(1)       &          *recip_Cp*recip_rhoNil*recip_dRf(1)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22