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
ancnrt
leap.f
Go to the documentation of this file.
1
c************************ FUNCTION LEAP ******************************
2
c
3
c returns as "true" if YEAR is a leap year, else returns as "false".
4
c
5
c Created by Michael Darzi, GSC, 8/89
6
c To UNIX: BD Schieber, SAIC/GSC, 93
7
c***********************************************************************
8
c
9
logical
function
leap
(YEAR)
10
integer*4
year
11
12
if
((mod(year,400) .eq. 0) .or.
13
+ ((mod(year,4).eq.0) .and. (mod(year,100).ne.0)))
then
14
leap
= .true.
15
else
16
leap
= .false.
17
endif
18
19
return
20
end
21
leap
logical function leap(YEAR)
Definition:
leap.f:10
