working on filename

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