From f8ba5fcbe3db3f2eaaab2b0651f2cbcec65a4c1d Mon Sep 17 00:00:00 2001 From: Kate Friedman Date: Tue, 27 Aug 2024 14:54:49 -0400 Subject: [PATCH] Remove extra line in sorc/timetwin.fd/timetwin.f Refs #33 Co-authored-by: David Huber <69919478+DavidHuber-NOAA@users.noreply.github.com> --- sorc/timetwin.fd/timetwin.f | 1 - 1 file changed, 1 deletion(-) diff --git a/sorc/timetwin.fd/timetwin.f b/sorc/timetwin.fd/timetwin.f index b939eab..b37f9cd 100644 --- a/sorc/timetwin.fd/timetwin.f +++ b/sorc/timetwin.fd/timetwin.f @@ -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