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 )