Merge remote-tracking branch 'AS/para_outp' into devufspntopt

Author: JessicaMeixner-NOAA

model/src/w3iopomd.F90

@@ -1478,7 +1478,7 @@ SUBROUTINE W3IOPON_READ(IOTST, IMOD_IN, filename, ncerr, TOUT )
         if (nf90_err(ncerr) .ne. 0) return
       END IF      
 
-      !Variables read based on time (IPASS):      
+      !Variables read based on time (itime):      
       ncerr = nf90_inq_varid(fh, VNAME_WW3TIME, v_ww3time)
       if (nf90_err(ncerr) .ne. 0) return
       ncerr = nf90_get_var(fh, v_ww3time, TIME, start = (/ 1, itime/), &
@@ -1576,7 +1576,7 @@ SUBROUTINE W3IOPON_READ(IOTST, IMOD_IN, filename, ncerr, TOUT )
       ! and are at the end of the
       IOTST  = -1
     END IF
-    
+
     ! Close the file.
     ncerr = nf90_close(fh)
     if (nf90_err(ncerr) .ne. 0) return

model/src/ww3_outp.F90

@@ -494,20 +494,22 @@ PROGRAM W3OUTP
     CLOSE(NDBO)
 #endif
     !
-    WRITE (NDSO,942) ITYPE, 'Checking contents of file'
-    DO
-      CALL STME21 ( TIME , IDTIME )
-      WRITE (NDSO,948) IDTIME
+    IF (dynpnt == 0) THEN
+      WRITE (NDSO,942) ITYPE, 'Checking contents of file'
+      DO
+        CALL STME21 ( TIME , IDTIME )
+        WRITE (NDSO,948) IDTIME
 #ifdef W3_BIN2NC
-      CALL W3IOPON ( 'READ', NDSOP, IOTEST )
+        CALL W3IOPON ( 'READ', NDSOP, IOTEST )
 #else
-      CALL W3IOPO ( 'READ', NDSOP, IOTEST )
+        CALL W3IOPO ( 'READ', NDSOP, IOTEST )
 #endif
-      IF ( IOTEST .EQ. -1 ) THEN
-        WRITE (NDSO,949)
-        GOTO 888
-      END IF
-    END DO
+        IF ( IOTEST .EQ. -1 ) THEN
+          WRITE (NDSO,949)
+          GOTO 888
+        END IF
+      END DO
+    END IF
 
     !
     ! ... ITYPE = 1