diff --git a/model/ftn/w3iogrmd.ftn b/model/ftn/w3iogrmd.ftn
index afe6cd145..6dbd42fea 100644
--- a/model/ftn/w3iogrmd.ftn
+++ b/model/ftn/w3iogrmd.ftn
@@ -915,11 +915,11 @@
       IF ( WRITE ) THEN
           WRITE (NDSM)                                                &
                 IHMAX, HSPMIN, WSMULT, WSCUT, FLCOMB, NOSWLL,         &
-                PTMETH, PTFCUT
+                PTMETH, PTFCUT, DISTP
         ELSE
           READ (NDSM,END=801,ERR=802,IOSTAT=IERR)                     &
                 IHMAX, HSPMIN, WSMULT, WSCUT, FLCOMB, NOSWLL,         &
-                PTMETH, PTFCUT
+                PTMETH, PTFCUT, DISTP
         END IF
 !/DEBUGIOGR     WRITE(740+IAPROC,*) 'W3IOGR, step 13'
 !/DEBUGIOGR     FLUSH(740+IAPROC)