/[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.20 by jmc, Thu Jul 1 21:45:12 2004 UTC revision 1.21 by mlosch, Thu Sep 2 09:13:49 2004 UTC
# Line 105  CEOP Line 105  CEOP
105       I        myThid)       I        myThid)
106  #endif  #endif
107    
108    #ifdef ALLOW_PP81
109          IF (usePP81) CALL PP81_CALC_DIFF(
110         I        bi,bj,iMin+1,iMax,jMin+1,jMax,K,
111         I        maskUp,
112         O        KappaRT,KappaRS,
113         I        myThid)
114    #endif
115    
116    
117        RETURN        RETURN
118        END        END
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22