/[MITgcm]/MITgcm/pkg/streamice/streamice_bstress_exponent.F
ViewVC logotype

Annotation of /MITgcm/pkg/streamice/streamice_bstress_exponent.F

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


Revision 1.3 - (hide annotations) (download)
Fri Jun 21 20:49:50 2013 UTC (10 years, 11 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64o, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint64n, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint64k, checkpoint65, checkpoint64j, checkpoint64m, checkpoint64l, HEAD
Changes since 1.2: +5 -2 lines
add CVS Header and Name

1 jmc 1.3 C $Header: $
2     C $Name: $
3    
4 dgoldberg 1.1 #include "CPP_OPTIONS.h"
5    
6 heimbach 1.2 _RL FUNCTION STREAMICE_BSTRESS_EXP (speed,m)
7 jmc 1.3
8 dgoldberg 1.1 _RL speed, m
9     ! _RL SLOPE_LIMITER
10    
11 heimbach 1.2 STREAMICE_BSTRESS_EXP = speed**(m-1)
12 dgoldberg 1.1
13     RETURN
14 jmc 1.3 END

  ViewVC Help
Powered by ViewVC 1.1.22