dgoldberg/streamice/streamice_bstress_exponent.F

C $Header: /u/gcmpack/MITgcm/pkg/streamice/streamice_bstress_exponent.F,v 1.3 2013/06/21 20:49:50 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

      _RL FUNCTION STREAMICE_BSTRESS_EXP (speed,m)

       _RL speed, m
!       _RL SLOPE_LIMITER

        STREAMICE_BSTRESS_EXP = speed**(m-1)

       RETURN
       END
1	C $Header: /u/gcmpack/MITgcm/pkg/streamice/streamice_bstress_exponent.F,v 1.3 2013/06/21 20:49:50 jmc Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	_RL FUNCTION STREAMICE_BSTRESS_EXP (speed,m)
7
8	_RL speed, m
9	! _RL SLOPE_LIMITER
10
11	STREAMICE_BSTRESS_EXP = speed**(m-1)
12
13	RETURN
14	END