/[MITgcm]/MITgcm/pkg/streamice/streamice_bstress_exponent.F
ViewVC logotype

Diff of /MITgcm/pkg/streamice/streamice_bstress_exponent.F

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

revision 1.2 by heimbach, Fri Jun 21 19:59:36 2013 UTC revision 1.3 by jmc, Fri Jun 21 20:49:50 2013 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6        _RL FUNCTION STREAMICE_BSTRESS_EXP (speed,m)        _RL FUNCTION STREAMICE_BSTRESS_EXP (speed,m)
7    
8         _RL speed, m         _RL speed, m
9  !       _RL SLOPE_LIMITER  !       _RL SLOPE_LIMITER
10    
11          STREAMICE_BSTRESS_EXP = speed**(m-1)          STREAMICE_BSTRESS_EXP = speed**(m-1)
12    
13         RETURN         RETURN
14         END         END

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.22