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

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

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

revision 1.29 by jmc, Sun Jul 18 15:29:52 2004 UTC revision 1.30 by jmc, Sun Oct 17 23:05:09 2004 UTC
# Line 775  c Local constants Line 775  c Local constants
775              DO k = 1,Nr              DO k = 1,Nr
776                 KPPghat   (i,j,k,bi,bj) = 0.0                 KPPghat   (i,j,k,bi,bj) = 0.0
777                 KPPviscAz (i,j,k,bi,bj) = viscAr                 KPPviscAz (i,j,k,bi,bj) = viscAr
778                 KPPdiffKzT(i,j,k,bi,bj) = diffKrT                 KPPdiffKzT(i,j,k,bi,bj) = diffKrNrT(k)
779                 KPPdiffKzS(i,j,k,bi,bj) = diffKrS                 KPPdiffKzS(i,j,k,bi,bj) = diffKrNrS(k)
780              ENDDO              ENDDO
781           ENDDO           ENDDO
782        ENDDO        ENDDO
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22