/[MITgcm]/MITgcm/pkg/my82/my82_init.F
ViewVC logotype

Diff of /MITgcm/pkg/my82/my82_init.F

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

revision 1.2 by jmc, Sun Oct 17 23:12:31 2004 UTC revision 1.3 by mlosch, Mon May 30 07:41:45 2005 UTC
# Line 50  C--------------------------------------- Line 50  C---------------------------------------
50          do k = 1, Nr          do k = 1, Nr
51           do j = 1-OLy, sNy+OLy           do j = 1-OLy, sNy+OLy
52            do i = 1-OLx, sNx+OLx            do i = 1-OLx, sNx+OLx
53             MYhbl    (i,j  ,bi,bj) = 0.             MYhbl    (i,j  ,bi,bj) = 0. _d 0
54             MYviscAr (i,j,k,bi,bj) = viscAr             MYviscAr (i,j,k,bi,bj) = viscAr
55             MYdiffKr (i,j,k,bi,bj) = diffKrNrT(k)             MYdiffKr (i,j,k,bi,bj) = diffKrNrT(k)
56            end do            end do
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22