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.