/[MITgcm]/MITgcm/pkg/gmredi/gmredi_slope_psi.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_slope_psi.F

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

revision 1.7 by jmc, Sun Nov 21 15:57:17 2004 UTC revision 1.8 by jmc, Fri Nov 4 01:31:36 2005 UTC
# Line 55  CEndOfInterface Line 55  CEndOfInterface
55  #ifdef GM_BOLUS_ADVEC  #ifdef GM_BOLUS_ADVEC
56    
57  C     == Local variables ==  C     == Local variables ==
       _RL gradSmod(1-Olx:sNx+Olx,1-Oly:sNy+Oly)  
58        _RL dSigmaDrLtd(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RL dSigmaDrLtd(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
       _RL  SlopeSqr(1-Olx:sNx+Olx,1-Oly:sNy+Oly)  
59        _RL f1,Smod,f2,Rnondim        _RL f1,Smod,f2,Rnondim
60        _RL maxSlopeSqr        _RL maxSlopeSqr
61        _RL slopeCutoff        _RL slopeCutoff

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.22