/[MITgcm]/MITgcm/model/src/calc_viscosity.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_viscosity.F

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

revision 1.8 by jmc, Mon Oct 20 23:51:39 2008 UTC revision 1.9 by jmc, Thu Oct 8 20:03:18 2009 UTC
# Line 51  CEOP Line 51  CEOP
51    
52         DO j = 1-Oly, sNy+Oly         DO j = 1-Oly, sNy+Oly
53          DO i = 1-Olx, sNx+Olx          DO i = 1-Olx, sNx+Olx
54           KappaRU(i,j,k) = viscAr           KappaRU(i,j,k) = viscArNr(k)
55           KappaRV(i,j,k) = viscAr           KappaRV(i,j,k) = viscArNr(k)
56          ENDDO          ENDDO
57         ENDDO         ENDDO
58    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22