fix for grdid

JessicaMeixner-NOAA · Apr 2, 2024 · 402d16a · 402d16a
1 parent 15ee016
commit 402d16a
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90
@@ -1610,9 +1610,8 @@ SUBROUTINE W3IOPON_WRITE(timestep_only, IMOD, filename, ncerr)
  ncerr = nf90_inq_varid(fh, VNAME_GRDID, v_grdid)
  if (ncerr .ne. 0) return
  END IF
-!!! TO DO ADD GRIDLENTH? 
- ncerr = nf90_put_var(fh, v_grdid, GRDID, start = (/ 1, itime/), &
- count = (/ d_nopts, 1 /))
+ ncerr = nf90_put_var(fh, v_grdid, GRDID, start = (/ 1, 1, itime/), &
+ count = (/ d_grdidlen, d_nopts, 1 /))
  if (ncerr .ne. 0) return
  write(*,*) 'JDM f 16'
  IF ( itime > 1 ) THEN