--- MITgcm/pkg/gmredi/gmredi_slope_psi.F	2001/12/16 18:54:49	1.1
+++ MITgcm/pkg/gmredi/gmredi_slope_psi.F	2002/02/15 21:28:07	1.2
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/gmredi/gmredi_slope_psi.F,v 1.1 2001/12/16 18:54:49 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/gmredi/gmredi_slope_psi.F,v 1.2 2002/02/15 21:28:07 heimbach Exp $
 C $Name:  $
 
 #include "GMREDI_OPTIONS.h"
@@ -169,8 +169,8 @@
           Cspd=2.
           Lrho=100.e3
           if (FCori(i,j,bi,bj).NE.0.) Lrho=Cspd/abs(Fcori(i,j,bi,bj))
-          Lrho=min(Lrho,100.e3)
-          Lrho=max(Lrho,15.e3)
+          Lrho=min(Lrho , 100. _d 3)
+          Lrho=max(Lrho , 15. _d 3)
 
           Smod = abs(SlopeX(i,j))
           f1=0.5*(1.+tanh( (GM_Scrit-Smod)/GM_Sd ))