NASA Ocean Color

ocssw V2022

 c ----------------------------------------------------------------
 c Subroutine jul2yds
 c
 c Converts a julian time to Year, Day, and Seconds of Day.
 c
 c BA Franz, GSC, 1/97
 c ----------------------------------------------------------------
       subroutine jul2yds(jul,year,day,sec)
 c
       implicit none
 c
       real*8    jul
       integer*4 year
       integer*4 day
       real*8    sec
       integer*4 julday
       integer*4 month
       integer*4 dayOfMonth
 c
       julday = int( jul )
       call jddate( julday, year, month, dayofmonth )
       call ymd2day( year, month, dayofmonth, day )
       sec = dmod(jul,1.d0) * 86400.d0
 c
       return
       end     

jddate

Definition: jddate.py:1

real

#define real

Definition: DbAlgOcean.cpp:26

dmod

double dmod(double a, double p)

Description:

Definition: nav.c:23

jul2yds

subroutine jul2yds(jul, year, day, sec)

Definition: jul2yds.f:9

ymd2day

subroutine ymd2day(year, month, dayOfMonth, dayOfYear)

Definition: ymd2day.f:13