source: LMDZ.3.3/trunk/libf/dyn3d/juldate.F @ 507

Last change on this file since 507 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 695 bytes
Line 
1        subroutine juldate(ian,imoi,ijou,oh,om,os,tjd,tjdsec)
2c       Sous-routine de changement de date:
3c       gregorien>>>date julienne
4c       En entree:an,mois,jour,heure,min.,sec.
5c       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.