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

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

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

revision 1.3 by jmc, Thu Oct 8 20:07:53 2009 UTC revision 1.4 by jmc, Mon Feb 23 21:20:15 2015 UTC
# Line 52  C--------------------------------------- Line 52  C---------------------------------------
52            DO i = 1-OLx, sNx+OLx            DO i = 1-OLx, sNx+OLx
53             MYhbl    (i,j  ,bi,bj) = 0. _d 0             MYhbl    (i,j  ,bi,bj) = 0. _d 0
54             MYviscAr (i,j,k,bi,bj) = viscArNr(k)             MYviscAr (i,j,k,bi,bj) = viscArNr(k)
55             MYdiffKr (i,j,k,bi,bj) = diffKrNrT(k)             MYdiffKr (i,j,k,bi,bj) = diffKrNrS(k)
56            ENDDO            ENDDO
57           ENDDO           ENDDO
58          ENDDO          ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22