inputnml.F90

Go to the documentation of this file.

module inputnml

 use grdvars,     only : nx,ny,ni,nj,npx
 use grdvars,     only : editmask, debug, do_postwgts
 use charstrings, only : dirsrc, dirout, fv3dir, res, atmres, topofile, editsfile

 implicit none

 contains


 subroutine read_inputnml(fname)

  character(len=*),   intent(in) :: fname

  ! local variables
  integer :: stderr, iounit, rc

  namelist /grid_nml/ ni, nj, dirsrc, dirout, fv3dir,  topofile, editsfile, &
                     res, atmres, npx, editmask, debug, &
                     do_postwgts

  ! Check whether file exists.
  inquire (file=trim(fname), iostat=rc)

  if (rc /= 0) then
      write (stderr, '(3a)') 'Error: input file "', trim(fname), '" does not exist.'
      return
  end if

  ! Open and read Namelist file.
  open (action='read', file=trim(fname), iostat=rc, newunit=iounit)
  read (nml=grid_nml, iostat=rc, unit=iounit)

  ! set supergrid dimensions
  nx = ni*2
  ny = nj*2

  if (rc /= 0) then
      write (stderr, '(a)') 'Error: invalid Namelist format.'
  end if

  close (iounit)
  end subroutine read_inputnml
end module inputnml