- Timestamp:
- Aug 5, 2020, 2:32:48 PM (4 years ago)
- Branches:
- 10.4.1_pesei, bugfixes+enhancements, release-10.4.1, scaling-bug
- Children:
- f0a2e58
- Parents:
- 477a094
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/caldate.f90
r477a094 r17c3c47 42 42 julday=int(juldate) 43 43 ! PS check to avoid 240000 as hhmiss: 44 if (( xjuldate-julday)*86400._dp .ge. 86399.5_dp) then44 if ((juldate-julday)*86400._dp .ge. 86399.5_dp) then 45 45 juldate = juldate + juldate-julday-86399.5_dp/86400._dp 46 46 julday=int(juldate) 47 end 47 endif 48 48 if(julday.ge.igreg)then 49 49 jalpha=int(((julday-1867216)-0.25)/36524.25)
Note: See TracChangeset
for help on using the changeset viewer.