- Timestamp:
- 2021-10-28T12:15:52+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/SBC/tide_mod.F90
r14266 r15456 71 71 !!---------------------------------------------------------------------- 72 72 ! 73 zqy = AINT( (nyear-1901.)/4. ) 74 zsy = nyear - 1900. 75 ! 76 zdj = dayjul( nyear, nmonth, nday ) 77 zday = zdj + zqy - 1. 78 ! 79 zhfrac = nsec_day / 3600. 73 zqy = AINT( (nyear-1901.)/4. ) ! leap years since 1901 74 zsy = nyear - 1900. ! years since 1900 75 ! 76 zdj = dayjul( nyear, nmonth, nday ) ! day number of year 77 zday = zdj + zqy - 1. ! day number of year + No of leap yrs 78 ! i.e. what would doy if every year = 365 day?? 79 ! 80 zhfrac = nsec_day / 3600. ! The seconds of the day/3600 80 81 ! 81 82 !----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.