clean up comments and print statements

JessicaMeixner-NOAA · Apr 16, 2024 · 9887cfc · 9887cfc
1 parent 19daa8e
commit 9887cfc
Showing 1 changed file with 0 additions and 7 deletions.
diff --git 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 )