w3nmlgridmd.F90

Go to the documentation of this file.

#include "w3macros.h"
!/ ------------------------------------------------------------------- /
MODULE w3nmlgridmd
  !/
  !/                  +-----------------------------------+
  !/                  | WAVEWATCH III           NOAA/NCEP |
  !/                  |           M. Accensi              |
  !/                  |                                   |
  !/                  |                        FORTRAN 90 |
  !/                  | Last update :         15-May-2018 |
  !/                  +-----------------------------------+
  !/
  !/    For updates see subroutines.
  !/
  !  1. Purpose :
  !
  !     Manages namelists from configuration file ww3_grid.nml for ww3_grid program
  !
  !/ ------------------------------------------------------------------- /
 
  ! module defaults
  IMPLICIT NONE
 
  PUBLIC
 
  ! coord file structure
  TYPE nml_coord_file_t
    REAL                        :: sf
    REAL                        :: off
    CHARACTER(256)              :: filename
    INTEGER                     :: idf
    INTEGER                     :: idla
    INTEGER                     :: idfm
    CHARACTER(256)              :: format
    CHARACTER(256)              :: from
  END TYPE nml_coord_file_t
 
  ! file structure
  TYPE nml_file_t
    REAL                        :: sf
    CHARACTER(256)              :: filename
    INTEGER                     :: idf
    INTEGER                     :: idla
    INTEGER                     :: idfm
    CHARACTER(256)              :: format
    CHARACTER(256)              :: from
  END TYPE nml_file_t
 
  ! smc file structure
  TYPE nml_smc_file_t
    CHARACTER(256)              :: filename
    INTEGER                     :: idf
    INTEGER                     :: idla
    INTEGER                     :: idfm
    CHARACTER(256)              :: format
  END TYPE nml_smc_file_t
 
 
  ! spectrum structure
  TYPE nml_spectrum_t
    REAL                        :: xfr
    REAL                        :: freq1
    INTEGER                     :: nk
    INTEGER                     :: nth
    REAL                        :: thoff
  END TYPE nml_spectrum_t
 
  ! run structure
  TYPE nml_run_t
    LOGICAL                     :: fldry
    LOGICAL                     :: flcx
    LOGICAL                     :: flcy
    LOGICAL                     :: flcth
    LOGICAL                     :: flck
    LOGICAL                     :: flsou
  END TYPE nml_run_t
 
  ! timesteps structure
  TYPE nml_timesteps_t
    REAL                        :: dtmax
    REAL                        :: dtxy
    REAL                        :: dtkth
    REAL                        :: dtmin
  END TYPE nml_timesteps_t
 
  ! grid structure
  TYPE nml_grid_t
    CHARACTER(256)              :: name
    CHARACTER(256)              :: nml
    CHARACTER(256)              :: type
    CHARACTER(256)              :: coord
    CHARACTER(256)              :: clos
    REAL                        :: zlim
    REAL                        :: dmin
  END TYPE nml_grid_t
 
  ! rect structure
  TYPE nml_rect_t
    INTEGER                     :: nx
    INTEGER                     :: ny
    REAL                        :: sx
    REAL                        :: sy
    REAL                        :: sf
    REAL                        :: x0
    REAL                        :: y0
    REAL                        :: sf0
  END TYPE nml_rect_t
 
  ! curv structure
  TYPE nml_curv_t
    INTEGER                     :: nx
    INTEGER                     :: ny
    TYPE(nml_coord_file_t)      :: xcoord
    TYPE(nml_coord_file_t)      :: ycoord
  END TYPE nml_curv_t
 
  ! unst structure
  TYPE nml_unst_t
    REAL                        :: sf
    CHARACTER(256)              :: filename
    INTEGER                     :: idf
    INTEGER                     :: idla
    INTEGER                     :: idfm
    CHARACTER(256)              :: format
    CHARACTER(256)              :: ugobcfile
  END TYPE nml_unst_t
 
  ! smc structure
  TYPE nml_smc_t
    TYPE(nml_smc_file_t)        :: mcels
    TYPE(nml_smc_file_t)        :: iside
    TYPE(nml_smc_file_t)        :: jside
    TYPE(nml_smc_file_t)        :: subtr
    TYPE(nml_smc_file_t)        :: bundy
    TYPE(nml_smc_file_t)        :: mbarc
    TYPE(nml_smc_file_t)        :: aisid
    TYPE(nml_smc_file_t)        :: ajsid
  END TYPE nml_smc_t
 
  ! depth structure
  TYPE nml_depth_t
    REAL                        :: sf
    CHARACTER(256)              :: filename
    INTEGER                     :: idf
    INTEGER                     :: idla
    INTEGER                     :: idfm
    CHARACTER(256)              :: format
    CHARACTER(256)              :: from
  END TYPE nml_depth_t
 
  ! mask structure
  TYPE nml_mask_t
    REAL                        :: sf
    CHARACTER(256)              :: filename
    INTEGER                     :: idf
    INTEGER                     :: idla
    INTEGER                     :: idfm
    CHARACTER(256)              :: format
    CHARACTER(256)              :: from
  END TYPE nml_mask_t
 
  ! obst structure
  TYPE nml_obst_t
    REAL                        :: sf
    CHARACTER(256)              :: filename
    INTEGER                     :: idf
    INTEGER                     :: idla
    INTEGER                     :: idfm
    CHARACTER(256)              :: format
    CHARACTER(256)              :: from
  END TYPE nml_obst_t
 
  ! slope structure
  TYPE nml_slope_t
    REAL                        :: sf
    CHARACTER(256)              :: filename
    INTEGER                     :: idf
    INTEGER                     :: idla
    INTEGER                     :: idfm
    CHARACTER(256)              :: format
    CHARACTER(256)              :: from
  END TYPE nml_slope_t
 
  ! sed structure
  TYPE nml_sed_t
    REAL                        :: sf
    CHARACTER(256)              :: filename
    INTEGER                     :: idf
    INTEGER                     :: idla
    INTEGER                     :: idfm
    CHARACTER(256)              :: format
    CHARACTER(256)              :: from
  END TYPE nml_sed_t
 
  ! inbound structure
  TYPE nml_inbnd_count_t
    INTEGER                     :: n_point
  END TYPE nml_inbnd_count_t
 
  TYPE nml_inbnd_point_t
    INTEGER                     :: x_index
    INTEGER                     :: y_index
    LOGICAL                     :: connect
  END TYPE nml_inbnd_point_t
 
 
  ! excluded structure
  TYPE nml_excl_count_t
    INTEGER                     :: n_point
    INTEGER                     :: n_body
  END TYPE nml_excl_count_t
 
  TYPE nml_excl_point_t
    INTEGER                     :: x_index
    INTEGER                     :: y_index
    LOGICAL                     :: connect
  END TYPE nml_excl_point_t
 
  TYPE nml_excl_body_t
    INTEGER                     :: x_index
    INTEGER                     :: y_index
  END TYPE nml_excl_body_t
 
 
  ! outbound structure
  TYPE nml_outbnd_count_t
    INTEGER                     :: n_line
  END TYPE nml_outbnd_count_t
 
  TYPE nml_outbnd_line_t
    REAL                        :: x0
    REAL                        :: y0
    REAL                        :: dx
    REAL                        :: dy
    INTEGER                     :: np
  END TYPE nml_outbnd_line_t
 
 
 
  ! miscellaneous
  CHARACTER(256)                :: msg
  INTEGER                       :: ndsn
 
 
 
CONTAINS
  !/ ------------------------------------------------------------------- /
  SUBROUTINE w3nmlgrid (NDSI, INFILE, NML_SPECTRUM, NML_RUN,           &
       NML_TIMESTEPS, NML_GRID, NML_RECT, NML_CURV,   &
       NML_UNST, NML_SMC, NML_DEPTH, NML_MASK,        &
       NML_OBST, NML_SLOPE, NML_SED, NML_INBND_COUNT, &
       NML_INBND_POINT, NML_EXCL_COUNT,               &
       NML_EXCL_POINT, NML_EXCL_BODY,                 &
       NML_OUTBND_COUNT, NML_OUTBND_LINE, IERR)
    !/
    !/                  +-----------------------------------+
    !/                  | WAVEWATCH III           NOAA/NCEP |
    !/                  |           M. Accensi              |
    !/                  |                                   |
    !/                  |                        FORTRAN 90 |
    !/                  | Last update :         15-May-2018 |
    !/                  +-----------------------------------+
    !/
    !
    !  1. Purpose :
    !
    !     Reads all the namelist to define the model grid
    !
    !  2. Method :
    !
    !     See source term routines.
    !
    !  3. Parameters :
    !
    !     Parameter list
    !     ----------------------------------------------------------------
    !      NDSI              Int.
    !      INFILE            Char.
    !      NML_SPECTRUM      Type
    !      NML_RUN           Type
    !      NML_TIMESTEPS     Type
    !      NML_GRID          Type
    !      NML_RECT          Type
    !      NML_CURV          Type
    !      NML_UNST          Type
    !      NML_SMC           Type
    !      NML_DEPTH         Type
    !      NML_MASK          Type
    !      NML_OBST          Type
    !      NML_SLOPE         Type
    !      NML_SED           Type
    !      NML_INBND_COUNT   Type
    !      NML_INBND_POINT   Type
    !      NML_EXCL_COUNT    Type
    !      NML_EXCL_POINT    Type
    !      NML_EXCL_BODY     Type
    !      NML_OUTBND_COUNT  Type
    !      NML_OUTBND_LINE   Type
    !      IERR              Int.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !      READ_SPECTRUM_NML
    !      REPORT_SPECTRUM_NML
    !      READ_RUN_NML
    !      REPORT_RUN_NML
    !      READ_TIMESTEPS_NML
    !      REPORT_TIMESTEPS_NML
    !      READ_GRID_NML
    !      REPORT_GRID_NML
    !      READ_RECT_NML
    !      REPORT_RECT_NML
    !      READ_CURV_NML
    !      REPORT_CURV_NML
    !      READ_UNST_NML
    !      REPORT_UNST_NML
    !      READ_SMC_NML
    !      REPORT_SMC_NML
    !      READ_DEPTH_NML
    !      REPORT_DEPTH_NML
    !      READ_MASK_NML
    !      REPORT_MASK_NML
    !      READ_OBST_NML
    !      REPORT_OBST_NML
    !      READ_SLOPE_NML
    !      REPORT_SLOPE_NML
    !      READ_SED_NML
    !      REPORT_SED_NML
    !      READ_INBOUND_NML
    !      REPORT_INBOUND_NML
    !      READ_EXCLUDED_NML
    !      REPORT_EXCLUDED_NML
    !      READ_OUTBOUND_NML
    !      REPORT_OUTBOUND_NML
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      WW3_GRID  Prog.   N/A    Preprocess model grid.
    !     ----------------------------------------------------------------
    !
    !  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_spectrum_t), INTENT(INOUT)         :: NML_SPECTRUM
    TYPE(nml_run_t), INTENT(INOUT)              :: NML_RUN
    TYPE(nml_timesteps_t), INTENT(INOUT)        :: NML_TIMESTEPS
    TYPE(nml_grid_t), INTENT(INOUT)             :: NML_GRID
    TYPE(nml_rect_t), INTENT(INOUT)             :: NML_RECT
    TYPE(nml_curv_t), INTENT(INOUT)             :: NML_CURV
    TYPE(nml_unst_t), INTENT(INOUT)             :: NML_UNST
    TYPE(nml_smc_t), INTENT(INOUT)              :: NML_SMC
    TYPE(nml_depth_t), INTENT(INOUT)            :: NML_DEPTH
    TYPE(nml_mask_t), INTENT(INOUT)             :: NML_MASK
    TYPE(nml_obst_t), INTENT(INOUT)             :: NML_OBST
    TYPE(nml_slope_t), INTENT(INOUT)            :: NML_SLOPE
    TYPE(nml_sed_t), INTENT(INOUT)              :: NML_SED
    TYPE(nml_inbnd_count_t), INTENT(INOUT)      :: NML_INBND_COUNT
    TYPE(nml_inbnd_point_t), ALLOCATABLE, INTENT(INOUT)      :: NML_INBND_POINT(:)
    TYPE(nml_excl_count_t), INTENT(INOUT)       :: NML_EXCL_COUNT
    TYPE(nml_excl_point_t), ALLOCATABLE, INTENT(INOUT)       :: NML_EXCL_POINT(:)
    TYPE(nml_excl_body_t), ALLOCATABLE, INTENT(INOUT)        :: NML_EXCL_BODY(:)
    TYPE(nml_outbnd_count_t), INTENT(INOUT)     :: NML_OUTBND_COUNT
    TYPE(nml_outbnd_line_t), ALLOCATABLE, INTENT(INOUT)      :: NML_OUTBND_LINE(:)
    INTEGER, INTENT(OUT)                        :: IERR
#ifdef W3_S
    INTEGER, SAVE                             :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'W3NMLGRID')
#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 spectrum namelist
    CALL read_spectrum_nml (ndsi, nml_spectrum)
    CALL report_spectrum_nml (nml_spectrum)
 
    ! read run namelist
    CALL read_run_nml (ndsi, nml_run)
    CALL report_run_nml (nml_run)
 
    ! read timesteps namelist
    CALL read_timesteps_nml (ndsi, nml_timesteps)
    CALL report_timesteps_nml (nml_timesteps)
 
    ! read grid namelist
    CALL read_grid_nml (ndsi, nml_grid)
    CALL report_grid_nml (nml_grid)
 
    ! read rect namelist
    CALL read_rect_nml (ndsi, nml_rect)
    CALL report_rect_nml (nml_rect)
 
    ! read curv namelist
    CALL read_curv_nml (ndsi, nml_curv)
    CALL report_curv_nml (nml_curv)
 
    ! read unst namelist
    CALL read_unst_nml (ndsi, nml_unst)
    CALL report_unst_nml (nml_unst)
 
    ! read smc namelist
    CALL read_smc_nml (ndsi, nml_smc)
    CALL report_smc_nml (nml_smc)
 
    ! read depth namelist
    CALL read_depth_nml (ndsi, nml_depth)
    CALL report_depth_nml (nml_depth)
 
    ! read mask namelist
    CALL read_mask_nml (ndsi, nml_mask)
    CALL report_mask_nml (nml_mask)
 
    ! read obst namelist
    CALL read_obst_nml (ndsi, nml_obst)
    CALL report_obst_nml (nml_obst)
 
    ! read slope namelist
    CALL read_slope_nml (ndsi, nml_slope)
    CALL report_slope_nml (nml_slope)
 
    ! read sed namelist
    CALL read_sed_nml (ndsi, nml_sed)
    CALL report_sed_nml (nml_sed)
 
    ! read inbound namelist
    CALL read_inbound_nml (ndsi, nml_inbnd_count, nml_inbnd_point)
    CALL report_inbound_nml (nml_inbnd_count, nml_inbnd_point)
 
    ! read excluded namelist
    CALL read_excluded_nml (ndsi, nml_excl_count, nml_excl_point, nml_excl_body)
    CALL report_excluded_nml (nml_excl_count, nml_excl_point, nml_excl_body)
 
    ! read outbound namelist
    CALL read_outbound_nml (ndsi, nml_outbnd_count, nml_outbnd_line)
    CALL report_outbound_nml (nml_outbnd_count, nml_outbnd_line)
 
    ! close namelist files
    CLOSE (ndsi)
    CLOSE (ndsn)
 
  END SUBROUTINE w3nmlgrid
 
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_spectrum_nml (NDSI, NML_SPECTRUM)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_SPECTRUM    Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_spectrum_t), INTENT(INOUT) :: NML_SPECTRUM
 
    ! locals
    INTEGER                   :: IERR
    TYPE(nml_spectrum_t) :: SPECTRUM
    namelist /spectrum_nml/ spectrum
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_SPECTRUM_NML')
#endif
 
    ! set default values for spectrum structure
    spectrum%XFR        = 0.
    spectrum%FREQ1      = 0.
    spectrum%NK         = 0
    spectrum%NTH        = 0
    spectrum%THOFF      = 0.
 
    ! read spectrum namelist
    rewind(ndsi)
    READ (ndsi, nml=spectrum_nml, iostat=ierr, iomsg=msg)
    IF (ierr.NE.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_SPECTRUM_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (1)
    END IF
 
    ! save namelist
    nml_spectrum = spectrum
 
  END SUBROUTINE read_spectrum_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_run_nml (NDSI, NML_RUN)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_RUN      Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_run_t), INTENT(INOUT) :: NML_RUN
 
    ! locals
    INTEGER                   :: IERR
    TYPE(nml_run_t) :: RUN
    namelist /run_nml/ run
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_RUN_NML')
#endif
 
    ! set default values for run structure
    run%FLDRY      = .false.
    run%FLCX       = .false.
    run%FLCY       = .false.
    run%FLCTH      = .false.
    run%FLCK       = .false.
    run%FLSOU      = .false.
 
    ! read run namelist
    rewind(ndsi)
    READ (ndsi, nml=run_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_RUN_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (2)
    END IF
 
    ! save namelist
    nml_run = run
 
  END SUBROUTINE read_run_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_timesteps_nml (NDSI, NML_TIMESTEPS)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_TIMESTEPS    Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_timesteps_t), INTENT(INOUT) :: NML_TIMESTEPS
 
    ! locals
    INTEGER                   :: IERR
    TYPE(nml_timesteps_t) :: TIMESTEPS
    namelist /timesteps_nml/ timesteps
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_TIMESTEPS_NML')
#endif
 
    ! set default values for timesteps structure
    timesteps%DTMAX      = 0.
    timesteps%DTXY       = 0.
    timesteps%DTKTH      = 0.
    timesteps%DTMIN      = 0.
 
    ! read timesteps namelist
    rewind(ndsi)
    READ (ndsi, nml=timesteps_nml, iostat=ierr, iomsg=msg)
    IF (ierr.NE.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_TIMESTEPS_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (3)
    END IF
 
    ! save namelist
    nml_timesteps = timesteps
 
  END SUBROUTINE read_timesteps_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_grid_nml (NDSI, NML_GRID)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_GRID         Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_grid_t), INTENT(INOUT)      :: NML_GRID
 
    ! locals
    INTEGER                   :: IERR
    TYPE(nml_grid_t) :: GRID
    namelist /grid_nml/ grid
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_GRID_NML')
#endif
 
    ! set default values for grid structure
    grid%NAME       = 'unset'
    grid%NML        = 'namelists.nml'
    grid%TYPE       = 'unset'
    grid%COORD      = 'unset'
    grid%CLOS       = 'unset'
    grid%ZLIM       = 0.
    grid%DMIN       = 0.
 
    ! read grid namelist
    rewind(ndsi)
    READ (ndsi, nml=grid_nml, iostat=ierr, iomsg=msg)
    IF (ierr.NE.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_GRID_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (4)
    END IF
 
    ! save namelist
    nml_grid = grid
 
  END SUBROUTINE read_grid_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_rect_nml (NDSI, NML_RECT)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_RECT         Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_rect_t), INTENT(INOUT)      :: NML_RECT
 
    ! locals
    INTEGER                   :: IERR
    TYPE(nml_rect_t) :: RECT
    namelist /rect_nml/ rect
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_RECT_NML')
#endif
 
    ! set default values for rect structure
    rect%NX         = 0
    rect%NY         = 0
    rect%SX         = 0.
    rect%SY         = 0.
    rect%SF         = 1.
    rect%X0         = 0.
    rect%Y0         = 0.
    rect%SF0        = 1.
 
    ! read rect namelist
    rewind(ndsi)
    READ (ndsi, nml=rect_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_RECT_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (5)
    END IF
 
    ! save namelist
    nml_rect = rect
 
  END SUBROUTINE read_rect_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_curv_nml (NDSI, NML_CURV)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_CURV         Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_curv_t), INTENT(INOUT)      :: NML_CURV
 
    ! locals
    INTEGER                   :: IERR
    TYPE(nml_curv_t) :: CURV
    namelist /curv_nml/ curv
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_CURV_NML')
#endif
 
    ! set default values for curv structure
    curv%NX              = 0
    curv%NY              = 0
    !
    curv%XCOORD%SF        = 1.
    curv%XCOORD%OFF       = 0.
    curv%XCOORD%FILENAME  = 'unset'
    curv%XCOORD%IDF       = 21
    curv%XCOORD%IDLA      = 1
    curv%XCOORD%IDFM      = 1
    curv%XCOORD%FORMAT    = '(....)'
    curv%XCOORD%FROM      = 'NAME'
    !
    curv%YCOORD%SF        = 1.
    curv%YCOORD%OFF       = 0.
    curv%YCOORD%FILENAME  = 'unset'
    curv%YCOORD%IDF       = 22
    curv%YCOORD%IDLA      = 1
    curv%YCOORD%IDFM      = 1
    curv%YCOORD%FORMAT    = '(....)'
    curv%YCOORD%FROM      = 'NAME'
 
    ! read curv namelist
    rewind(ndsi)
    READ (ndsi, nml=curv_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_CURV_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (6)
    END IF
 
    ! save namelist
    nml_curv = curv
 
  END SUBROUTINE read_curv_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_unst_nml (NDSI, NML_UNST)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_UNST         Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_unst_t), INTENT(INOUT)      :: NML_UNST
 
    ! locals
    INTEGER                   :: IERR
    TYPE(nml_unst_t) :: UNST
    namelist /unst_nml/ unst
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_UNST_NML')
#endif
 
    ! set default values for unst structure
    unst%SF              = 0
    unst%FILENAME        = 'unset'
    unst%IDF             = 20
    unst%IDLA            = 1
    unst%IDFM            = 1
    unst%FORMAT          = '(....)'
    unst%UGOBCFILE       = 'unset'
 
    ! read unst namelist
    rewind(ndsi)
    READ (ndsi, nml=unst_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_UNST_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (7)
    END IF
 
    ! save namelist
    nml_unst = unst
 
  END SUBROUTINE read_unst_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_smc_nml (NDSI, NML_SMC)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_SMC          Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_smc_t), INTENT(INOUT)       :: NML_SMC
 
    ! locals
    INTEGER                   :: IERR
    TYPE(nml_smc_t) :: SMC
    namelist /smc_nml/ smc
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_SMC_NML')
#endif
 
    ! set default values for smc structure
    smc%MCELS%FILENAME   = 'unset'
    smc%MCELS%IDF        = 31
    smc%MCELS%IDLA       = 1
    smc%MCELS%IDFM       = 1
    smc%MCELS%FORMAT     = '(....)'
    !
    smc%ISIDE%FILENAME   = 'unset'
    smc%ISIDE%IDF        = 32
    smc%ISIDE%IDLA       = 1
    smc%ISIDE%IDFM       = 1
    smc%ISIDE%FORMAT     = '(....)'
    !
    smc%JSIDE%FILENAME   = 'unset'
    smc%JSIDE%IDF        = 33
    smc%JSIDE%IDLA       = 1
    smc%JSIDE%IDFM       = 1
    smc%JSIDE%FORMAT     = '(....)'
    !
    smc%SUBTR%FILENAME   = 'unset'
    smc%SUBTR%IDF        = 34
    smc%SUBTR%IDLA       = 1
    smc%SUBTR%IDFM       = 1
    smc%SUBTR%FORMAT     = '(....)'
    !
    smc%BUNDY%FILENAME   = 'unset'
    smc%BUNDY%IDF        = 35
    smc%BUNDY%IDLA       = 1
    smc%BUNDY%IDFM       = 1
    smc%BUNDY%FORMAT     = '(....)'
    !
    smc%MBARC%FILENAME   = 'unset'
    smc%MBARC%IDF        = 36
    smc%MBARC%IDLA       = 1
    smc%MBARC%IDFM       = 1
    smc%MBARC%FORMAT     = '(....)'
    !
    smc%AISID%FILENAME   = 'unset'
    smc%AISID%IDF        = 37
    smc%AISID%IDLA       = 1
    smc%AISID%IDFM       = 1
    smc%AISID%FORMAT     = '(....)'
    !
    smc%AJSID%FILENAME   = 'unset'
    smc%AJSID%IDF        = 38
    smc%AJSID%IDLA       = 1
    smc%AJSID%IDFM       = 1
    smc%AJSID%FORMAT     = '(....)'
 
 
    ! read smc namelist
    rewind(ndsi)
    READ (ndsi, nml=smc_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_SMC_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (8)
    END IF
 
    ! save namelist
    nml_smc = smc
 
  END SUBROUTINE read_smc_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_depth_nml (NDSI, NML_DEPTH)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_DEPTH        Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_depth_t), INTENT(INOUT)     :: NML_DEPTH
 
    ! locals
    INTEGER                   :: IERR
    TYPE(nml_depth_t) :: DEPTH
    namelist /depth_nml/ depth
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_DEPTH_NML')
#endif
 
    ! set default values for depth structure
    depth%SF         = 1.
    depth%FILENAME   = 'unset'
    depth%IDF        = 50
    depth%IDLA       = 1
    depth%IDFM       = 1
    depth%FORMAT     = '(....)'
    depth%FROM       = 'NAME'
 
    ! read depth namelist
    rewind(ndsi)
    READ (ndsi, nml=depth_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_DEPTH_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (9)
    END IF
 
    ! save namelist
    nml_depth = depth
 
  END SUBROUTINE read_depth_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_mask_nml (NDSI, NML_MASK)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_MASK         Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_mask_t), INTENT(INOUT)      :: NML_MASK
 
    ! locals
    INTEGER                   :: IERR
    TYPE(nml_mask_t) :: MASK
    namelist /mask_nml/ mask
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_MASK_NML')
#endif
 
    ! set default values for mask structure
    mask%SF         = 1.
    mask%FILENAME   = 'unset'
    mask%IDF        = 60
    mask%IDLA       = 1
    mask%IDFM       = 1
    mask%FORMAT     = '(....)'
    mask%FROM       = 'NAME'
 
    ! read mask namelist
    rewind(ndsi)
    READ (ndsi, nml=mask_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_MASK_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (10)
    END IF
 
    ! save namelist
    nml_mask = mask
 
  END SUBROUTINE read_mask_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_obst_nml (NDSI, NML_OBST)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_OBST         Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_obst_t), INTENT(INOUT)      :: NML_OBST
 
    ! locals
    INTEGER                   :: IERR
    TYPE(nml_obst_t) :: OBST
    namelist /obst_nml/ obst
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_OBST_NML')
#endif
 
    ! set default values for obst structure
    obst%SF         = 1.
    obst%FILENAME   = 'unset'
    obst%IDF        = 70
    obst%IDLA       = 1
    obst%IDFM       = 1
    obst%FORMAT     = '(....)'
    obst%FROM       = 'NAME'
 
    ! read obst namelist
    rewind(ndsi)
    READ (ndsi, nml=obst_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_OBST_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (11)
    END IF
 
    ! save namelist
    nml_obst = obst
 
  END SUBROUTINE read_obst_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_slope_nml (NDSI, NML_SLOPE)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_SLOPE        Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_slope_t), INTENT(INOUT)     :: NML_SLOPE
 
    ! locals
    INTEGER                   :: IERR
    TYPE(nml_slope_t) :: SLOPE
    namelist /slope_nml/ slope
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_SLOPE_NML')
#endif
 
    ! set default values for slope structure
    slope%SF         = 1.
    slope%FILENAME   = 'unset'
    slope%IDF        = 80
    slope%IDLA       = 1
    slope%IDFM       = 1
    slope%FORMAT     = '(....)'
    slope%FROM       = 'NAME'
 
    ! read slope namelist
    rewind(ndsi)
    READ (ndsi, nml=slope_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_SLOPE_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (12)
    END IF
 
    ! save namelist
    nml_slope = slope
 
  END SUBROUTINE read_slope_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_sed_nml (NDSI, NML_SED)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_SED          Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_sed_t), INTENT(INOUT)       :: NML_SED
 
    ! locals
    INTEGER                   :: IERR
    TYPE(nml_sed_t) :: SED
    namelist /sed_nml/ sed
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_SED_NML')
#endif
 
    ! set default values for sed structure
    sed%SF         = 1.
    sed%FILENAME   = 'unset'
    sed%IDF        = 90
    sed%IDLA       = 1
    sed%IDFM       = 1
    sed%FORMAT     = '(....)'
    sed%FROM       = 'NAME'
 
    ! read sed namelist
    rewind(ndsi)
    READ (ndsi, nml=sed_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_SED_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (13)
    END IF
 
    ! save namelist
    nml_sed = sed
 
  END SUBROUTINE read_sed_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_inbound_nml (NDSI, NML_INBND_COUNT, NML_INBND_POINT)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_INBND_COUNT  Type.
    !      NML_INBND_POINT  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_inbnd_count_t), INTENT(INOUT)   :: NML_INBND_COUNT
    TYPE(nml_inbnd_point_t), ALLOCATABLE, INTENT(INOUT)   :: NML_INBND_POINT(:)
 
    ! locals
    INTEGER                   :: IERR, I
    TYPE(nml_inbnd_count_t) :: INBND_COUNT
    namelist /inbnd_count_nml/ inbnd_count
    TYPE(nml_inbnd_point_t), ALLOCATABLE :: INBND_POINT(:)
    namelist /inbnd_point_nml/ inbnd_point
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_INBOUND_NML')
#endif
 
    ! set default values for inbnd count structure
    inbnd_count%N_POINT    = 0
 
    ! read inbnd count namelist
    rewind(ndsi)
    READ (ndsi, nml=inbnd_count_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_INBND_COUNT_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (14)
    END IF
 
    ! allocate the total count of inbound points
    ALLOCATE(inbnd_point(inbnd_count%N_POINT))
    ALLOCATE(nml_inbnd_point(inbnd_count%N_POINT))
 
    ! set default values for inbnd point structure
    IF (inbnd_count%N_POINT .NE. 0 ) THEN
      DO i=1,inbnd_count%N_POINT
        inbnd_point(i)%X_INDEX  = 0
        inbnd_point(i)%Y_INDEX  = 0
        inbnd_point(i)%CONNECT  = .false.
      END DO
    END IF
 
    ! read inbnd point namelist
    rewind(ndsi)
    READ (ndsi, nml=inbnd_point_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_INBND_POINT_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (15)
    END IF
 
    ! save namelist
    nml_inbnd_count = inbnd_count
    nml_inbnd_point = inbnd_point
 
  END SUBROUTINE read_inbound_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_excluded_nml (NDSI, NML_EXCL_COUNT, NML_EXCL_POINT, &
       NML_EXCL_BODY)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_EXCL_COUNT   Type.
    !      NML_EXCL_POINT   Type.
    !      NML_EXCL_BODY    Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_excl_count_t), INTENT(INOUT)    :: NML_EXCL_COUNT
    TYPE(nml_excl_point_t), ALLOCATABLE, INTENT(INOUT)   :: NML_EXCL_POINT(:)
    TYPE(nml_excl_body_t), ALLOCATABLE, INTENT(INOUT)    :: NML_EXCL_BODY(:)
 
    ! locals
    INTEGER                   :: IERR, J, K
    TYPE(nml_excl_count_t) :: EXCL_COUNT
    namelist /excl_count_nml/ excl_count
    TYPE(nml_excl_point_t), ALLOCATABLE :: EXCL_POINT(:)
    namelist /excl_point_nml/ excl_point
    TYPE(nml_excl_body_t), ALLOCATABLE :: EXCL_BODY(:)
    namelist /excl_body_nml/ excl_body
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_EXCLUDED_NML')
#endif
 
    ! set default values for excl count structure
    excl_count%N_POINT    = 0
    excl_count%N_BODY     = 0
 
    ! read excl count namelist
    rewind(ndsi)
    READ (ndsi, nml=excl_count_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_EXCL_COUNT_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (16)
    END IF
 
    ! allocate the total count of excluded points
    ALLOCATE(excl_point(excl_count%N_POINT))
    ALLOCATE(nml_excl_point(excl_count%N_POINT))
 
    ! set default values for excl point structure
    IF (excl_count%N_POINT .NE. 0 ) THEN
      DO j=1,excl_count%N_POINT
        excl_point(j)%X_INDEX  = 0
        excl_point(j)%Y_INDEX  = 0
        excl_point(j)%CONNECT  = .false.
      END DO
    END IF
 
    ! read excl point namelist
    rewind(ndsi)
    READ (ndsi, nml=excl_point_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_EXCL_POINT_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (17)
    END IF
 
    ! allocate the total count of excluded bodies
    ALLOCATE(excl_body(excl_count%N_BODY))
    ALLOCATE(nml_excl_body(excl_count%N_BODY))
 
    ! set default values for excl body structure
    IF (excl_count%N_BODY .NE. 0 ) THEN
      DO k=1,excl_count%N_BODY
        excl_body(k)%X_INDEX  = 0
        excl_body(k)%Y_INDEX  = 0
      END DO
    END IF
 
    ! read excl body namelist
    rewind(ndsi)
    READ (ndsi, nml=excl_point_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_EXCL_POINT_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (18)
    END IF
 
    ! save namelist
    nml_excl_count = excl_count
    nml_excl_point = excl_point
    nml_excl_body  = excl_body
 
  END SUBROUTINE read_excluded_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_outbound_nml (NDSI, NML_OUTBND_COUNT, NML_OUTBND_LINE)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_OUTBND_COUNT Type.
    !      NML_OUTBND_LINE  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_outbnd_count_t), INTENT(INOUT)    :: NML_OUTBND_COUNT
    TYPE(nml_outbnd_line_t), ALLOCATABLE, INTENT(INOUT)   :: NML_OUTBND_LINE(:)
 
    ! locals
    INTEGER                   :: IERR, I
    TYPE(nml_outbnd_count_t) :: OUTBND_COUNT
    namelist /outbnd_count_nml/ outbnd_count
    TYPE(nml_outbnd_line_t), ALLOCATABLE :: OUTBND_LINE(:)
    namelist /outbnd_line_nml/ outbnd_line
 
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_OUTBOUND_NML')
#endif
 
    ! set default values for outbnd count structure
    outbnd_count%N_LINE    = 0
 
    ! read outbnd count namelist
    rewind(ndsi)
    READ (ndsi, nml=outbnd_count_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_OUTBND_COUNT_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (19)
    END IF
 
    ! allocate the total count of outbound lines
    ALLOCATE(outbnd_line(outbnd_count%N_LINE))
    ALLOCATE(nml_outbnd_line(outbnd_count%N_LINE))
 
    ! set default values for outbnd line structure
    IF (outbnd_count%N_LINE .NE. 0 ) THEN
      DO i=1,outbnd_count%N_LINE
        outbnd_line(i)%X0   = 0.
        outbnd_line(i)%Y0   = 0.
        outbnd_line(i)%DX   = 0.
        outbnd_line(i)%DY   = 0.
        outbnd_line(i)%NP   = 0
      END DO
    END IF
 
    ! read outbnd line namelist
    rewind(ndsi)
    READ (ndsi, nml=outbnd_line_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_OUTBND_LINE_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (20)
    END IF
 
    ! save namelist
    nml_outbnd_count = outbnd_count
    nml_outbnd_line  = outbnd_line
 
  END SUBROUTINE read_outbound_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_spectrum_nml (NML_SPECTRUM)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_SPECTRUM  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_spectrum_t), INTENT(IN) :: NML_SPECTRUM
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_SPECTRUM_NML')
#endif
 
    WRITE (msg,'(A)') 'SPECTRUM % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,14) trim(msg),'XFR        = ', nml_spectrum%XFR
    WRITE (ndsn,14) trim(msg),'FREQ1      = ', nml_spectrum%FREQ1
    WRITE (ndsn,11) trim(msg),'NK         = ', nml_spectrum%NK
    WRITE (ndsn,11) trim(msg),'NTH        = ', nml_spectrum%NTH
    WRITE (ndsn,14) trim(msg),'THOFF      = ', nml_spectrum%THOFF
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f8.2)
 
  END SUBROUTINE report_spectrum_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_run_nml (NML_RUN)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_RUN  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_run_t), INTENT(IN) :: NML_RUN
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_RUN_NML')
#endif
 
    WRITE (msg,'(A)') 'RUN % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,13) trim(msg),'FLDRY      = ', nml_run%FLDRY
    WRITE (ndsn,13) trim(msg),'FLCX       = ', nml_run%FLCX
    WRITE (ndsn,13) trim(msg),'FLCY       = ', nml_run%FLCY
    WRITE (ndsn,13) trim(msg),'FLCTH      = ', nml_run%FLCTH
    WRITE (ndsn,13) trim(msg),'FLCK       = ', nml_run%FLCK
    WRITE (ndsn,13) trim(msg),'FLSOU      = ', nml_run%FLSOU
 
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f8.2)
 
  END SUBROUTINE report_run_nml
 
  !/ ------------------------------------------------------------------- /
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_timesteps_nml (NML_TIMESTEPS)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_TIMESTEPS  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_timesteps_t), INTENT(IN) :: NML_TIMESTEPS
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_TIMESTEPS_NML')
#endif
 
    WRITE (msg,'(A)') 'TIMESTEPS % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,14) trim(msg),'DTMAX      = ', nml_timesteps%DTMAX
    WRITE (ndsn,14) trim(msg),'DTXY       = ', nml_timesteps%DTXY
    WRITE (ndsn,14) trim(msg),'DTKTH      = ', nml_timesteps%DTKTH
    WRITE (ndsn,14) trim(msg),'DTMIN      = ', nml_timesteps%DTMIN
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f8.2)
 
  END SUBROUTINE report_timesteps_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_grid_nml (NML_GRID)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_GRID  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_grid_t), INTENT(IN) :: NML_GRID
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_GRID_NML')
#endif
 
    WRITE (msg,'(A)') 'GRID % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,10) trim(msg),'NAME       = ', trim(nml_grid%NAME)
    WRITE (ndsn,10) trim(msg),'NML        = ', trim(nml_grid%NML)
    WRITE (ndsn,10) trim(msg),'TYPE       = ', trim(nml_grid%TYPE)
    WRITE (ndsn,10) trim(msg),'COORD      = ', trim(nml_grid%COORD)
    WRITE (ndsn,10) trim(msg),'CLOS       = ', trim(nml_grid%CLOS)
    WRITE (ndsn,14) trim(msg),'ZLIM       = ', nml_grid%ZLIM
    WRITE (ndsn,14) trim(msg),'DMIN       = ', nml_grid%DMIN
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f8.2)
 
  END SUBROUTINE report_grid_nml
 
  !/ ------------------------------------------------------------------- /
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_rect_nml (NML_RECT)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_RECT  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_rect_t), INTENT(IN) :: NML_RECT
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_RECT_NML')
#endif
 
    WRITE (msg,'(A)') 'RECT % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,11) trim(msg),'NX         = ', nml_rect%NX
    WRITE (ndsn,11) trim(msg),'NY         = ', nml_rect%NY
    WRITE (ndsn,14) trim(msg),'SX         = ', nml_rect%SX
    WRITE (ndsn,14) trim(msg),'SY         = ', nml_rect%SY
    WRITE (ndsn,14) trim(msg),'SF         = ', nml_rect%SF
    WRITE (ndsn,14) trim(msg),'X0         = ', nml_rect%X0
    WRITE (ndsn,14) trim(msg),'Y0         = ', nml_rect%Y0
    WRITE (ndsn,14) trim(msg),'SF0        = ', nml_rect%SF0
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f12.2)
 
  END SUBROUTINE report_rect_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_curv_nml (NML_CURV)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_CURV  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_curv_t), INTENT(IN) :: NML_CURV
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_CURV_NML')
#endif
 
    WRITE (msg,'(A)') 'CURV % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,11) trim(msg),'NX                 = ', nml_curv%NX
    WRITE (ndsn,11) trim(msg),'NY                 = ', nml_curv%NY
    !
    WRITE (ndsn,14) trim(msg),'XCOORD % SF        = ', nml_curv%XCOORD%SF
    WRITE (ndsn,14) trim(msg),'XCOORD % OFF       = ', nml_curv%XCOORD%OFF
    WRITE (ndsn,10) trim(msg),'XCOORD % FILENAME  = ', trim(nml_curv%XCOORD%FILENAME)
    WRITE (ndsn,11) trim(msg),'XCOORD % IDF       = ', nml_curv%XCOORD%IDF
    WRITE (ndsn,11) trim(msg),'XCOORD % IDLA      = ', nml_curv%XCOORD%IDLA
    WRITE (ndsn,11) trim(msg),'XCOORD % IDFM      = ', nml_curv%XCOORD%IDFM
    WRITE (ndsn,10) trim(msg),'XCOORD % FORMAT    = ', trim(nml_curv%XCOORD%FORMAT)
    WRITE (ndsn,10) trim(msg),'XCOORD % FROM      = ', trim(nml_curv%XCOORD%FROM)
    !
    WRITE (ndsn,14) trim(msg),'YCOORD % SF        = ', nml_curv%YCOORD%SF
    WRITE (ndsn,14) trim(msg),'YCOORD % OFF       = ', nml_curv%YCOORD%OFF
    WRITE (ndsn,10) trim(msg),'YCOORD % FILENAME  = ', trim(nml_curv%YCOORD%FILENAME)
    WRITE (ndsn,11) trim(msg),'YCOORD % IDF       = ', nml_curv%YCOORD%IDF
    WRITE (ndsn,11) trim(msg),'YCOORD % IDLA      = ', nml_curv%YCOORD%IDLA
    WRITE (ndsn,11) trim(msg),'YCOORD % IDFM      = ', nml_curv%YCOORD%IDFM
    WRITE (ndsn,10) trim(msg),'YCOORD % FORMAT    = ', trim(nml_curv%YCOORD%FORMAT)
    WRITE (ndsn,10) trim(msg),'YCOORD % FROM      = ', trim(nml_curv%YCOORD%FROM)
 
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f8.2)
 
  END SUBROUTINE report_curv_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_unst_nml (NML_UNST)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_UNST  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_unst_t), INTENT(IN) :: NML_UNST
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_UNST_NML')
#endif
 
    WRITE (msg,'(A)') 'UNST % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,14) trim(msg),'SF        = ', nml_unst%SF
    WRITE (ndsn,10) trim(msg),'FILENAME  = ', trim(nml_unst%FILENAME)
    WRITE (ndsn,11) trim(msg),'IDF       = ', nml_unst%IDF
    WRITE (ndsn,11) trim(msg),'IDLA      = ', nml_unst%IDLA
    WRITE (ndsn,11) trim(msg),'IDFM      = ', nml_unst%IDFM
    WRITE (ndsn,10) trim(msg),'FORMAT    = ', trim(nml_unst%FORMAT)
    !
    WRITE (ndsn,10) trim(msg),'UGOBCFILE = ', trim(nml_unst%UGOBCFILE)
 
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f8.2)
 
  END SUBROUTINE report_unst_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_smc_nml (NML_SMC)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_SMC   Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_smc_t), INTENT(IN) :: NML_SMC
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_SMC_NML')
#endif
 
    WRITE (msg,'(A)') 'SMC % '
    WRITE (ndsn,'(A)')
    !
    WRITE (ndsn,10) trim(msg),'MCELS % FILENAME  = ', trim(nml_smc%MCELS%FILENAME)
    WRITE (ndsn,11) trim(msg),'MCELS % IDF       = ', nml_smc%MCELS%IDF
    WRITE (ndsn,11) trim(msg),'MCELS % IDLA      = ', nml_smc%MCELS%IDLA
    WRITE (ndsn,11) trim(msg),'MCELS % IDFM      = ', nml_smc%MCELS%IDFM
    WRITE (ndsn,10) trim(msg),'MCELS % FORMAT    = ', trim(nml_smc%MCELS%FORMAT)
    !
    WRITE (ndsn,10) trim(msg),'ISIDE % FILENAME  = ', trim(nml_smc%ISIDE%FILENAME)
    WRITE (ndsn,11) trim(msg),'ISIDE % IDF       = ', nml_smc%ISIDE%IDF
    WRITE (ndsn,11) trim(msg),'ISIDE % IDLA      = ', nml_smc%ISIDE%IDLA
    WRITE (ndsn,11) trim(msg),'ISIDE % IDFM      = ', nml_smc%ISIDE%IDFM
    WRITE (ndsn,10) trim(msg),'ISIDE % FORMAT    = ', trim(nml_smc%ISIDE%FORMAT)
    !
    WRITE (ndsn,10) trim(msg),'JSIDE % FILENAME  = ', trim(nml_smc%JSIDE%FILENAME)
    WRITE (ndsn,11) trim(msg),'JSIDE % IDF       = ', nml_smc%JSIDE%IDF
    WRITE (ndsn,11) trim(msg),'JSIDE % IDLA      = ', nml_smc%JSIDE%IDLA
    WRITE (ndsn,11) trim(msg),'JSIDE % IDFM      = ', nml_smc%JSIDE%IDFM
    WRITE (ndsn,10) trim(msg),'JSIDE % FORMAT    = ', trim(nml_smc%JSIDE%FORMAT)
    !
    WRITE (ndsn,10) trim(msg),'SUBTR % FILENAME  = ', trim(nml_smc%SUBTR%FILENAME)
    WRITE (ndsn,11) trim(msg),'SUBTR % IDF       = ', nml_smc%SUBTR%IDF
    WRITE (ndsn,11) trim(msg),'SUBTR % IDLA      = ', nml_smc%SUBTR%IDLA
    WRITE (ndsn,11) trim(msg),'SUBTR % IDFM      = ', nml_smc%SUBTR%IDFM
    WRITE (ndsn,10) trim(msg),'SUBTR % FORMAT    = ', trim(nml_smc%SUBTR%FORMAT)
    !
    WRITE (ndsn,10) trim(msg),'BUNDY % FILENAME  = ', trim(nml_smc%BUNDY%FILENAME)
    WRITE (ndsn,11) trim(msg),'BUNDY % IDF       = ', nml_smc%BUNDY%IDF
    WRITE (ndsn,11) trim(msg),'BUNDY % IDLA      = ', nml_smc%BUNDY%IDLA
    WRITE (ndsn,11) trim(msg),'BUNDY % IDFM      = ', nml_smc%BUNDY%IDFM
    WRITE (ndsn,10) trim(msg),'BUNDY % FORMAT    = ', trim(nml_smc%BUNDY%FORMAT)
    !
    WRITE (ndsn,10) trim(msg),'MBARC % FILENAME  = ', trim(nml_smc%MBARC%FILENAME)
    WRITE (ndsn,11) trim(msg),'MBARC % IDF       = ', nml_smc%MBARC%IDF
    WRITE (ndsn,11) trim(msg),'MBARC % IDLA      = ', nml_smc%MBARC%IDLA
    WRITE (ndsn,11) trim(msg),'MBARC % IDFM      = ', nml_smc%MBARC%IDFM
    WRITE (ndsn,10) trim(msg),'MBARC % FORMAT    = ', trim(nml_smc%MBARC%FORMAT)
    !
    WRITE (ndsn,10) trim(msg),'AISID % FILENAME  = ', trim(nml_smc%AISID%FILENAME)
    WRITE (ndsn,11) trim(msg),'AISID % IDF       = ', nml_smc%AISID%IDF
    WRITE (ndsn,11) trim(msg),'AISID % IDLA      = ', nml_smc%AISID%IDLA
    WRITE (ndsn,11) trim(msg),'AISID % IDFM      = ', nml_smc%AISID%IDFM
    WRITE (ndsn,10) trim(msg),'AISID % FORMAT    = ', trim(nml_smc%AISID%FORMAT)
    !
    WRITE (ndsn,10) trim(msg),'AJSID % FILENAME  = ', trim(nml_smc%AJSID%FILENAME)
    WRITE (ndsn,11) trim(msg),'AJSID % IDF       = ', nml_smc%AJSID%IDF
    WRITE (ndsn,11) trim(msg),'AJSID % IDLA      = ', nml_smc%AJSID%IDLA
    WRITE (ndsn,11) trim(msg),'AJSID % IDFM      = ', nml_smc%AJSID%IDFM
    WRITE (ndsn,10) trim(msg),'AJSID % FORMAT    = ', trim(nml_smc%AJSID%FORMAT)
 
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f8.2)
 
 
  END SUBROUTINE report_smc_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_depth_nml (NML_DEPTH)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_DEPTH  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_depth_t), INTENT(IN) :: NML_DEPTH
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_DEPTH_NML')
#endif
 
    WRITE (msg,'(A)') 'DEPTH % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,14) trim(msg),'SF        = ', nml_depth%SF
    WRITE (ndsn,10) trim(msg),'FILENAME  = ', trim(nml_depth%FILENAME)
    WRITE (ndsn,11) trim(msg),'IDF       = ', nml_depth%IDF
    WRITE (ndsn,11) trim(msg),'IDLA      = ', nml_depth%IDLA
    WRITE (ndsn,11) trim(msg),'IDFM      = ', nml_depth%IDFM
    WRITE (ndsn,10) trim(msg),'FORMAT    = ', trim(nml_depth%FORMAT)
    WRITE (ndsn,10) trim(msg),'FROM      = ', trim(nml_depth%FROM)
 
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f8.2)
 
  END SUBROUTINE report_depth_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_mask_nml (NML_MASK)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_MASK  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_mask_t), INTENT(IN) :: NML_MASK
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_MASK_NML')
#endif
 
    WRITE (msg,'(A)') 'MASK % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,10) trim(msg),'FILENAME  = ', trim(nml_mask%FILENAME)
    WRITE (ndsn,11) trim(msg),'IDF       = ', nml_mask%IDF
    WRITE (ndsn,11) trim(msg),'IDLA      = ', nml_mask%IDLA
    WRITE (ndsn,11) trim(msg),'IDFM      = ', nml_mask%IDFM
    WRITE (ndsn,10) trim(msg),'FORMAT    = ', trim(nml_mask%FORMAT)
    WRITE (ndsn,10) trim(msg),'FROM      = ', trim(nml_mask%FROM)
 
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f8.2)
 
  END SUBROUTINE report_mask_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_obst_nml (NML_OBST)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_OBST  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_obst_t), INTENT(IN) :: NML_OBST
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_OBST_NML')
#endif
 
    WRITE (msg,'(A)') 'OBST % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,14) trim(msg),'SF        = ', nml_obst%SF
    WRITE (ndsn,10) trim(msg),'FILENAME  = ', trim(nml_obst%FILENAME)
    WRITE (ndsn,11) trim(msg),'IDF       = ', nml_obst%IDF
    WRITE (ndsn,11) trim(msg),'IDLA      = ', nml_obst%IDLA
    WRITE (ndsn,11) trim(msg),'IDFM      = ', nml_obst%IDFM
    WRITE (ndsn,10) trim(msg),'FORMAT    = ', trim(nml_obst%FORMAT)
    WRITE (ndsn,10) trim(msg),'FROM      = ', trim(nml_obst%FROM)
 
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f8.2)
 
  END SUBROUTINE report_obst_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_slope_nml (NML_SLOPE)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_SLOPE  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_slope_t), INTENT(IN) :: NML_SLOPE
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_SLOPE_NML')
#endif
 
    WRITE (msg,'(A)') 'SLOPE % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,14) trim(msg),'SF        = ', nml_slope%SF
    WRITE (ndsn,10) trim(msg),'FILENAME  = ', trim(nml_slope%FILENAME)
    WRITE (ndsn,11) trim(msg),'IDF       = ', nml_slope%IDF
    WRITE (ndsn,11) trim(msg),'IDLA      = ', nml_slope%IDLA
    WRITE (ndsn,11) trim(msg),'IDFM      = ', nml_slope%IDFM
    WRITE (ndsn,10) trim(msg),'FORMAT    = ', trim(nml_slope%FORMAT)
    WRITE (ndsn,10) trim(msg),'FROM      = ', trim(nml_slope%FROM)
 
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f8.2)
 
  END SUBROUTINE report_slope_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_sed_nml (NML_SED)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_SED  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_sed_t), INTENT(IN) :: NML_SED
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_SED_NML')
#endif
 
    WRITE (msg,'(A)') 'SED % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,14) trim(msg),'SF        = ', nml_sed%SF
    WRITE (ndsn,10) trim(msg),'FILENAME  = ', trim(nml_sed%FILENAME)
    WRITE (ndsn,11) trim(msg),'IDF       = ', nml_sed%IDF
    WRITE (ndsn,11) trim(msg),'IDLA      = ', nml_sed%IDLA
    WRITE (ndsn,11) trim(msg),'IDFM      = ', nml_sed%IDFM
    WRITE (ndsn,10) trim(msg),'FORMAT    = ', trim(nml_sed%FORMAT)
    WRITE (ndsn,10) trim(msg),'FROM      = ', trim(nml_sed%FROM)
 
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f8.2)
 
  END SUBROUTINE report_sed_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_inbound_nml (NML_INBND_COUNT, NML_INBND_POINT)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_INBND_COUNT  Type
    !      NML_INBND_POINT  Type
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_inbnd_count_t), INTENT(IN) :: NML_INBND_COUNT
    TYPE(nml_inbnd_point_t), INTENT(IN) :: NML_INBND_POINT(NML_INBND_COUNT%N_POINT)
 
    ! locals
    INTEGER              :: I
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_INBOUND_NML')
#endif
 
    WRITE (msg,'(A)') 'INBND_COUNT % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,11) trim(msg),'N_POINT       = ', nml_inbnd_count%N_POINT
 
    IF (nml_inbnd_count%N_POINT .NE. 0) THEN
      DO i=1,nml_inbnd_count%N_POINT
        WRITE (msg,'(A,I8,A)') 'INBND_POINT(',i,') % '
        WRITE (ndsn,'(A)')
        WRITE (ndsn,11) trim(msg),'X_INDEX   = ', nml_inbnd_point(i)%X_INDEX
        WRITE (ndsn,11) trim(msg),'Y_INDEX   = ', nml_inbnd_point(i)%Y_INDEX
        WRITE (ndsn,13) trim(msg),'CONNECT   = ', nml_inbnd_point(i)%CONNECT
        WRITE (ndsn,'(A)')
      END DO
    END IF
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f8.2)
 
  END SUBROUTINE report_inbound_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_excluded_nml (NML_EXCL_COUNT, NML_EXCL_POINT, NML_EXCL_BODY)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_EXCL_COUNT  Type
    !      NML_EXCL_POINT  Type
    !      NML_EXCL_BODY   Type
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_excl_count_t), INTENT(IN) :: NML_EXCL_COUNT
    TYPE(nml_excl_point_t), INTENT(IN) :: NML_EXCL_POINT(NML_EXCL_COUNT%N_POINT)
    TYPE(nml_excl_body_t), INTENT(IN)  :: NML_EXCL_BODY(NML_EXCL_COUNT%N_BODY)
 
    ! locals
    INTEGER              :: I
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_EXCLUDED_NML')
#endif
 
    WRITE (msg,'(A)') 'EXCL_COUNT % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,11) trim(msg),'N_POINT       = ', nml_excl_count%N_POINT
    WRITE (ndsn,11) trim(msg),'N_BODY        = ', nml_excl_count%N_BODY
 
    IF (nml_excl_count%N_POINT .NE. 0) THEN
      DO i=1,nml_excl_count%N_POINT
        WRITE (msg,'(A,I8,A)') 'EXCL_POINT(',i,') % '
        WRITE (ndsn,'(A)')
        WRITE (ndsn,11) trim(msg),'X_INDEX   = ', nml_excl_point(i)%X_INDEX
        WRITE (ndsn,11) trim(msg),'Y_INDEX   = ', nml_excl_point(i)%Y_INDEX
        WRITE (ndsn,13) trim(msg),'CONNECT   = ', nml_excl_point(i)%CONNECT
        WRITE (ndsn,'(A)')
      END DO
    END IF
 
    IF (nml_excl_count%N_BODY .NE. 0) THEN
      DO i=1,nml_excl_count%N_BODY
        WRITE (msg,'(A,I8,A)') 'EXCL_BODY(',i,') % '
        WRITE (ndsn,'(A)')
        WRITE (ndsn,11) trim(msg),'X_INDEX   = ', nml_excl_body(i)%X_INDEX
        WRITE (ndsn,11) trim(msg),'Y_INDEX   = ', nml_excl_body(i)%Y_INDEX
        WRITE (ndsn,'(A)')
      END DO
    END IF
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f12.2)
 
  END SUBROUTINE report_excluded_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_outbound_nml (NML_OUTBND_COUNT, NML_OUTBND_LINE)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_OUTBND_COUNT  Type
    !      NML_OUTBND_LINE   Type
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLGRID 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_outbnd_count_t), INTENT(IN) :: NML_OUTBND_COUNT
    TYPE(nml_outbnd_line_t), INTENT(IN)  :: NML_OUTBND_LINE(NML_OUTBND_COUNT%N_LINE)
 
    ! locals
    INTEGER              :: I
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_OUTBOUND_NML')
#endif
 
    WRITE (msg,'(A)') 'OUTBND_COUNT % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,11) trim(msg),'N_LINE        = ', nml_outbnd_count%N_LINE
 
    IF (nml_outbnd_count%N_LINE .NE. 0) THEN
      DO i=1,nml_outbnd_count%N_LINE
        WRITE (msg,'(A,I8,A)') 'OUTBND_LINE(',i,') % '
        WRITE (ndsn,'(A)')
        WRITE (ndsn,14) trim(msg),'X0        = ', nml_outbnd_line(i)%X0
        WRITE (ndsn,14) trim(msg),'Y0        = ', nml_outbnd_line(i)%Y0
        WRITE (ndsn,14) trim(msg),'DX        = ', nml_outbnd_line(i)%DX
        WRITE (ndsn,14) trim(msg),'DY        = ', nml_outbnd_line(i)%DY
        WRITE (ndsn,11) trim(msg),'NP        = ', nml_outbnd_line(i)%NP
        WRITE (ndsn,'(A)')
      END DO
    END IF
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f12.2)
 
  END SUBROUTINE report_outbound_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
 
 
 
 
END MODULE w3nmlgridmd
 
!/ ------------------------------------------------------------------- /