/[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.5 by edhill, Thu Oct 9 04:19:18 2003 UTC revision 1.6 by mlosch, Thu Sep 2 09:13:49 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    
82        RETURN        RETURN
83        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22