/[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.3 by cnh, Wed Sep 26 18:09:14 2001 UTC revision 1.5 by edhill, Thu Oct 9 04:19:18 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CBOP  CBOP
# Line 44  C     I, J, K - Loop counters Line 45  C     I, J, K - Loop counters
45        INTEGER i,j        INTEGER i,j
46  CEOP  CEOP
47    
48        DO j=jMin,jMax        DO j = 1-Oly, sNy+Oly
49         DO i=iMin,iMax         DO i = 1-Olx, sNx+Olx
50          KappaRU(i,j,k) = viscAr          KappaRU(i,j,k) = viscAr
51         ENDDO         ENDDO
52        ENDDO        ENDDO
53    
54        DO j=jMin,jMax        DO j = 1-Oly, sNy+Oly
55         DO i=iMin,iMax         DO i = 1-Olx, sNx+Olx
56          KappaRV(i,j,k) = viscAr          KappaRV(i,j,k) = viscAr
57         ENDDO         ENDDO
58        ENDDO        ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22