module namelist_T3DEdyn
  use shr_kind_mod, only: r8 => shr_kind_r8            ! 8-byte reals
  use params,only: iulog,fillvalue
  implicit none
#include <mpif.h>

  integer :: nfiles             ! Number of input/output files
  integer :: timestepsec        ! Size of run time step in seconds
  integer,parameter :: max_path = 1024
  character(len=max_path) :: &
    input_ncfiles  = ' ',     & ! input file list for this run
    output_ncfiles = ' '        ! output netcdf file list to create

  namelist/t3dedyn_input/ nfiles,input_ncfiles,output_ncfiles,timestepsec

contains
!-----------------------------------------------------------------------
subroutine get_T3DEdynNamelist()
!
! Local variables
!
  integer :: ier

  input_ncfile  = ' '
  output_ncfile = ' '
  model_name    = ' '

  READ(5, nml=t3dedyn_input)

!  call mpi_bcast(input_ncfile ,max_path,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
!  call mpi_bcast(output_ncfile,max_path,MPI_CHARACTER,0,MPI_COMM_WORLD,ier)
!  call mpi_bcast(ctpoten      ,1,       MPI_REAL8,    0,MPI_COMM_WORLD,ier)
!
  IF (len_trim(input_ncfiles)==0) STOP 'Need input file list path'
  IF (len_trim(output_ncfiles)==0) STOP 'Need output file list path'

end subroutine get_t3dedyn_namelist
!-----------------------------------------------------------------------
end module namelist