/[MITgcm]/MITgcm/pkg/pp81/pp81_init.F
ViewVC logotype

Diff of /MITgcm/pkg/pp81/pp81_init.F

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

revision 1.1 by mlosch, Thu Sep 2 09:11:54 2004 UTC revision 1.2 by jmc, Sun Oct 17 23:12:59 2004 UTC
# Line 40  C--------------------------------------- Line 40  C---------------------------------------
40           do j = 1-OLy, sNy+OLy           do j = 1-OLy, sNy+OLy
41            do i = 1-OLx, sNx+OLx            do i = 1-OLx, sNx+OLx
42             PPviscAr (i,j,k,bi,bj) = viscAr             PPviscAr (i,j,k,bi,bj) = viscAr
43             PPdiffKr (i,j,k,bi,bj) = diffKrT             PPdiffKr (i,j,k,bi,bj) = diffKrNrT(k)
44            end do            end do
45           end do           end do
46          end do          end do
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22