stdinp_mod::getpar_s Interface Reference

Public Member Functions
subroutine	getpar_0d_s (mymaster, value, keyword, inpname)

Detailed Description

Definition at line 54 of file stdinp_mod.F.

Member Function/Subroutine Documentation

getpar_0d_s()

subroutine stdinp_mod::getpar_s::getpar_0d_s	(	logical, intent(in)	mymaster,
		character (len=*), intent(out)	value,
		character (len=*), intent(in)	keyword,
		character (len=*), intent(in), optional	inpname )

Definition at line 758 of file stdinp_mod.F.

!
!***********************************************************************
!                                                                      !
!  Reads a scalar string 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 (string)               !
!                                                                      !
!***********************************************************************
!
!  Imported variable declarations.
!
      logical, intent(in) :: MyMaster
!
      character (len=*), intent( in) :: KeyWord
      character (len=*), intent(out) :: Value
      character (len=*), intent( in), optional :: InpName
!
!  Local variable declarations.
!
      logical :: foundit, GotFile
!
      integer :: InpUnit, Npts, Nval, i, io_err, status
!
      real(dp), dimension(nRval) :: Rval
!
      character (len=1  ), parameter :: blank = ' '
      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_S - 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
            DO i=1,len(Value)
              value(i:i)=blank
            END DO
            Value=trim(adjustl(cval(nval)))
            foundit=.true.
          END IF
        END IF
      END DO
  20  IF (mymaster) THEN
        WRITE (stdout,30) line
  30    FORMAT (/,' GETPAR_0D_S - 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_S - 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