From 5c86fb78123a12e35c956be367bfa43345860419 Mon Sep 17 00:00:00 2001
From: Matthew Masarik <86749872+MatthewMasarik-NOAA@users.noreply.github.com>
Date: Tue, 2 Nov 2021 13:03:10 -0400
Subject: [PATCH] Modify: w3wavemd.F90, w3initmd.F90 - fix for OUTID (#512)

bugfix: OUTID length adjusted for secondary restarts.
---
 model/src/w3initmd.F90 | 10 +++++-----
 model/src/w3wavemd.F90 |  4 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/model/src/w3initmd.F90 b/model/src/w3initmd.F90
index bf630bf22..310626158 100644
--- a/model/src/w3initmd.F90
+++ b/model/src/w3initmd.F90
@@ -1857,14 +1857,14 @@ SUBROUTINE W3INIT ( IMOD, IsMulti, FEXT, MDS, MTRACE, ODAT      &
   990 FORMAT ( ' Air density time : ',A)
 !
   984 FORMAT (//                                                      &
-        37X,'  |         input         |     output    |'/            &
-        37X,'  |-----------------------|---------------|'/            &
+        37X,'  |         input         |      output      |'/         &
+        37X,'  |-----------------------|------------------|'/         &
          2X,'   step | pass |    date      time   |',                 &
-              ' b w l c t r i i1 i5 d | g p t r b f c |'/             &
+              ' b w l c t r i i1 i5 d | g p t r b f c r2 |'/          &
          2X,'--------|------|---------------------|',                 &
-            '-------------------|---------------|'/                   &
+            '-----------------------|------------------|'/            &
          2X,'--------+------+---------------------+',                 &
-            '-------------------+---------------+')
+            '---------------------------+--------------+')
   987 FORMAT (/' Coupling output fields : '/                          &
                '--------------------------------------------------')
 !
diff --git a/model/src/w3wavemd.F90 b/model/src/w3wavemd.F90
index 6d99f3edf..4d1ab5dbd 100644
--- a/model/src/w3wavemd.F90
+++ b/model/src/w3wavemd.F90
@@ -537,7 +537,7 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
       LOGICAL                 :: UGDTUPDATE    ! true if time step should be updated for UG schemes
       CHARACTER(LEN=8)        :: STTIME
       CHARACTER(LEN=21)       :: IDACT
-      CHARACTER(LEN=13)       :: OUTID
+      CHARACTER(LEN=16)       :: OUTID
       CHARACTER(LEN=23)       :: IDTIME
       INTEGER eIOBP
       INTEGER ITH_F
@@ -3500,7 +3500,7 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
   900 FORMAT (4X,I6,'|',I6,'| ', A19  ,' | ',A,' | ',A,' |')
   901 FORMAT (4X,I6,'|',I6,'| ',11X,A8,' | ',A,' | ',A,' |')
   902 FORMAT (2X,'--------+------+---------------------+'             &
-                ,'-------------------+---------------+')
+                ,'-----------------------+------------------+')
 !
 #ifdef W3_IC3
   920 FORMAT ('     Updating k and Cg from ice param. 1,2,3,4.'/)