/[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.6 by mlosch, Thu Sep 2 09:13:49 2004 UTC revision 1.7 by mlosch, Thu Sep 16 09:35:11 2004 UTC
# Line 78  CEOP Line 78  CEOP
78       I        myThid)       I        myThid)
79  #endif  #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.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22