diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90 index ebbd96766..5c6e6db9a 100644 --- a/model/src/w3iopomd.F90 +++ b/model/src/w3iopomd.F90 @@ -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)