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

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

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