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