From 9a98dad3bb1fddd84dff2db18816d05da1650a3d Mon Sep 17 00:00:00 2001
From: Ed <edward.hartnett@noaa.gov>
Date: Thu, 16 Nov 2023 10:12:25 -0700
Subject: [PATCH] working on filename

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

diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90
index 40fd7b45c..82d8e9ba4 100644
--- a/model/src/w3iopomd.F90
+++ b/model/src/w3iopomd.F90
@@ -1559,7 +1559,7 @@ SUBROUTINE W3IOPON ( INXOUT, NDSOP, IOTST, IMOD &
    I = LEN_TRIM(FILEXT)
    J = LEN_TRIM(FNMPRE)
    print *, FNMPRE(:J)//'out_pnt.'//FILEXT(:I)
-   filename = FNMPRE(:J)//'out_pnt_nc.'//FILEXT(:I)
+   filename = transfer(FNMPRE(:J)//'out_pnt_nc.'//FILEXT(:I), filename)
    print *, filename
    
    ! Do a read or a write of the point file.