From 1dd3e754d32a204366620b652e2debe5645dbc74 Mon Sep 17 00:00:00 2001
From: JessicaMeixner-NOAA <Jessica.Meixner@noaa.gov>
Date: Tue, 2 Apr 2024 08:48:51 -0500
Subject: [PATCH] fix typo

---
 model/src/w3iopomd.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90
index 4e5727bdb..7eec2b615 100644
--- a/model/src/w3iopomd.F90
+++ b/model/src/w3iopomd.F90
@@ -1998,7 +1998,7 @@ SUBROUTINE W3IOPO ( INXOUT, NDSOP, IOTST, IMOD &
       !
       IF ( WRITE ) THEN
         WRITE (NDSOP)                                           &
-             eDSTR, VEROPT, NK, NTH, NOPTS
+             DSTR, VEROPT, NK, NTH, NOPTS
 #ifdef W3_ASCII
         WRITE (NDSOA,*)                                           &
              'IDSTR, VEROPT, NK, NTH, NOPTS:',                  &