♻️ store DISTP parameter in mod_def.ww3

SanderHulst · May 9, 2022 · 985d216 · 985d216
1 parent c118c33
commit 985d216
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)