Bugfix memory leak in ST6 source terms. Ticket NOAA-EMC#1340

Changes ------- [x] GCC variable width added to format statement [x] Add use statement to subroutine EXCDE
MarziehDerkani · Jan 17, 2025 · cc5a1a4 · cc5a1a4
1 parent 631ec0f
commit cc5a1a4
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/model/src/w3src6md.F90 b/model/src/w3src6md.F90
@@ -874,6 +874,7 @@ SUBROUTINE LFACTOR(S, CINV, U10, USTAR, USDIR, SIG, DSII, &
     USE W3ODATMD,  ONLY: NDST, NDSE, IAPROC, NAPERR
     USE W3TIMEMD,  ONLY: STME21
     USE W3WDATMD,  ONLY: TIME
+    USE W3SERVMD, ONLY: EXTCDE
 #ifdef W3_S
     USE W3SERVMD, ONLY: STRACE
 #endif

diff --git a/model/src/w3wda1md.F90 b/model/src/w3wda1md.F90
@@ -204,8 +204,8 @@ SUBROUTINE W3WDA1 ( MDAT, NDAT, DATA0 )
     !
     ! Formats
     !
-1000 FORMAT (/' *** WAVEWATCH III ERROR IN W3WDA1 :'/                &
-              '     DATA RECORD DIMENSION <4 : ',I)
+1000 FORMAT (/' *** WAVEWATCH III ERROR IN W3WDA1 :'/             &
+         '     DATA RECORD DIMENSION <4 : ',I8)
   END SUBROUTINE W3WDA1
   !/ ------------------------------------------------------------------- /
   !>