Return the time difference in seconds


INTERFACE:

   REALTYPE 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-12-28