rename the log files

model/src/w3iogomd.F90

@@ -4070,7 +4070,7 @@ SUBROUTINE W3IOGO ( INXOUT, NDSOG, IOTST, IMOD &
     ! ADD INDICATOR LOG AFTER THE GRIDDED OUTPUT HAS BEEN FULLY WRITTEN
     IF ( WRITE .AND. (OFILES(1).EQ.1) ) THEN
       NDSOGLOG = NDSOG
-      OPEN (NDSOGLOG,FILE=FNMPRE_LOCAL(:J)//TIMETAG//'.out_grd.'//FILEXT(:I)//'.log.txt', &
+      OPEN (NDSOGLOG,FILE=FNMPRE_LOCAL(:J)//'log.'//TIMETAG//'.out_grd.'//FILEXT(:I)//'.txt', &
            form ='FORMATTED',ERR=800,IOSTAT=IERR)
       WRITE (NDSOGLOG,*) 'The '//TRIM(TIMETAG)//'.out_grd.'//TRIM(FILEXT(:I))// &
            ' file has been successfully written!'

model/src/w3iopomd.F90

@@ -1592,7 +1592,7 @@ END SUBROUTINE W3IOPON_READ
   !>
   !> @author Edward Hartnett  @date 1-Nov-2023
   !>
-  SUBROUTINE W3IOPON_WRITE(timestep_only,filename, ncerr, NDSOP)
+  SUBROUTINE W3IOPON_WRITE(timestep_only,filename, ncerr, NDSOP, fname, path)
     USE NETCDF 
     USE W3GDATMD, ONLY: NTH, NK, NSPEC
     USE W3WDATMD, ONLY: TIME
@@ -1614,6 +1614,8 @@ SUBROUTINE W3IOPON_WRITE(timestep_only,filename, ncerr, NDSOP)
     integer, intent(inout) :: ncerr
     !
     INTEGER, INTENT(IN), OPTIONAL :: NDSOP
+    CHARACTER(LEN=124), INTENT(IN), OPTIONAL :: fname
+    CHARACTER(LEN=256), INTENT(IN), OPTIONAL :: path
     !
     integer :: ndim, nvar, fmt, itime, fh
     integer :: d_nopts, d_nspec, d_vsize, d_namelen, d_grdidlen, d_time
@@ -1898,9 +1900,9 @@ SUBROUTINE W3IOPON_WRITE(timestep_only,filename, ncerr, NDSOP)
     ! RE-USE NDSOP FOR NDSOPLOG
     IF (timestep_only .EQ. 1) THEN
       NDSOPLOG = NDSOP
-      OPEN(NDSOPLOG,FILE=TRIM(filename)//'.log.txt', &
+      OPEN(NDSOPLOG,FILE=path(:LEN_TRIM(path))//'log.'//TRIM(fname)//'.txt', &
                form ='FORMATTED')
-      WRITE (NDSOPLOG,*) 'The '//TRIM(filename)//' file has been successfully written!'
+      WRITE (NDSOPLOG,*) 'The '//TRIM(fname)//' file has been successfully written!'
       CALL FLUSH (NDSOPLOG)
       CLOSE (NDSOPLOG)
     ENDIF
@@ -1952,12 +1954,12 @@ SUBROUTINE W3IOPON ( INXOUT, NDSOP, IOTST, IMOD)
 
     CHARACTER(LEN=15) :: TIMETAG
     INTEGER :: IGRD
-    character(len = 124) :: filename
+    character(len = 256) :: filename
     integer :: ncerr
 
     ! DEFINED A LOCAL FNMPRE TO AVOID CHANGE THE GLOBAL VALUE
     CHARACTER(LEN=256)       :: FNMPRE_LOCAL
-
+    CHARACTER(LEN=124)       :: FNAME
 #ifdef W3_S
     CALL STRACE (IENT, 'W3IOPON')
 #endif
@@ -1988,15 +1990,16 @@ SUBROUTINE W3IOPON ( INXOUT, NDSOP, IOTST, IMOD)
     ! Determine filename.
     IF (LEN_TRIM(FNMPNT) .EQ. 0) THEN
       FNMPRE_LOCAL = FNMPRE
-	ELSE
-	  FNMPRE_LOCAL = FNMPNT
+    ELSE
+      FNMPRE_LOCAL = FNMPNT
     END IF
     !
 
     IF ( OFILES(2) .EQ. 1 ) THEN 
       ! Create TIMETAG for file name using YYYYMMDD.HHMMS prefix
       WRITE(TIMETAG,"(i8.8,'.'i6.6)")TIME(1),TIME(2)
       filename = FNMPRE_LOCAL(:LEN_TRIM(FNMPRE_LOCAL))//TIMETAG//'.out_pnt.'//FILEXT(:LEN_TRIM(FILEXT))//'.nc'
+      FNAME = TIMETAG//'.out_pnt.'//FILEXT(:LEN_TRIM(FILEXT))
     ELSE 
       filename = FNMPRE_LOCAL(:LEN_TRIM(FNMPRE_LOCAL))//'out_pnt.'//FILEXT(:LEN_TRIM(FILEXT))//'.nc'
     END IF 
@@ -2005,7 +2008,7 @@ SUBROUTINE W3IOPON ( INXOUT, NDSOP, IOTST, IMOD)
     IF (INXOUT .EQ. 'READ') THEN
       CALL W3IOPON_READ(IOTST, IMOD, filename, ncerr)
     ELSE
-      CALL W3IOPON_WRITE(OFILES(2), filename, ncerr, NDSOP=NDSOP)
+      CALL W3IOPON_WRITE(OFILES(2), filename, ncerr, NDSOP=NDSOP, fname=FNAME, path=FNMPRE_LOCAL)
     ENDIF
     if (nf90_err(ncerr) .ne. 0) then
       WRITE(NDSE,*) ' *** WAVEWATCH III ERROR IN W3IOPO :'
@@ -2232,7 +2235,7 @@ SUBROUTINE W3IOPO ( INXOUT, NDSOP, IOTST, IMOD &
 
     ! DEFINED A LOCAL FNMPRE TO AVOID CHANGE THE GLOBAL VALUE
     CHARACTER(LEN=256)       :: FNMPRE_LOCAL
-	
+
     !/
     !/ ------------------------------------------------------------------- /
     !/