Data Types
type	nml_file_t

type	nml_param_t

type	nml_point_t

type	nml_source_t

type	nml_spectra_t

Functions/Subroutines
subroutine	w3nmlounp (NDSI, INFILE, NML_POINT, NML_FILE, NML_SPECTRA, NML_PARAM, NML_SOURCE, IERR)

subroutine	read_point_nml (NDSI, NML_POINT)

subroutine	read_file_nml (NDSI, NML_FILE)

subroutine	read_spectra_nml (NDSI, NML_SPECTRA)

subroutine	read_param_nml (NDSI, NML_PARAM)

subroutine	read_source_nml (NDSI, NML_SOURCE)

subroutine	report_point_nml (NML_POINT)

subroutine	report_file_nml (NML_FILE)

subroutine	report_spectra_nml (NML_SPECTRA)

subroutine	report_param_nml (NML_PARAM)

subroutine	report_source_nml (NML_SOURCE)

Variables
character(256)	msg

integer	ndsn

Function/Subroutine Documentation

◆ read_file_nml()

subroutine w3nmlounpmd::read_file_nml	(	integer, intent(in)	NDSI,
		type(nml_file_t), intent(inout)	NML_FILE
	)

Definition at line 335 of file w3nmlounpmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                                   |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         15-May-2018 |
     !/                  +-----------------------------------+
     !/
     !  1. Purpose :
     !
     !
     !  2. Method :
     !
     !     See source term routines.
     !
     !  3. Parameters :
     !
     !     Parameter list
     !     ----------------------------------------------------------------
     !      NDSI         Int.
     !      NML_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
  

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

Referenced by w3nmlounp().

◆ read_param_nml()

subroutine w3nmlounpmd::read_param_nml	(	integer, intent(in)	NDSI,
		type(nml_param_t), intent(inout)	NML_PARAM
	)

Definition at line 546 of file w3nmlounpmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                                   |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         15-May-2018 |
     !/                  +-----------------------------------+
     !/
     !  1. Purpose :
     !
     !
     !  2. Method :
     !
     !     See source term routines.
     !
     !  3. Parameters :
     !
     !     Parameter list
     !     ----------------------------------------------------------------
     !      NDSI         Int.
     !      NML_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
  

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

Referenced by w3nmlounp().

◆ read_point_nml()

subroutine w3nmlounpmd::read_point_nml	(	integer, intent(in)	NDSI,
		type(nml_point_t), intent(inout)	NML_POINT
	)

Definition at line 224 of file w3nmlounpmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                                   |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         15-May-2018 |
     !/                  +-----------------------------------+
     !/
     !  1. Purpose :
     !
     !
     !  2. Method :
     !
     !     See source term routines.
     !
     !  3. Parameters :
     !
     !     Parameter list
     !     ----------------------------------------------------------------
     !      NDSI         Int.
     !      NML_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
  

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

Referenced by w3nmlounp().

◆ read_source_nml()

subroutine w3nmlounpmd::read_source_nml	(	integer, intent(in)	NDSI,
		type(nml_source_t), intent(inout)	NML_SOURCE
	)

Definition at line 647 of file w3nmlounpmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                                   |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         15-May-2018 |
     !/                  +-----------------------------------+
     !/
     !  1. Purpose :
     !
     !
     !  2. Method :
     !
     !     See source term routines.
     !
     !  3. Parameters :
     !
     !     Parameter list
     !     ----------------------------------------------------------------
     !      NDSI         Int.
     !      NML_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
  

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

Referenced by w3nmlounp().

◆ read_spectra_nml()

subroutine w3nmlounpmd::read_spectra_nml	(	integer, intent(in)	NDSI,
		type(nml_spectra_t), intent(inout)	NML_SPECTRA
	)

Definition at line 440 of file w3nmlounpmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                                   |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         15-May-2018 |
     !/                  +-----------------------------------+
     !/
     !  1. Purpose :
     !
     !
     !  2. Method :
     !
     !     See source term routines.
     !
     !  3. Parameters :
     !
     !     Parameter list
     !     ----------------------------------------------------------------
     !      NDSI         Int.
     !      NML_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
  

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

Referenced by w3nmlounp().

◆ report_file_nml()

subroutine w3nmlounpmd::report_file_nml ( type(nml_file_t), intent(in) NML_FILE )

Definition at line 861 of file w3nmlounpmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         15-May-2018 |
     !/                  +-----------------------------------+
     !/
     !/
     !  1. Purpose :
     !
     !
     !  2. Method :
     !
     !     See source term routines.
     !
     !  3. Parameters :
     !
     !     Parameter list
     !     ----------------------------------------------------------------
     !      NML_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)
  

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

Referenced by w3nmlounp().

◆ report_param_nml()

subroutine w3nmlounpmd::report_param_nml ( type(nml_param_t), intent(in) NML_PARAM )

Definition at line 1033 of file w3nmlounpmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         15-May-2018 |
     !/                  +-----------------------------------+
     !/
     !/
     !  1. Purpose :
     !
     !
     !  2. Method :
     !
     !     See source term routines.
     !
     !  3. Parameters :
     !
     !     Parameter list
     !     ----------------------------------------------------------------
     !      NML_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)
  

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

Referenced by w3nmlounp().

◆ report_point_nml()

subroutine w3nmlounpmd::report_point_nml ( type(nml_point_t), intent(in) NML_POINT )

Definition at line 764 of file w3nmlounpmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         15-May-2018 |
     !/                  +-----------------------------------+
     !/
     !/
     !  1. Purpose :
     !
     !
     !  2. Method :
     !
     !     See source term routines.
     !
     !  3. Parameters :
     !
     !     Parameter list
     !     ----------------------------------------------------------------
     !      NML_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)
  

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

Referenced by w3nmlounp().

◆ report_source_nml()

subroutine w3nmlounpmd::report_source_nml ( type(nml_source_t), intent(in) NML_SOURCE )

Definition at line 1114 of file w3nmlounpmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         15-May-2018 |
     !/                  +-----------------------------------+
     !/
     !/
     !  1. Purpose :
     !
     !
     !  2. Method :
     !
     !     See source term routines.
     !
     !  3. Parameters :
     !
     !     Parameter list
     !     ----------------------------------------------------------------
     !      NML_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)
  

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

Referenced by w3nmlounp().

◆ report_spectra_nml()

subroutine w3nmlounpmd::report_spectra_nml ( type(nml_spectra_t), intent(in) NML_SPECTRA )

Definition at line 946 of file w3nmlounpmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         15-May-2018 |
     !/                  +-----------------------------------+
     !/
     !/
     !  1. Purpose :
     !
     !
     !  2. Method :
     !
     !     See source term routines.
     !
     !  3. Parameters :
     !
     !     Parameter list
     !     ----------------------------------------------------------------
     !      NML_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)
  

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

Referenced by w3nmlounp().

◆ w3nmlounp()

subroutine w3nmlounpmd::w3nmlounp	(	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
	)

Definition at line 85 of file w3nmlounpmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | 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)
  

References file(), w3odatmd::ndse, ndsn, read_file_nml(), read_param_nml(), read_point_nml(), read_source_nml(), read_spectra_nml(), report_file_nml(), report_param_nml(), report_point_nml(), report_source_nml(), report_spectra_nml(), and w3servmd::strace().

Referenced by w3ounp().

Variable Documentation

◆ msg

character(256) w3nmlounpmd::msg

Definition at line 75 of file w3nmlounpmd.F90.

75 CHARACTER(256) :: MSG

Referenced by read_file_nml(), read_param_nml(), read_point_nml(), read_source_nml(), read_spectra_nml(), report_file_nml(), report_param_nml(), report_point_nml(), report_source_nml(), and report_spectra_nml().

◆ ndsn

integer w3nmlounpmd::ndsn

Definition at line 76 of file w3nmlounpmd.F90.

76 INTEGER :: NDSN

Referenced by report_file_nml(), report_param_nml(), report_point_nml(), report_source_nml(), report_spectra_nml(), and w3nmlounp().

Data Types

Functions/Subroutines

Variables

Function/Subroutine Documentation

◆ read_file_nml()

◆ read_param_nml()

◆ read_point_nml()

◆ read_source_nml()

◆ read_spectra_nml()

◆ report_file_nml()

◆ report_param_nml()

◆ report_point_nml()

◆ report_source_nml()

◆ report_spectra_nml()

◆ w3nmlounp()

Variable Documentation

◆ msg

◆ ndsn