A sphere with three ocean waves in differing shades of blue. Next to the sphere, there is the bolded text "Ocean Color". Under that, there are two acronyms, separated by a vertical pipe: OB.DAAC (Ocean Biology Distributed Active Archive Center) and OBPG (Ocean Biology Processing Group).
Lorem
ipsum
dolor
sit
amet
Toggle navigation
Ocean Color Science Software
Jump to content
ocssw
V2022
web
ocssw
ocssw_src
src
libswfnav
yds2jul.f
Go to the documentation of this file.
1
c ----------------------------------------------------------------
2
c Subroutine yds2jul
3
c
4
c Converts to julian time from Year, Day, and Seconds of Day.
5
c
6
c BA Franz, GSC, 1/97
7
c ----------------------------------------------------------------
8
subroutine
yds2jul
(year,day,sec,jul)
9
c
10
implicit none
11
c
12
real
*8 jul
13
integer*4
year
14
integer*4
day
15
real
*8 sec
16
integer*4
jd
17
c
18
jul =
jd
(year,1,day) + sec/86400.d0
19
c
20
return
21
end
yds2jul
subroutine yds2jul(year, day, sec, jul)
Definition:
yds2jul.f:9
real
#define real
Definition:
DbAlgOcean.cpp:26
jd
Definition:
jd.py:1
