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