From 9887cfca4dc307101cda898a8550e717cecf6319 Mon Sep 17 00:00:00 2001
From: JessicaMeixner-NOAA <Jessica.Meixner@noaa.gov>
Date: Tue, 16 Apr 2024 09:07:06 -0500
Subject: [PATCH] clean up comments and print statements

---
 model/src/w3iopomd.F90 | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90
index 321aa2dfb..349eebbc7 100644
--- a/model/src/w3iopomd.F90
+++ b/model/src/w3iopomd.F90
@@ -1217,15 +1217,11 @@ SUBROUTINE W3IOPON_READ(IOTST, IMOD, filename, ncerr)
     if (ncerr .ne. 0) return
 
     ! Read the dimention information from time
-
-
     ncerr = nf90_inq_dimid(fh, DNAME_TIME, d_time)
     if (ncerr .ne. 0) return
     ncerr = nf90_inquire_dimension(fh, d_time, len = d_time_len)
     if (ncerr .ne. 0) return
 
-    write(*,*) 'IPASS, d_time_len', IPASS, d_time_len
-
     IF ( IPASS .LE. d_time_len ) THEN 
 
       IF ( IPASS.EQ.1 ) THEN
@@ -1247,9 +1243,6 @@ SUBROUTINE W3IOPON_READ(IOTST, IMOD, filename, ncerr)
           CALL EXTCDE ( 12 )
         END IF
 
-        !JDM TO DO: Missing check and reading of IDSTR, VEROPT 
-
-
         ! Allocate variables: 
         IF ( .NOT. O2INIT )                                     &
            CALL W3DMO2 ( IGRD, NDSE, NDST, NOPTS )