source:
LMDZ.3.3/trunk/libf/dyn3d/juldate.F
@
1503
Last change on this file since 1503 was 2, checked in by , 25 years ago | |
---|---|
|
|
File size: 695 bytes |
Rev | Line | |
---|---|---|
[2] | 1 | subroutine juldate(ian,imoi,ijou,oh,om,os,tjd,tjdsec) |
2 | c Sous-routine de changement de date: | |
3 | c gregorien>>>date julienne | |
4 | c En entree:an,mois,jour,heure,min.,sec. | |
5 | c En sortie:tjd | |
6 | implicit real (a-h,o-z) | |
7 | frac=((os/60.+om)/60.+oh)/24. | |
8 | ojou=dfloat(ijou)+frac | |
9 | year=dfloat(ian) | |
10 | rmon=dfloat(imoi) | |
11 | if (imoi .le. 2) then | |
12 | year=year-1. | |
13 | rmon=rmon+12. | |
14 | endif | |
15 | cf=year+(rmon/100.)+(ojou/10000.) | |
16 | if (cf .ge. 1582.1015) then | |
17 | a=int(year/100) | |
18 | b=2-a+int(a/4) | |
19 | else | |
20 | b=0 | |
21 | endif | |
22 | tjd=int(365.25*year)+int(30.6001*(rmon+1))+int(ojou) | |
23 | + +1720994.5+b | |
24 | tjdsec=(ojou-int(ojou))+(tjd-int(tjd)) | |
25 | tjd=int(tjd)+int(tjdsec) | |
26 | tjdsec=tjdsec-int(tjdsec) | |
27 | return | |
28 | end | |
29 | ||
30 |
Note: See TracBrowser
for help on using the repository browser.