w3nmlounpmd.F90

Go to the documentation of this file.

#include "w3macros.h"
!/ ------------------------------------------------------------------- /
MODULE w3nmlounpmd
  !/
  !/                  +-----------------------------------+
  !/                  | 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_ounp.nml for ww3_ounp program
  !
  !/ ------------------------------------------------------------------- /
 
  ! module defaults
  IMPLICIT NONE
 
  PUBLIC
 
  ! point structure
  TYPE nml_point_t
    CHARACTER(15)               :: timestart
    CHARACTER(15)               :: timestride
    CHARACTER(15)               :: timecount
    INTEGER                     :: timesplit
    CHARACTER(1024)             :: list
    LOGICAL                     :: samefile
    INTEGER                     :: buffer
    INTEGER                     :: type
    LOGICAL                     :: dimorder
  END TYPE nml_point_t
 
  ! file structure
  TYPE nml_file_t
    CHARACTER(30)               :: prefix
    INTEGER                     :: netcdf
  END TYPE nml_file_t
 
  ! spectra structure
  TYPE nml_spectra_t
    INTEGER                     :: output
    REAL                        :: scale_fac
    REAL                        :: output_fac
    INTEGER                     :: type
  END TYPE nml_spectra_t
 
  ! param structure
  TYPE nml_param_t
    INTEGER                     :: output
  END TYPE nml_param_t
 
  ! source structure
  TYPE nml_source_t
    INTEGER                     :: output
    REAL                        :: scale_fac
    REAL                        :: output_fac
    INTEGER                     :: table_fac
    LOGICAL                     :: spectrum
    LOGICAL                     :: input
    LOGICAL                     :: interactions
    LOGICAL                     :: dissipation
    LOGICAL                     :: bottom
    LOGICAL                     :: ice
    LOGICAL                     :: total
  END TYPE nml_source_t
 
 
  ! miscellaneous
  CHARACTER(256)                :: msg
  INTEGER                       :: ndsn
 
 
 
 
CONTAINS
  !/ ------------------------------------------------------------------- /
  SUBROUTINE w3nmlounp (NDSI, INFILE, NML_POINT, NML_FILE,             &
       NML_SPECTRA, NML_PARAM, NML_SOURCE, IERR)
    !/
    !/                  +-----------------------------------+
    !/                  | WAVEWATCH III           NOAA/NCEP |
    !/                  |           M. Accensi              |
    !/                  |                                   |
    !/                  |                        FORTRAN 90 |
    !/                  | Last update :         15-May-2018 |
    !/                  +-----------------------------------+
    !/
    !
    !  1. Purpose :
    !
    !     Reads all the namelist to define the output point
    !
    !  2. Method :
    !
    !     See source term routines.
    !
    !  3. Parameters :
    !
    !     Parameter list
    !     ----------------------------------------------------------------
    !      NDSI          Int.
    !      INFILE        Char.
    !      NML_POINT     type.
    !      NML_FILE      type.
    !      NML_SPECTRA   type.
    !      NML_PARAM     type.
    !      NML_SOURCE    type.
    !      IERR          Int.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !      READ_POINT_NML
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      WW3_OUNP  Prog.   N/A    Postprocess output points.
    !     ----------------------------------------------------------------
    !
    !  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_point_t), INTENT(INOUT)            :: NML_POINT
    TYPE(nml_file_t), INTENT(INOUT)             :: NML_FILE
    TYPE(nml_spectra_t), INTENT(INOUT)          :: NML_SPECTRA
    TYPE(nml_param_t), INTENT(INOUT)            :: NML_PARAM
    TYPE(nml_source_t), INTENT(INOUT)           :: NML_SOURCE
    INTEGER, INTENT(OUT)                        :: IERR
#ifdef W3_S
    INTEGER, SAVE                             :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'W3NMLOUNP')
#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 point namelist
    CALL read_point_nml (ndsi, nml_point)
    CALL report_point_nml (nml_point)
 
    ! read file namelist
    CALL read_file_nml (ndsi, nml_file)
    CALL report_file_nml (nml_file)
 
    ! read spectra namelist
    CALL read_spectra_nml (ndsi, nml_spectra)
    CALL report_spectra_nml (nml_spectra)
 
    ! read param namelist
    CALL read_param_nml (ndsi, nml_param)
    CALL report_param_nml (nml_param)
 
    ! read source namelist
    CALL read_source_nml (ndsi, nml_source)
    CALL report_source_nml (nml_source)
 
    ! close namelist files
    CLOSE (ndsi)
    CLOSE (ndsn)
 
  END SUBROUTINE w3nmlounp
 
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_point_nml (NDSI, NML_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_POINT    Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLOUNP 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_point_t), INTENT(INOUT)    :: NML_POINT
 
    ! locals
    INTEGER                                :: IERR
    TYPE(nml_point_t) :: POINT
    namelist /point_nml/ point
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_POINT_NML')
#endif
 
    ! set default values for point structure
    point%TIMESTART  = '19000101 000000'
    point%TIMESTRIDE = '0'
    point%TIMECOUNT  = '1000000000'
    point%TIMESPLIT  = 6
    point%LIST       = 'all'
    point%SAMEFILE   = .true.
    point%BUFFER     = 150
    point%TYPE       = 1
    point%DIMORDER   = .true.
 
    ! read point namelist
    rewind(ndsi)
    READ (ndsi, nml=point_nml, iostat=ierr, iomsg=msg)
    IF (ierr.NE.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_POINT_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (1)
    END IF
 
    ! save namelist
    nml_point = point
 
  END SUBROUTINE read_point_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_file_nml (NDSI, NML_FILE)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_FILE     Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLOUNP 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_file_t), INTENT(INOUT)     :: NML_FILE
 
    ! locals
    INTEGER                                :: IERR
    TYPE(nml_file_t) :: FILE
    namelist /file_nml/ file
#ifdef W3_S
    INTEGER, SAVE                       :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_FILE_NML')
#endif
 
    ! set default values for file structure
    file%PREFIX    = 'ww3.'
    file%NETCDF    = 3
 
 
    ! read file namelist
    rewind(ndsi)
    READ (ndsi, nml=file_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_FILE_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (2)
    END IF
 
    ! save namelist
    nml_file = file
 
  END SUBROUTINE read_file_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_spectra_nml (NDSI, NML_SPECTRA)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_SPECTRA  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLOUNP 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_spectra_t), INTENT(INOUT)  :: NML_SPECTRA
 
    ! locals
    INTEGER                                :: IERR
    TYPE(nml_spectra_t) :: SPECTRA
    namelist /spectra_nml/ spectra
#ifdef W3_S
    INTEGER, SAVE                       :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_SPECTRA_NML')
#endif
 
    ! set default values for spectra structure
    spectra%OUTPUT      = 3
    spectra%SCALE_FAC   = 1
    spectra%OUTPUT_FAC  = 0
    spectra%TYPE        = 4
 
 
    ! read spectra namelist
    rewind(ndsi)
    READ (ndsi, nml=spectra_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_SPECTRA_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (3)
    END IF
 
    ! save namelist
    nml_spectra = spectra
 
  END SUBROUTINE read_spectra_nml
 
  !/ ------------------------------------------------------------------- /
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE read_param_nml (NDSI, NML_PARAM)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_PARAM    Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLOUNP 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_param_t), INTENT(INOUT)    :: NML_PARAM
 
    ! locals
    INTEGER                                :: IERR
    TYPE(nml_param_t) :: PARAM
    namelist /param_nml/ param
#ifdef W3_S
    INTEGER, SAVE                       :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_PARAM_NML')
#endif
 
    ! set default values for param structure
    param%OUTPUT      = 3
 
    ! read param namelist
    rewind(ndsi)
    READ (ndsi, nml=param_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_PARAM_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (4)
    END IF
 
    ! save namelist
    nml_param = param
 
  END SUBROUTINE read_param_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
  SUBROUTINE read_source_nml (NDSI, NML_SOURCE)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_SOURCE   Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLOUNP 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_source_t), INTENT(INOUT)   :: NML_SOURCE
 
    ! locals
    INTEGER                                :: IERR
    TYPE(nml_source_t) :: SOURCE
    namelist /source_nml/ source
#ifdef W3_S
    INTEGER, SAVE                       :: IENT = 0
#endif
 
    ierr = 0
#ifdef W3_S
    CALL strace (ient, 'READ_SOURCE_NML')
#endif
 
    ! set default values for source structure
    source%OUTPUT      = 4
    source%SCALE_FAC   = 0
    source%OUTPUT_FAC  = 0
    source%TABLE_FAC   = 0
    source%SPECTRUM    = .true.
    source%INPUT       = .true.
    source%INTERACTIONS= .true.
    source%DISSIPATION = .true.
    source%BOTTOM      = .true.
    source%ICE         = .true.
    source%TOTAL       = .true.
 
    ! read source namelist
    rewind(ndsi)
    READ (ndsi, nml=source_nml, iostat=ierr, iomsg=msg)
    IF (ierr.GT.0) THEN
      WRITE (ndse,'(A,/A)') &
           'ERROR: READ_SOURCE_NML: namelist read error', &
           'ERROR: '//trim(msg)
      CALL extcde (5)
    END IF
 
    ! save namelist
    nml_source = source
 
  END SUBROUTINE read_source_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_point_nml (NML_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_POINT  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLOUNP 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_point_t), INTENT(IN) :: NML_POINT
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_POINT_NML')
#endif
 
    WRITE (msg,'(A)') 'POINT % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,10) trim(msg),'TIMESTART  = ', trim(nml_point%TIMESTART)
    WRITE (ndsn,10) trim(msg),'TIMESTRIDE = ', trim(nml_point%TIMESTRIDE)
    WRITE (ndsn,10) trim(msg),'TIMECOUNT  = ', trim(nml_point%TIMECOUNT)
 
    WRITE (ndsn,11) trim(msg),'TIMESPLIT  = ', nml_point%TIMESPLIT
    WRITE (ndsn,10) trim(msg),'LIST       = ', trim(nml_point%LIST)
    WRITE (ndsn,13) trim(msg),'SAMEFILE   = ', nml_point%SAMEFILE
    WRITE (ndsn,11) trim(msg),'BUFFER     = ', nml_point%BUFFER
    WRITE (ndsn,11) trim(msg),'TYPE       = ', nml_point%TYPE
    WRITE (ndsn,13) trim(msg),'DIMORDER   = ', nml_point%DIMORDER
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
 
  END SUBROUTINE report_point_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
 
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_file_nml (NML_FILE)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_FILE  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLOUNP 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_file_t), INTENT(IN) :: NML_FILE
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_FILE_NML')
#endif
 
    WRITE (msg,'(A)') 'FILE % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,10) trim(msg),'PREFIX    = ', trim(nml_file%PREFIX)
    WRITE (ndsn,11) trim(msg),'NETCDF    = ', nml_file%NETCDF
 
 
10  FORMAT (a,2x,a,a)
11  FORMAT (a,2x,a,i8)
 
  END SUBROUTINE report_file_nml
 
  !/ ------------------------------------------------------------------- /
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_spectra_nml (NML_SPECTRA)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_SPECTRA  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLOUNP 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_spectra_t), INTENT(IN) :: NML_SPECTRA
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_SPECTRA_NML')
#endif
 
    WRITE (msg,'(A)') 'SPECTRA % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,11) trim(msg),'OUTPUT     = ', nml_spectra%OUTPUT
    WRITE (ndsn,14) trim(msg),'SCALE_FAC  = ', nml_spectra%SCALE_FAC
    WRITE (ndsn,14) trim(msg),'OUTPUT_FAC = ', nml_spectra%OUTPUT_FAC
    WRITE (ndsn,11) trim(msg),'TYPE       = ', nml_spectra%TYPE
 
 
11  FORMAT (a,2x,a,i8)
14  FORMAT (a,2x,a,f8.2)
 
  END SUBROUTINE report_spectra_nml
 
  !/ ------------------------------------------------------------------- /
 
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_param_nml (NML_PARAM)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_PARAM  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLOUNP 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_param_t), INTENT(IN) :: NML_PARAM
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_PARAM_NML')
#endif
 
    WRITE (msg,'(A)') 'PARAM % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,11) trim(msg),'OUTPUT     = ', nml_param%OUTPUT
 
11  FORMAT (a,2x,a,i8)
 
  END SUBROUTINE report_param_nml
 
  !/ ------------------------------------------------------------------- /
 
  !/ ------------------------------------------------------------------- /
 
  SUBROUTINE report_source_nml (NML_SOURCE)
    !/
    !/                  +-----------------------------------+
    !/                  | 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_SOURCE  Type.
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name      TYPE  Module   Description
    !     ----------------------------------------------------------------
    !      W3NMLOUNP 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_source_t), INTENT(IN) :: NML_SOURCE
#ifdef W3_S
    INTEGER, SAVE                           :: IENT = 0
#endif
 
#ifdef W3_S
    CALL strace (ient, 'REPORT_SOURCE_NML')
#endif
 
    WRITE (msg,'(A)') 'SOURCE % '
    WRITE (ndsn,'(A)')
    WRITE (ndsn,11) trim(msg),'OUTPUT       = ', nml_source%OUTPUT
    WRITE (ndsn,14) trim(msg),'SCALE_FAC    = ', nml_source%SCALE_FAC
    WRITE (ndsn,14) trim(msg),'OUTPUT_FAC   = ', nml_source%OUTPUT_FAC
    WRITE (ndsn,11) trim(msg),'TABLE_FAC    = ', nml_source%TABLE_FAC
    WRITE (ndsn,13) trim(msg),'SPECTRUM     = ', nml_source%SPECTRUM
    WRITE (ndsn,13) trim(msg),'INPUT        = ', nml_source%INPUT
    WRITE (ndsn,13) trim(msg),'INTERACTIONS = ', nml_source%INTERACTIONS
    WRITE (ndsn,13) trim(msg),'DISSIPATION  = ', nml_source%DISSIPATION
    WRITE (ndsn,13) trim(msg),'ICE          = ', nml_source%ICE
    WRITE (ndsn,13) trim(msg),'TOTAL        = ', nml_source%TOTAL
 
 
 
11  FORMAT (a,2x,a,i8)
13  FORMAT (a,2x,a,l1)
14  FORMAT (a,2x,a,f8.2)
 
  END SUBROUTINE report_source_nml
 
  !/ ------------------------------------------------------------------- /
 
 
 
END MODULE w3nmlounpmd
 
!/ ------------------------------------------------------------------- /