Parent Directory
| 
Revision Log
No reason to call inidissip in ce0l. In inidissip, set random seed to 1 beacuse PGI compiler does not accept all zeros. dq was computed needlessly in caladvtrac. Arguments masse and dq of calfis not used. Replaced real*8 by double precision. Pass arrays with inverted order of vertical levels to conflx instead of creating local variables for this inside conflx.
| 1 | ! |
| 2 | ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $ |
| 3 | ! |
| 4 | c |
| 5 | c |
| 6 | FUNCTION heavyside(a) |
| 7 | |
| 8 | c ... P. Le Van .... |
| 9 | c |
| 10 | IMPLICIT NONE |
| 11 | |
| 12 | DOUBLE PRECISION heavyside , a |
| 13 | |
| 14 | IF ( a.LE.0. ) THEN |
| 15 | heavyside = 0. |
| 16 | ELSE |
| 17 | heavyside = 1. |
| 18 | ENDIF |
| 19 | |
| 20 | RETURN |
| 21 | END |
| 22 | |
| 23 |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |