/[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.4 by heimbach, Thu May 30 02:27:00 2002 UTC revision 1.6 by mlosch, Thu Sep 2 09:13:49 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 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  #endif
80    
81    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22