Return the time difference in seconds


INTERFACE:

    integer FUNCTION time_diff(jul1,secs1,jul2,secs2)
DESCRIPTION:

This functions returns the time difference between two dates in seconds. The dates are given as Julian day and seconds of that day.


USES:

    IMPLICIT NONE
INPUT PARAMETERS:
    integer, intent(in)                 :: jul1,secs1,jul2,secs2
REVISION HISTORY:
    Original author(s): Karsten Bolding & Hans Burchard



Karsten Bolding 2012-01-24