From 5bec17f9bec48561110877b24236469165817c48 Mon Sep 17 00:00:00 2001
From: Edward Hartnett <edward.hartnett@noaa.gov>
Date: Thu, 30 Nov 2023 07:06:51 -0700
Subject: [PATCH] more changes

---
 model/src/w3iopomd.F90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90
index cecb2a621..fe96c2f3f 100644
--- a/model/src/w3iopomd.F90
+++ b/model/src/w3iopomd.F90
@@ -1559,6 +1559,7 @@ SUBROUTINE W3IOPON ( INXOUT, NDSOP, IOTST, IMOD &
    END IF
 
    ! Determine filename.
+   filename = ''
    filename = transfer(FNMPRE(:LEN_TRIM(FNMPRE))//'out_pnt_nc.'//FILEXT(:LEN_TRIM(FILEXT)), filename)
    !print *, filename