w3nmlbouncmd Module Reference

Data Types
type	nml_bound_t

Functions/Subroutines
subroutine	w3nmlbounc (NDSI, INFILE, NML_BOUND, IERR)
subroutine	read_bound_nml (NDSI, NML_BOUND)
subroutine	report_bound_nml (NML_BOUND)

Variables
character(256)	msg
integer	ndsn

Function/Subroutine Documentation

read_bound_nml()

subroutine w3nmlbouncmd::read_bound_nml	(	integer, intent(in)	NDSI,
		type(nml_bound_t), intent(inout)	NML_BOUND
	)

Definition at line 160 of file w3nmlbouncmd.F90.

    !/
    !/                  +-----------------------------------+
    !/                  | WAVEWATCH III           NOAA/NCEP |
    !/                  |           M. Accensi              |
    !/                  |                                   |
    !/                  |                        FORTRAN 90 |
    !/                  | Last update :         15-May-2018 |
    !/                  +-----------------------------------+
    !/
    !  1. Purpose :
    !
    !
    !  2. Method :
    !
    !     See source term routines.
    !
    !  3. Parameters :
    !
    !     Parameter list
    !     ----------------------------------------------------------------
    !      NDSI         Int.
    !      NML_BOUND    Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLBOUNC Subr.   N/A    Namelist configuration routine.
    !     ----------------------------------------------------------------
    !
    !  6. Error messages :
    !
    !     None.
    !
    !  7. Remarks :
    !
    !  8. Structure :
    !
    !     See source code.
    !
    !  9. Switches :
    !
    ! 10. Source code :
    !
    !/ ------------------------------------------------------------------- /
 
    USE w3odatmd, ONLY: ndse
    USE w3servmd, ONLY: extcde
#ifdef W3_S
    USE w3servmd, ONLY: strace
#endif
 
    IMPLICIT NONE
 
    INTEGER, INTENT(IN)                 :: NDSI
    TYPE(NML_BOUND_T), INTENT(INOUT)    :: NML_BOUND
 
    ! locals
    INTEGER                   :: IERR
    TYPE(NML_BOUND_T) :: BOUND
    namelist /bound_nml/ bound
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_BOUND_NML')
#endif
 
    ! set default values for track structure
    bound%MODE       = 'WRITE'
    bound%INTERP     = 2
    bound%VERBOSE    = 1
    bound%FILE       = 'spec.list'
 
    ! read bound namelist
    rewind(ndsi)
    READ (ndsi, nml=bound_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_BOUND_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (1)
    END IF
 
    ! save namelist
    nml_bound = bound
 

References w3servmd::extcde(), msg, w3odatmd::ndse, and w3servmd::strace().

Referenced by w3nmlbounc().

report_bound_nml()

subroutine w3nmlbouncmd::report_bound_nml

(

type(nml_bound_t), intent(in)

NML_BOUND

)

Definition at line 271 of file w3nmlbouncmd.F90.

    !/
    !/                  +-----------------------------------+
    !/                  | WAVEWATCH III           NOAA/NCEP |
    !/                  |           M. Accensi              |
    !/                  |                        FORTRAN 90 |
    !/                  | Last update :         15-May-2018 |
    !/                  +-----------------------------------+
    !/
    !/
    !  1. Purpose :
    !
    !
    !  2. Method :
    !
    !     See source term routines.
    !
    !  3. Parameters :
    !
    !     Parameter list
    !     ----------------------------------------------------------------
    !      NML_BOUND  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLBOUNC Subr.   N/A    Namelist configuration routine.
    !     ----------------------------------------------------------------
    !
    !  6. Error messages :
    !
    !     None.
    !
    !  7. Remarks :
    !
    !  8. Structure :
    !
    !     See source code.
    !
    !  9. Switches :
    !
    ! 10. Source code :
    !
    !/ ------------------------------------------------------------------- /
 
#ifdef W3_S
    USE w3servmd, ONLY: strace
#endif
 
    IMPLICIT NONE
 
    TYPE(NML_BOUND_T), INTENT(IN) :: NML_BOUND
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_BOUND_NML')
#endif
 
    WRITE (msg,'(A)') 'BOUND % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,10) trim(msg),'MODE       = ', trim(nml_bound%MODE)
    WRITE (ndsn,11) trim(msg),'INTERP     = ', nml_bound%INTERP
    WRITE (ndsn,11) trim(msg),'VERBOSE    = ', nml_bound%VERBOSE
    WRITE (ndsn,10) trim(msg),'FILE       = ', trim(nml_bound%FILE)
 
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
 

References msg, ndsn, and w3servmd::strace().

Referenced by w3nmlbounc().

w3nmlbounc()

subroutine w3nmlbouncmd::w3nmlbounc	(	integer, intent(in)	NDSI,
		character*(*), intent(in)	INFILE,
		type(nml_bound_t), intent(inout)	NML_BOUND,
		integer, intent(out)	IERR
	)

Definition at line 45 of file w3nmlbouncmd.F90.

    !/
    !/                  +-----------------------------------+
    !/                  | WAVEWATCH III           NOAA/NCEP |
    !/                  |           M. Accensi              |
    !/                  |                                   |
    !/                  |                        FORTRAN 90 |
    !/                  | Last update :         15-May-2018 |
    !/                  +-----------------------------------+
    !/
    !
    !  1. Purpose :
    !
    !     Reads all the namelist to define the input boundary
    !
    !  2. Method :
    !
    !     See source term routines.
    !
    !  3. Parameters :
    !
    !     Parameter list
    !     ----------------------------------------------------------------
    !      NDSI        Int.
    !      INFILE      Char.
    !      NML_BOUND   type.
    !      IERR        Int.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !      READ_BOUND_NML
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      WW3_BOUNC  Prog.   N/A    Preprocess input boundaries.
    !     ----------------------------------------------------------------
    !
    !  6. Error messages :
    !
    !     None.
    !
    !  7. Remarks :
    !
    !  8. Structure :
    !
    !     See source code.
    !
    !  9. Switches :
    !
    ! 10. Source code :
    !
    !/ ------------------------------------------------------------------- /
 
    USE w3odatmd, ONLY: ndse
#ifdef W3_S
    USE w3servmd, ONLY: strace
#endif
 
    IMPLICIT NONE
 
    INTEGER, INTENT(IN)                         :: NDSI
    CHARACTER*(*), INTENT(IN)                   :: INFILE
    TYPE(NML_BOUND_T), INTENT(INOUT)            :: NML_BOUND
    INTEGER, INTENT(OUT)                        :: IERR
#ifdef W3_S
    INTEGER, SAVE                             :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'W3NMLBOUNC')
#endif
 
    ! open namelist log file
    ndsn = 3
    OPEN (ndsn, file=trim(infile)//'.log', form='formatted', iostat=ierr)
    IF (ierr.NE.0) THEN
      WRITE (ndse,'(A)') 'ERROR: open full nml file '//trim(infile)//'.log failed'
      RETURN
    END IF
 
    ! open input file
    OPEN (ndsi, file=trim(infile), form='formatted', status='old', iostat=ierr)
    IF (ierr.NE.0) THEN
      WRITE (ndse,'(A)') 'ERROR: open input file '//trim(infile)//' failed'
      RETURN
    END IF
 
    ! read bound namelist
    CALL read_bound_nml (ndsi, nml_bound)
    CALL report_bound_nml (nml_bound)
 
    ! close namelist files
    CLOSE (ndsi)
    CLOSE (ndsn)
 

References file(), w3odatmd::ndse, ndsn, read_bound_nml(), report_bound_nml(), and w3servmd::strace().

Referenced by w3bounc().

Variable Documentation

msg

character(256) w3nmlbouncmd::msg

Definition at line 36 of file w3nmlbouncmd.F90.

  CHARACTER(256)                :: MSG

Referenced by read_bound_nml(), and report_bound_nml().

ndsn

integer w3nmlbouncmd::ndsn

Definition at line 37 of file w3nmlbouncmd.F90.

  INTEGER                       :: NDSN

Referenced by report_bound_nml(), and w3nmlbounc().