Changeset 2698 for palm/trunk/SOURCE/date_and_time_mod.f90
- Timestamp:
- Dec 14, 2017 6:46:24 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/date_and_time_mod.f90
r2696 r2698 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Bugfix in definition of d_seconds_year. 23 23 ! 24 24 ! Former revisions: … … 56 56 REAL(wp) :: time_utc_init = 43200.0_wp !< UTC time at model start 57 57 58 REAL(wp), PARAMETER :: d_hours_day = 0.0416666666667_wp!< inverse of hours per day (1/24)59 REAL(wp), PARAMETER :: d_seconds_hour = 0.000277777777778_wp!< inverse of seconds per hour (1/3600)60 REAL(wp), PARAMETER :: d_seconds_year = 31536000.0_wp!< inverse of the seconds per year (1/(365*86400))58 REAL(wp), PARAMETER :: d_hours_day = 1.0_wp / 24.0_wp !< inverse of hours per day (1/24) 59 REAL(wp), PARAMETER :: d_seconds_hour = 1.0_wp / 3600.0_wp !< inverse of seconds per hour (1/3600) 60 REAL(wp), PARAMETER :: d_seconds_year = 1.0_wp / 31536000.0_wp !< inverse of the seconds per year (1/(365*86400)) 61 61 62 62 SAVE
Note: See TracChangeset
for help on using the changeset viewer.