Skip to content

Commit

Permalink
Remove extra line in sorc/timetwin.fd/timetwin.f
Browse files Browse the repository at this point in the history
Refs NOAA-EMC#33

Co-authored-by: David Huber <[email protected]>
  • Loading branch information
KateFriedman-NOAA and DavidHuber-NOAA committed Aug 27, 2024
1 parent 90be3b1 commit f8ba5fc
Showing 1 changed file with 0 additions and 1 deletion.
1 change: 0 additions & 1 deletion sorc/timetwin.fd/timetwin.f
Original file line number Diff line number Diff line change
Expand Up @@ -129,7 +129,6 @@ PROGRAM TIMETWIN
ENDIF

C SPLIT DATE UP INTO COMPONENTS

WRITE (CDATE, '(I10)') IDATE
CDAT8(1:8)=CDATE(3:10)
READ (CDATE, '(5I2)') IIDATE
Expand Down

0 comments on commit f8ba5fc

Please sign in to comment.