small fix to make tp1.1 match develop

JessicaMeixner-NOAA · Apr 16, 2024 · 19daa8e · 19daa8e
1 parent 8fdf76f
commit 19daa8e
Showing 1 changed file with 5 additions and 7 deletions.
diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90
@@ -1224,9 +1224,9 @@ SUBROUTINE W3IOPON_READ(IOTST, IMOD, filename, ncerr)
     ncerr = nf90_inquire_dimension(fh, d_time, len = d_time_len)
     if (ncerr .ne. 0) return
 
-    write(*,*) 'd_time_len', d_time_len
+    write(*,*) 'IPASS, d_time_len', IPASS, d_time_len
 
-    IF ( IPASS < d_time_len ) THEN 
+    IF ( IPASS .LE. d_time_len ) THEN 
 
       IF ( IPASS.EQ.1 ) THEN
 
@@ -1265,17 +1265,15 @@ SUBROUTINE W3IOPON_READ(IOTST, IMOD, filename, ncerr)
         ncerr = nf90_get_var(fh, v_ptnme, PTNME)
         if (ncerr .ne. 0) return
       END IF
-      write(*,*) 'IPASS=', IPASS
-      !JDM TO DO missing variable TIME??? 
+
+      !Variables read based on time (IPASS): 
+
       ncerr = nf90_inq_varid(fh, VNAME_TIME, v_time)
       if (ncerr .ne. 0) return
       ncerr = nf90_get_var(fh, v_time, TIME, start = (/ 1, IPASS/), &
           count = (/ d_vsize_len, 1 /))
       if (ncerr .ne. 0) return
 
-
-      ! All of the below variables are missing the "time" dimension... 
-      ! the time dimension being read should be for "IPASS" 
       ncerr = nf90_inq_varid(fh, VNAME_IW, v_iw)
       if (ncerr .ne. 0) return
       ncerr = nf90_get_var(fh, v_iw, IW, start = (/ 1, IPASS/), &