NASA Ocean Color

ocssw V2022

 c -------------------------------------------------------------
 c Subroutine ymdhms2jul
 c
 c Convers from Year, Month, Day of Month, Hour, Minute, Second
 c to Julian time.
 c
 c BA Franz, GSC, 1/97
 c -------------------------------------------------------------
       subroutine ymdhms2jul(year,month,day,hour,minute,sec,jul)
 c
       implicit none
 c
       integer*4 year
       integer*4 month
       integer*4 day
       integer*4 hour
       integer*4 minute
       real*8    sec
       real*8    jul
       integer*4 jd
 c
       jul = jd(year,month,day) 
      .    + (hour*3600.d0 + minute*60.d0 + sec)/86400.d0
 c
       return
       end

real

#define real

Definition: DbAlgOcean.cpp:26

ymdhms2jul

void ymdhms2jul(int32_t year, int32_t month, int32_t day, int32_t hour, int32_t minute, double sec, double *jul)

c ----------------------------------------------------------— c Subroutine ymdhms2jul c c Convers fro...

Definition: nav.c:113

Definition: jd.py:1