/[MITgcm]/MITgcm/model/src/calc_diffusivity.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_diffusivity.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.21 by mlosch, Thu Sep 2 09:13:49 2004 UTC revision 1.22 by mlosch, Mon Sep 6 06:42:19 2004 UTC
# Line 113  CEOP Line 113  CEOP
113       I        myThid)       I        myThid)
114  #endif  #endif
115    
116    #ifdef ALLOW_MY82
117          IF (useMY82) CALL MY82_CALC_DIFF(
118         I        bi,bj,iMin+1,iMax,jMin+1,jMax,K,
119         I        maskUp,
120         O        KappaRT,KappaRS,
121         I        myThid)
122    #endif
123          
124        RETURN        RETURN
125        END        END
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22