pkg/streamice/streamice_bstress_exponent.F

#include "CPP_OPTIONS.h"

      _RL FUNCTION STREAMICE_BSTRESS_EXPONENT (speed,m)
 
       _RL speed, m
!       _RL SLOPE_LIMITER

        STREAMICE_BSTRESS_EXPONENT = speed**(m-1)

       RETURN
       END 
1	dgoldberg	1.1	#include "CPP_OPTIONS.h"
2
3			_RL FUNCTION STREAMICE_BSTRESS_EXPONENT (speed,m)
4
5			_RL speed, m
6			! _RL SLOPE_LIMITER
7
8			STREAMICE_BSTRESS_EXPONENT = speed**(m-1)
9
10			RETURN
11			END