Changeset 12495 for NEMO/branches/2020/dev_r12472_ASINTER-05_Masson_CurrentFeedback/src/OCE/USR/usrdef_sbc.F90
- Timestamp:
- 2020-03-02T09:10:34+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12472_ASINTER-05_Masson_CurrentFeedback/src/OCE/USR/usrdef_sbc.F90
r12377 r12495 89 89 90 90 ! current day (in hours) since january the 1st of the current year 91 ztime = REAL( kt ) * r dt / (rmmss * rhhmm) & ! total incrementation (in hours)91 ztime = REAL( kt ) * rn_Dt / (rmmss * rhhmm) & ! total incrementation (in hours) 92 92 & - (nyear - 1) * rjjhh * zyydd ! minus years since beginning of experiment (in hours) 93 93 … … 154 154 !accumulates days of previous months of this year 155 155 ! day (in hours) since january the 1st 156 ztime = FLOAT( kt ) * r dt / (rmmss * rhhmm) & ! incrementation in hour156 ztime = FLOAT( kt ) * rn_Dt / (rmmss * rhhmm) & ! incrementation in hour 157 157 & - (nyear - 1) * rjjhh * zyydd ! - nber of hours the precedent years 158 158 ztimemax = ((5.*30.)+21.)* 24. ! 21th june in hours
Note: See TracChangeset
for help on using the changeset viewer.