Changeset 9939 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/USR
- Timestamp:
- 2018-07-13T09:28:50+02:00 (6 years ago)
- Location:
- NEMO/branches/2018/dev_r9838_ENHANCE04_RK3
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/USR/usrdef_sbc.F90
r9598 r9939 88 88 89 89 ! current day (in hours) since january the 1st of the current year 90 ztime = REAL( kt ) * r dt / (rmmss * rhhmm) &! total incrementation (in hours)90 ztime = REAL( kt ) * rn_Dt / (rmmss * rhhmm) & ! total incrementation (in hours) 91 91 & - (nyear - 1) * rjjhh * zyydd ! minus years since beginning of experiment (in hours) 92 92 … … 155 155 !accumulates days of previous months of this year 156 156 ! day (in hours) since january the 1st 157 ztime = FLOAT( kt ) * rdt / (rmmss * rhhmm) &! incrementation in hour158 & - (nyear - 1) * rjjhh * zyydd ! - nber of hours the precedent years157 ztime = REAL( kt ) * rn_Dt / (rmmss * rhhmm) & ! incrementation in hour 158 & - (nyear - 1) * rjjhh * zyydd ! - nber of hours the precedent years 159 159 ztimemax = ((5.*30.)+21.)* 24. ! 21th june in hours 160 160 ztimemin = ztimemax + rjjhh * zyydd / 2 ! 21th december in hours
Note: See TracChangeset
for help on using the changeset viewer.