/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/streamice_bstress_exponent.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/streamice/streamice_bstress_exponent.F

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

revision 1.1 by dgoldberg, Tue Sep 18 17:04:40 2012 UTC revision 1.2 by dgoldberg, Wed Aug 27 19:29:13 2014 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_EXPONENT (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_EXPONENT = speed**(m-1)          STREAMICE_BSTRESS_EXP = speed**(m-1)
12    
13         RETURN         RETURN
14         END         END

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

  ViewVC Help
Powered by ViewVC 1.1.22