pkg/streamice/streamice_bstress_exponent.F

#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	#include "CPP_OPTIONS.h"
2
3	_RL FUNCTION STREAMICE_BSTRESS_EXP (speed,m)
4
5	_RL speed, m
6	! _RL SLOPE_LIMITER
7
8	STREAMICE_BSTRESS_EXP = speed**(m-1)
9
10	RETURN
11	END