Changeset 7688
- Timestamp:
- 2017-02-16T18:10:19+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_FOAM_local/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90
r5615 r7688 117 117 118 118 ! number of seconds since the beginning of current year/month/week/day at the middle of the time-step 119 nsec_year = nday_year * nsecd - ndt ! 1 time step before the middle of the first time step120 nsec_month = nday * nsecd - ndt ! because day will be called at the beginning of step121 nsec_week = idweek * nsecd - ndt 122 nsec_day = nsecd - ndt 119 nsec_year = nday_year * nsecd - ndt05 ! 1 time step before the middle of the first time step 120 nsec_month = nday * nsecd - ndt05 ! because day will be called at the beginning of step 121 nsec_week = idweek * nsecd - ndt05 122 nsec_day = nsecd - ndt05 123 123 124 124 ! control print … … 223 223 IF( ABS(adatrj - REAL(NINT(adatrj ),wp)) < zprec ) adatrj = REAL(NINT(adatrj ),wp) ! avoid truncation error 224 224 225 IF( nsec_day > =nsecd ) THEN ! New day225 IF( nsec_day > nsecd ) THEN ! New day 226 226 ! 227 227 nday = nday + 1
Note: See TracChangeset
for help on using the changeset viewer.