/[lmdze]/trunk/libf/IOIPSL/calendar.f90
ViewVC logotype

Diff of /trunk/libf/IOIPSL/calendar.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 35 by guez, Tue Jun 8 15:37:21 2010 UTC revision 36 by guez, Thu Dec 2 17:11:04 2010 UTC
# Line 1  Line 1 
1  MODULE calendar  MODULE calendar
2    !$Header: /home/ioipsl/CVSROOT/IOIPSL/src/calendar.f90,v 2.0 2004/04/05 14:47:47 adm Exp $  
3    !-    ! From IOIPSL/src/calendar.f90, version 2.0 2004/04/05 14:47:47
4    !---------------------------------------------------------------------  
5    !- This is the calendar which going to be used to do all    !- This is the calendar used to do all calculations on time. Three
6    !- calculations on time. Three types of calendars are possible :    !- types of calendars are possible :
7    !-  - gregorian : The normal calendar. The time origin for the    !-  - gregorian : The normal calendar. The time origin for the
8    !-                julian day in this case is 24 Nov -4713    !-                julian day in this case is 24 Nov -4713
9    !-  - nolap : A 365 day year without leap years.    !-  - nolap : A 365 day year without leap years.
# Line 21  MODULE calendar Line 21  MODULE calendar
21    !-    !-
22    !-   un_jour : one day in seconds    !-   un_jour : one day in seconds
23    !-   un_an   : one year in days    !-   un_an   : one year in days
24    !---------------------------------------------------------------------  
25    USE strlowercase_m, ONLY : strlowercase    USE strlowercase_m, ONLY : strlowercase
26    USE errioipsl, ONLY : histerr    USE errioipsl, ONLY : histerr
27    !-    !-
# Line 62  CONTAINS Line 62  CONTAINS
62    
63      INTEGER,INTENT(IN) :: year,month,day      INTEGER,INTENT(IN) :: year,month,day
64      REAL,INTENT(IN)    :: sec      REAL,INTENT(IN)    :: sec
   
65      REAL,INTENT(OUT) :: julian      REAL,INTENT(OUT) :: julian
66    
67      INTEGER :: julian_day      INTEGER :: julian_day
# Line 70  CONTAINS Line 69  CONTAINS
69      !---------------------------------------------------------------------      !---------------------------------------------------------------------
70      CALL ymds2ju_internal (year,month,day,sec,julian_day,julian_sec)      CALL ymds2ju_internal (year,month,day,sec,julian_day,julian_sec)
71    
72      julian = julian_day+julian_sec / un_jour      julian = julian_day + julian_sec / un_jour
73      !---------------------      !---------------------
74    END SUBROUTINE ymds2ju    END SUBROUTINE ymds2ju
75    
Legend:
Removed from v.35  
changed lines
  Added in v.36
  ViewVC Help
Powered by ViewVC 1.1.21