c*** NCF_IOMOD
c
      Module ncf_iomod
      include 'camx.prm'
      include 'ncf_iodat.inc'
c
c----CAMx v7Beta6 190902
c
c-----------------------------------------------------------------------
c    Description:
c        This allocates the dynamic memory arrays in the NCF_IOMOD.INC
c        include file.
c-----------------------------------------------------------------------
c
c    Argument descriptions:
c     Input:  
c     Output:  
c
c     Copyright 1996 - 2018
c     Ramboll
c
c-----------------------------------------------------------------------
c    LOG:
c-----------------------------------------------------------------------
c
c        02/01/17   Original development
c
      Contains
c
c-----------------------------------------------------------------------
c    BEGIN SUBROUTINE NCF_ALLOC_TSTEP
c-----------------------------------------------------------------------
c
         subroutine ncf_alloc_tstep(num_tsteps)
c
c-----------------------------------------------------------------------
c    Modules used:
c-----------------------------------------------------------------------
c
         implicit none
c
c-----------------------------------------------------------------------
c    Description:
c-----------------------------------------------------------------------
c
c     This routine allocates the array to store the NetCDF time step
c     varaibles
c
c     Input:
c       num_steps I number of time steps in this simulation
c     Output:  
c
c-----------------------------------------------------------------------
c    Argument declarations:
c-----------------------------------------------------------------------
c
        integer :: num_tsteps
c
c-----------------------------------------------------------------------
c    Local variables:
c-----------------------------------------------------------------------
c
c
c-----------------------------------------------------------------------
c    Entry point:
c-----------------------------------------------------------------------
c
       if( .NOT. allocated(ncf_tflag) ) allocate( ncf_tflag(2,num_tsteps) )
       if( .NOT. allocated(ncf_etflag) ) allocate( ncf_etflag(2,num_tsteps) )
c
c-----------------------------------------------------------------------
c    Return point:
c-----------------------------------------------------------------------
c
         return
         end subroutine
c
c-----------------------------------------------------------------------
c    END SUBROUTINE NCF_ALLOC_TSTEP
c-----------------------------------------------------------------------
c
      end Module