stdinp_mod::getpar_i Interface Reference

Public Member Functions
subroutine	getpar_0d_i (mymaster, value, keyword, inpname)
subroutine	getpar_1d_i (mymaster, ndim, value, keyword, inpname)

Detailed Description

Definition at line 39 of file stdinp_mod.F.

Member Function/Subroutine Documentation

getpar_0d_i()

subroutine stdinp_mod::getpar_i::getpar_0d_i	(	logical, intent(in)	mymaster,
		integer, intent(out)	value,
		character (len=*), intent(in)	keyword,
		character (len=*), intent(in), optional	inpname )

Definition at line 156 of file stdinp_mod.F.

!
!***********************************************************************
!                                                                      !
!  Reads a scalar integer parameter from ROMS standard input file.     !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     MyMaster   Switch indicating Master process (logical)            !
!     KeyWord    Keyword associated with input parameter (string)      !
!     InpName    Standard input filename (string; OPTIONAL)            !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     Value      Standard input parameter value (integer)              !
!                                                                      !
!***********************************************************************
!
!  Imported variable declarations.
!
      logical, intent(in)  :: MyMaster
!
      integer, intent(out) :: Value
!
      character (len=*), intent(in) :: KeyWord
      character (len=*), intent(in), optional :: InpName
!
!  Local variable declarations.
!
      logical :: foundit, GotFile
!
      integer :: InpUnit, Npts, Nval, io_err, status
      integer :: Ivalue(1)
!
      real(dp), dimension(nRval) :: Rval
!
      character (len= 40) :: string
      character (len=256) :: io_errmsg, line
      character (len=256), dimension(nCval) :: Cval
!
!-----------------------------------------------------------------------
!  Read requested ROMS standard input integer parameter.
!-----------------------------------------------------------------------
!
!  Get standard input unit.
!
      io_err=0
      IF (PRESENT(inpname)) THEN
        inpunit=1
        OPEN (inpunit, file=trim(inpname), form='formatted',            &
     &        status='old', iostat=io_err, iomsg=io_errmsg)
        IF (io_err.ne.0) THEN
          IF (mymaster) WRITE (stdout,10) trim(inpname),                &
     &                                    trim(io_errmsg)
  10      FORMAT (/,' GETPAR_0D_I - Unable to open input script: ',a,   &
     &            /,15x,'ERROR: ',a)
          exit_flag=2
          RETURN
        ELSE
          gotfile=.true.
        END IF
      ELSE
        inpunit=stdinp_unit(mymaster, gotfile)
      END IF
!
!  Process requested parameter.
!
      foundit=.false.
      DO WHILE (.true.)
        READ (inpunit,'(a)',err=20,END=40) line
        status=decode_line(line, string, nval, cval, rval)
        IF (status.gt.0) THEN
          IF (trim(string).eq.trim(keyword)) THEN
            npts=load_i(nval, rval, 1, ivalue)
            Value=ivalue(1)
            foundit=.true.
          END IF
        END IF
      END DO
  20  IF (mymaster) THEN
        WRITE (stdout,30) line
  30    FORMAT (/,' GETPAR_0D_I - Error while processing line: ',/,a)
      END IF
      exit_flag=4
  40  CONTINUE
      IF (.not.foundit) THEN
        IF (mymaster) THEN
          WRITE (stdout,50) trim(keyword)
  50    FORMAT (/,' GETPAR_0D_I - unable to find KeyWord: ',a,          &
     &          /,15x,'in ROMS standard input file.')
        END IF
        exit_flag=5
      END IF
      IF (gotfile) THEN
        CLOSE (inpunit)
      END IF
!
      RETURN

References inp_decode_mod::decode_line(), mod_iounits::err, mod_scalars::exit_flag, stdinp_mod::stdinp_unit(), and mod_iounits::stdout.

Here is the call graph for this function:

getpar_1d_i()

subroutine stdinp_mod::getpar_i::getpar_1d_i	(	logical, intent(in)	mymaster,
		integer, intent(in)	ndim,
		integer, dimension(:), intent(out)	value,
		character (len=*), intent(in)	keyword,
		character (len=*), intent(in), optional	inpname )

Definition at line 256 of file stdinp_mod.F.

!
!***********************************************************************
!                                                                      !
!  Reads a 1D integer parameter from ROMS standard input file.         !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     MyMaster   Switch indicating Master process (logical)            !
!     Ndim       Size integer variable dimension                       !
!     KeyWord    Keyword associated with input parameter (string)      !
!     InpName    Standard input filename (string; OPTIONAL)            !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     Value      Standard input parameter value (integer 1D array)     !
!                                                                      !
!***********************************************************************
!
!  Imported variable declarations.
!
      logical, intent(in)  :: MyMaster
!
      integer, intent(in)  :: Ndim
      integer, intent(out) :: Value(:)
!
      character (len=*), intent(in) :: KeyWord
      character (len=*), intent(in), optional :: InpName
!
!  Local variable declarations.
!
      logical :: foundit, GotFile
!
      integer :: InpUnit, Npts, Nval, io_err, status
!
      real(dp), dimension(nRval) :: Rval
!
      character (len= 40) :: string
      character (len=256) :: io_errmsg, line
      character (len=256), dimension(nCval) :: Cval
!
!-----------------------------------------------------------------------
!  Read requested ROMS standard input 1D integer parameter.
!-----------------------------------------------------------------------
!
!  Get standard input unit.
!
      io_err=0
      IF (PRESENT(inpname)) THEN
        inpunit=1
        OPEN (inpunit, file=trim(inpname), form='formatted',            &
     &        status='old', iostat=io_err, iomsg=io_errmsg)
        IF (io_err.ne.0) THEN
          IF (mymaster) WRITE (stdout,10) trim(inpname),                &
     &                                    trim(io_errmsg)
  10      FORMAT (/,' GETPAR_1D_I - Unable to open input script: ',a,   &
     &            /,15x,'ERROR: ',a)
          exit_flag=5
          RETURN
        ELSE
          gotfile=.true.
        END IF
      ELSE
        inpunit=stdinp_unit(mymaster, gotfile)
      END IF
!
!  Process requested parameter.
!
      foundit=.false.
      DO WHILE (.true.)
        READ (inpunit,'(a)',err=20,END=40) line
        status=decode_line(line, string, nval, cval, rval)
        IF (status.gt.0) THEN
          IF (trim(string).eq.trim(keyword)) THEN
            npts=load_i(nval, rval, ndim, Value)
            foundit=.true.
          END IF
        END IF
      END DO
  20  IF (mymaster) THEN
        WRITE (stdout,30) line
  30    FORMAT (/,' GETPAR_1D_I - Error while processing line: ',/,a)
      END IF
      exit_flag=4
  40  CONTINUE
      IF (.not.foundit) THEN
        IF (mymaster) THEN
          WRITE (stdout,50) trim(keyword)
  50    FORMAT (/,' GETPAR_1D_I - unable to find KeyWord: ',a,          &
     &          /,15x,'in ROMS standard input file.')
        END IF
        exit_flag=5
      END IF
      IF (gotfile) THEN
        CLOSE (inpunit)
      END IF
!
      RETURN

References stdinp_mod::stdinp_unit().

Here is the call graph for this function:

---

The documentation for this interface was generated from the following file:

• ROMS/Utility/stdinp_mod.F