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:',                  &