properly calculate time

JessicaMeixner-NOAA · 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