source:
LMDZ.3.3/tags/IPSL-CM4_v2x0/libf/dyn3d/heavyside.F
@
1324
Last change on this file since 1324 was 464, checked in by , 21 years ago | |
---|---|
|
|
File size: 256 bytes |
Rev | Line | |
---|---|---|
[203] | 1 | c |
[207] | 2 | c $Header$ |
[203] | 3 | c |
4 | FUNCTION heavyside(a) | |
5 | ||
6 | c ... P. Le Van .... | |
7 | c | |
8 | IMPLICIT NONE | |
9 | ||
10 | REAL*8 heavyside , a | |
11 | ||
12 | IF ( a.LE.0. ) THEN | |
13 | heavyside = 0. | |
14 | ELSE | |
15 | heavyside = 1. | |
16 | ENDIF | |
17 | ||
18 | RETURN | |
19 | END | |
20 | ||
21 |
Note: See TracBrowser
for help on using the repository browser.