!     
! File:   writeinunflag.f
! Author: Christopher Moore
!
! Created on October 1, 2010, 1:50 AM
! Modified to write the inundated area January 11, 2013
!
      subroutine writeinunflag(ncid,floodid,step)
      implicit none
      include 'netcdf.inc'
      integer n1,n2,mm,nn
      integer*4 ncid,step,iret,floodid,intvalue(1)

      intvalue(1)=step
      iret=nf_put_att_int(ncid,floodid,'TimestepOfFirstInundation',
     &  NF_INT, 1, intvalue)
      call check_err(iret)


      end subroutine