/[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.1 by jmc, Sun Dec 16 18:54:49 2001 UTC revision 1.2 by heimbach, Fri Feb 15 21:28:07 2002 UTC
# Line 169  C-      Large, Danabasoglu and Doney, JP Line 169  C-      Large, Danabasoglu and Doney, JP
169            Cspd=2.            Cspd=2.
170            Lrho=100.e3            Lrho=100.e3
171            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))
172            Lrho=min(Lrho,100.e3)            Lrho=min(Lrho , 100. _d 3)
173            Lrho=max(Lrho,15.e3)            Lrho=max(Lrho , 15. _d 3)
174    
175            Smod = abs(SlopeX(i,j))            Smod = abs(SlopeX(i,j))
176            f1=0.5*(1.+tanh( (GM_Scrit-Smod)/GM_Sd ))            f1=0.5*(1.+tanh( (GM_Scrit-Smod)/GM_Sd ))
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22