/[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.4.1 by edhill, Thu Oct 2 18:10:45 2003 UTC revision 1.7 by mlosch, Thu Sep 16 09:35:11 2004 UTC
# Line 64  CEOP Line 64  CEOP
64       I        myThid)       I        myThid)
65  #endif  #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
87    
88    
89        RETURN        RETURN
90        END        END
Legend:
Removed from v.1.4.4.1  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22