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

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

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

revision 1.10 by heimbach, Fri Jan 11 17:29:16 2002 UTC revision 1.11 by heimbach, Fri Feb 15 21:28:07 2002 UTC
# Line 237  C-      Large, Danabasoglu and Doney, JP Line 237  C-      Large, Danabasoglu and Doney, JP
237            Cspd=2.            Cspd=2.
238            Lrho=100.e3            Lrho=100.e3
239            if (FCori(i,j,bi,bj).NE.0.) Lrho=Cspd/abs(Fcori(i,j,bi,bj))            if (FCori(i,j,bi,bj).NE.0.) Lrho=Cspd/abs(Fcori(i,j,bi,bj))
240            Lrho=min(Lrho,100.e3)            Lrho=min(Lrho , 100. _d 3)
241            Lrho=max(Lrho,15.e3)            Lrho=max(Lrho , 15. _d 3)
242            if (Smod.NE.0.) then            if (Smod.NE.0.) then
243              Rnondim=depthZ/(Lrho*Smod)              Rnondim=depthZ/(Lrho*Smod)
244            else            else
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22