more changes

NOAA-EMC · Nov 30, 2023 · 5bec17f · 5bec17f
1 parent cdc48a3
commit 5bec17f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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