trunk/dyn3d/heavyside.f

module heavyside_m

  IMPLICIT NONE

contains

  real FUNCTION heavyside(a)

    ! From LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19 12:53:06

    ! ...   P. Le Van  ....

    real, intent(in):: a

    !-------------------------------------------------

    IF (a<=0.) THEN
       heavyside = 0.
    ELSE
       heavyside = 1.
    END IF

  END FUNCTION heavyside

end module heavyside_m
1	module heavyside_m
2
3	IMPLICIT NONE
4
5	contains
6
7	real FUNCTION heavyside(a)
8
9	! From LMDZ4/libf/dyn3d/heavyside.F,v 1.1.1.1 2004/05/19 12:53:06
10
11	! ... P. Le Van ....
12
13	real, intent(in):: a
14
15	!-------------------------------------------------
16
17	IF (a<=0.) THEN
18	heavyside = 0.
19	ELSE
20	heavyside = 1.
21	END IF
22
23	END FUNCTION heavyside
24
25	end module heavyside_m