Skip to content

Commit

Permalink
try to add enddef to see if that fixes issue
Browse files Browse the repository at this point in the history
  • Loading branch information
JessicaMeixner-NOAA committed Apr 2, 2024
1 parent ec1dc84 commit b8057a7
Showing 1 changed file with 3 additions and 0 deletions.
3 changes: 3 additions & 0 deletions model/src/w3iopomd.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1393,6 +1393,9 @@ SUBROUTINE W3IOPON_WRITE(timestep_only, IMOD, filename, ncerr)
ncerr = nf90_def_dim(fh, DNAME_TIME, NF90_UNLIMITED, d_time)
if (ncerr .ne. 0) return

ncerr = nf90_enddef(fh)
if (ncerr .ne. 0) return

write(*,*) 'JDM b'
! Define global attributes.
ncerr = nf90_put_att(fh, NF90_GLOBAL, 'title', IDSTR)
Expand Down

0 comments on commit b8057a7

Please sign in to comment.