From 741f0b26a67a37c80a3260cda6d63bf1c0b00c4d Mon Sep 17 00:00:00 2001 From: Matthew Masarik Date: Thu, 7 Mar 2024 19:18:39 +0000 Subject: [PATCH] model/src/ww3_outf.F90 --- model/src/ww3_outf.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/model/src/ww3_outf.F90 b/model/src/ww3_outf.F90 index 96f2751c8..e955f00ad 100644 --- 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