/[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.20 by edhill, Fri Oct 24 05:29:35 2003 UTC revision 1.21 by jmc, Tue Oct 28 22:23:25 2003 UTC
# Line 777  c Local constants Line 777  c Local constants
777              KPPfrac(i,j,bi,bj) = 0.0              KPPfrac(i,j,bi,bj) = 0.0
778              DO k = 1,Nr              DO k = 1,Nr
779                 KPPghat   (i,j,k,bi,bj) = 0.0                 KPPghat   (i,j,k,bi,bj) = 0.0
780                 KPPviscAz (i,j,k,bi,bj) = viscAz                 KPPviscAz (i,j,k,bi,bj) = viscAr
781                 KPPdiffKzT(i,j,k,bi,bj) = diffKzT                 KPPdiffKzT(i,j,k,bi,bj) = diffKrT
782                 KPPdiffKzS(i,j,k,bi,bj) = diffKzS                 KPPdiffKzS(i,j,k,bi,bj) = diffKrS
783              ENDDO              ENDDO
784           ENDDO           ENDDO
785        ENDDO        ENDDO
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22