/[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.9 by heimbach, Sat Jul 13 03:12:30 2002 UTC revision 1.10 by mlosch, Wed Sep 25 19:36:50 2002 UTC
# Line 57  C     I, J - Loop counters Line 57  C     I, J - Loop counters
57       &         KappaRT(i,j,k) * KPPghat(i,j,km1,bi,bj) * drF(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_rhoConst*recip_dRf(1)
61       &          * (1.-KPPfrac(i,j,bi,bj))       &          * (1.-KPPfrac(i,j,bi,bj))
62       &         )       &         )
63         ENDDO         ENDDO
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22