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