properly calculate time

NOAA-EMC · Jun 7, 2024 · 893f924 · 893f924
1 parent 2fea00a
commit 893f924
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90
@@ -1604,6 +1604,11 @@ SUBROUTINE W3IOPON_WRITE(timestep_only,filename, ncerr)
  ncerr = nf90_put_var(fh, v_ww3time, TIME, start = (/ 1, itime/), &
  count = (/ 2, 1 /))
  if (nf90_err(ncerr) .ne. 0) return
+
+ CALL U2D('days since 1990-01-01 00:00:00',REFDATE,IERR)
+ CALL T2D(TIME,CURDATE,IERR)
+ outjulday=TSUB(REFDATE,CURDATE)
+
  ncerr = nf90_put_var(fh, v_time, outjulday, start = (/itime/))
  if (nf90_err(ncerr) .ne. 0) return