model/src/ww3_outf.F90

NOAA-EMC · Mar 7, 2024 · 741f0b2 · 741f0b2
1 parent a5338c1
commit 741f0b2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/model/src/ww3_outf.F90 b/model/src/ww3_outf.F90
@@ -2433,7 +2433,7 @@ SUBROUTINE W3EXGO ( NX, NY, NSEA )
                 OPEN (NDSDAT,FILE=FNMPRE(:JJ)//FNAME,ERR=800,     &
                      IOSTAT=IERR)
                 IF (FSC.LT.1E-4) THEN
-                  WRITE(FSCS,'(G7.1)') FSC
+                  WRITE(FSCS,'(G8.1)') FSC
                 ELSE
                   WRITE(FSCS,'(F7.4)') FSC
                 END IF