working on filename

NOAA-EMC · Nov 16, 2023 · 53e799c · 53e799c
1 parent 9a98dad
commit 53e799c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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.