/[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.7 by mlosch, Thu Sep 16 09:35:11 2004 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
# Line 61  CEOP Line 62  CEOP
62       I        bi,bj,iMin+1,iMax,jMin+1,jMax,K,       I        bi,bj,iMin+1,iMax,jMin+1,jMax,K,
63       O        KappaRU,KappaRV,       O        KappaRU,KappaRV,
64       I        myThid)       I        myThid)
65    #endif
66    
67    #ifdef ALLOW_PP81
68          IF (usePP81) CALL PP81_CALC_VISC(
69         I        bi,bj,iMin+1,iMax,jMin+1,jMax,K,
70         O        KappaRU,KappaRV,
71         I        myThid)
72    #endif
73    
74    #ifdef ALLOW_MY82
75          IF (useMY82) CALL MY82_CALC_VISC(
76         I        bi,bj,iMin+1,iMax,jMin+1,jMax,K,
77         O        KappaRU,KappaRV,
78         I        myThid)
79    #endif
80    
81    #ifdef ALLOW_GGL90
82          IF (useGGL90) CALL GGL90_CALC_VISC(
83         I        bi,bj,iMin+1,iMax,jMin+1,jMax,K,
84         O        KappaRU,KappaRV,
85         I        myThid)
86  #endif  #endif
87    
88    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22