- Timestamp:
- 2019-12-05T11:46:38+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_ASINTER-01-05_merged/src/OCE/SBC/sbctide.F90
r10068 r12063 72 72 ! Temporarily set nsec_day to beginning of day. 73 73 nsec_day_orig = nsec_day 74 IF 74 IF( nsec_day /= NINT(0.5_wp * rdt) ) THEN 75 75 kt_tide = kt - (nsec_day - 0.5_wp * rdt)/rdt 76 76 nsec_day = NINT(0.5_wp * rdt)
Note: See TracChangeset
for help on using the changeset viewer.