Modify: w3wavemd.F90, w3initmd.F90 - fix for OUTID (#512)

bugfix: OUTID length adjusted for secondary restarts.
NOAA-EMC · Nov 17, 2021 · 5c86fb7 · 5c86fb7
1 parent ef6d691
commit 5c86fb7
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git 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
@@ -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.'/)