fix for a few multi tests to run

JessicaMeixner-NOAA · Apr 18, 2024 · fa4509b · fa4509b
1 parent 2e7105f
commit fa4509b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90
@@ -1542,11 +1542,11 @@ SUBROUTINE W3IOPON_WRITE(timestep_only, IMOD, filename, ncerr)
 
  ! Write the data with NOPTS as a dimension. (no time dimension)
  if (associated(PTLOC)) then
- ncerr = nf90_put_var(fh, v_ptloc, PTLOC)
+ ncerr = nf90_put_var(fh, v_ptloc, PTLOC(:,1:NOPTS))
  if (nf90_err(ncerr) .ne. 0) return
  endif
  if (associated(PTNME)) then
- ncerr = nf90_put_var(fh, v_ptnme, PTNME)
+ ncerr = nf90_put_var(fh, v_ptnme, PTNME(1:NOPTS))
  if (nf90_err(ncerr) .ne. 0) return
  endif