Fix uninitialized FLOGRR for consistent restart files (NOAA-EMC#1478)

mingchen-NOAA · web-flow · commit c5780b8a7d87 · 2025-07-31T15:14:20.000-04:00
diff --git a/model/src/w3odatmd.F90 b/model/src/w3odatmd.F90
@@ -695,6 +695,7 @@ SUBROUTINE W3NOUT ( NDSERR, NDSTST )
       OUTPTS(I)%TBPIN = (-1,0)
       !
       OUTPTS(I)%OUT1%IPASS1 = 0
+      OUTPTS(I)%OUT1%FLOGRR = .FALSE.
 #ifdef W3_MPI
       OUTPTS(I)%OUT1%NRQGO  = 0
       OUTPTS(I)%OUT1%NRQGO2 = 0

Original file line number	Diff line number	Diff line change
`@@ -695,6 +695,7 @@ SUBROUTINE W3NOUT ( NDSERR, NDSTST )`
`695`	`695`	`OUTPTS(I)%TBPIN = (-1,0)`
`696`	`696`	`!`
`697`	`697`	`OUTPTS(I)%OUT1%IPASS1 = 0`
	`698`	`+ OUTPTS(I)%OUT1%FLOGRR = .FALSE.`
`698`	`699`	`#ifdef W3_MPI`
`699`	`700`	`OUTPTS(I)%OUT1%NRQGO = 0`
`700`	`701`	`OUTPTS(I)%OUT1%NRQGO2 = 0`