Data Types
type	nml_field_t

type	nml_file_t

type	nml_smc_t

Functions/Subroutines
subroutine	w3nmlounf (NDSI, INFILE, NML_FIELD, NML_FILE, NML_SMC, IERR)

subroutine	read_field_nml (NDSI, NML_FIELD)

subroutine	read_file_nml (NDSI, NML_FILE)

subroutine	read_smc_nml (NDSI, NML_SMC)

subroutine	report_field_nml (NML_FIELD)

subroutine	report_file_nml (NML_FILE)

subroutine	report_smc_nml (NML_SMC)

Variables
character(256)	msg

integer	ndsn

Function/Subroutine Documentation

◆ read_field_nml()

subroutine w3nmlounfmd::read_field_nml	(	integer, intent(in)	NDSI,
		type(nml_field_t), intent(inout)	NML_FIELD
	)

Definition at line 203 of file w3nmlounfmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                                   |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         12-Jan-2021 |
     !/                  +-----------------------------------+
     !/
     !  1. Purpose :
     !
     !
     !  2. Method :
     !
     !     See source term routines.
     !
     !  3. Parameters :
     !
     !     Parameter list
     !     ----------------------------------------------------------------
     !      NDSI         Int.
     !      NML_FIELD    Type.
     !     ----------------------------------------------------------------
     !
     !  4. Subroutines used :
     !
     !      Name      TYPE  Module   Description
     !     ----------------------------------------------------------------
     !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
     !     ----------------------------------------------------------------
     !
     !  5. Called by :
     !
     !      Name      TYPE  Module   Description
     !     ----------------------------------------------------------------
     !      W3NMLOUNF 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
     USE constants, ONLY: undef
  
     IMPLICIT NONE
  
     INTEGER, INTENT(IN)                 :: NDSI
     TYPE(NML_FIELD_T), INTENT(INOUT)    :: NML_FIELD
  
     ! locals
     INTEGER                                :: IERR
     TYPE(NML_FIELD_T) :: FIELD
     namelist /field_nml/ field
 #ifdef W3_S
     INTEGER, SAVE                           :: IENT = 0
 #endif
  
     ierr = 0
 #ifdef W3_S
     CALL strace (ient, 'READ_FIELD_NML')
 #endif
  
     ! set default values for field structure
     field%TIMESTART  = '19000101 000000'
     field%TIMESTRIDE = '0'
     field%TIMECOUNT  = '1000000000'
     field%TIMESPLIT  = 6
     field%LIST       = 'unset'
     field%PARTITION  = '0 1 2 3'
     field%SAMEFILE   = .true.
     field%VECTOR     = .true.
     field%TYPE       = 3
     field%TIMEREF    = 'unset'
     field%FCVARS     = .false.
     field%TIMEVAR    = 'D'
     field%TIMEUNIT   = 'D'
     field%TIMEEPOCH  = '19900101 000000'
     field%NOVAL      = undef
     field%MAPSTA     = .true.
  
     ! read field namelist
     rewind(ndsi)
     READ (ndsi, nml=field_nml, iostat=ierr, iomsg=msg)
     IF (ierr.NE.0) THEN
       WRITE (ndse,'(A,/A)') &
            'ERROR: READ_FIELD_NML: namelist read error', &
            'ERROR: '//trim(msg)
       CALL extcde (1)
     END IF
  
     ! Default forecast reference time to start time
     IF(field%TIMEREF == 'unset') field%TIMEREF = field%TIMESTART
  
     ! save namelist
     nml_field = field
  

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

Referenced by w3nmlounf().

◆ read_file_nml()

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

Definition at line 325 of file w3nmlounfmd.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
     !     ----------------------------------------------------------------
     !      W3NMLOUNF 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
     file%IX0       = 1
     file%IXN       = 1000000000
     file%IY0       = 1
     file%IYN       = 1000000000
  
     ! 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 w3nmlounf().

◆ read_smc_nml()

subroutine w3nmlounfmd::read_smc_nml	(	integer, intent(in)	NDSI,
		type(nml_smc_t), intent(inout)	NML_SMC
	)

Definition at line 433 of file w3nmlounfmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                                   |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         19-Sep-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
     !     ----------------------------------------------------------------
     !      W3NMLOUNF 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%SXO       = -999.9
     smc%SYO       = -999.9
     smc%EXO       = -999.9
     smc%EYO       = -999.9
     smc%CELFAC    = 1
     smc%TYPE      = 1
  
     ! 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 (3)
     END IF
  
     ! save namelist
     nml_smc = smc
  

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

Referenced by w3nmlounf().

◆ report_field_nml()

subroutine w3nmlounfmd::report_field_nml ( type(nml_field_t), intent(in) NML_FIELD )

Definition at line 543 of file w3nmlounfmd.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_FIELD  Type.
     !     ----------------------------------------------------------------
     !
     !  4. Subroutines used :
     !
     !      Name      TYPE  Module   Description
     !     ----------------------------------------------------------------
     !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
     !     ----------------------------------------------------------------
     !
     !  5. Called by :
     !
     !      Name      TYPE  Module   Description
     !     ----------------------------------------------------------------
     !      W3NMLOUNF 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_FIELD_T), INTENT(IN) :: NML_FIELD
 #ifdef W3_S
     INTEGER, SAVE                           :: IENT = 0
 #endif
  
 #ifdef W3_S
     CALL strace (ient, 'REPORT_FIELD_NML')
 #endif
  
     WRITE (msg,'(A)') 'FIELD % '
     WRITE (ndsn,'(A)')
     WRITE (ndsn,10) trim(msg),'TIMESTART  = ', trim(nml_field%TIMESTART)
     WRITE (ndsn,10) trim(msg),'TIMESTRIDE = ', trim(nml_field%TIMESTRIDE)
     WRITE (ndsn,10) trim(msg),'TIMECOUNT  = ', trim(nml_field%TIMECOUNT)
  
     WRITE (ndsn,11) trim(msg),'TIMESPLIT  = ', nml_field%TIMESPLIT
     WRITE (ndsn,10) trim(msg),'LIST       = ', trim(nml_field%LIST)
     WRITE (ndsn,10) trim(msg),'PARTITION  = ', trim(nml_field%PARTITION)
     WRITE (ndsn,13) trim(msg),'SAMEFILE   = ', nml_field%SAMEFILE
     WRITE (ndsn,11) trim(msg),'TYPE       = ', nml_field%TYPE
     WRITE (ndsn,10) trim(msg),'FCVARS     = ', nml_field%FCVARS
     WRITE (ndsn,10) trim(msg),'TIMEREF    = ', nml_field%TIMEREF
     WRITE (ndsn,14) trim(msg),'NOVAL      = ', nml_field%NOVAL
     WRITE (ndsn,13) trim(msg),'MAPSTA     = ', nml_field%MAPSTA
  
  
 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)
  

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

Referenced by w3nmlounf().

◆ report_file_nml()

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

Definition at line 645 of file w3nmlounfmd.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
     !     ----------------------------------------------------------------
     !      W3NMLOUNF 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
     WRITE (ndsn,11) trim(msg),'IX0       = ', nml_file%IX0
     WRITE (ndsn,11) trim(msg),'IXN       = ', nml_file%IXN
     WRITE (ndsn,11) trim(msg),'IY0       = ', nml_file%IY0
     WRITE (ndsn,11) trim(msg),'IYN       = ', nml_file%IYN
  
 10  FORMAT (a,2x,a,a)
 11  FORMAT (a,2x,a,i12)
  

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

Referenced by w3nmlounf().

◆ report_smc_nml()

subroutine w3nmlounfmd::report_smc_nml ( type(nml_smc_t), intent(in) NML_SMC )

Definition at line 733 of file w3nmlounfmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         19-Sep-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
     !     ----------------------------------------------------------------
     !      W3NMLOUNF 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,11) trim(msg),'TYPE      = ', nml_smc%TYPE
     WRITE (ndsn,14) trim(msg),'SXO       = ', nml_smc%SXO
     WRITE (ndsn,14) trim(msg),'SYO       = ', nml_smc%SYO
     WRITE (ndsn,14) trim(msg),'EXO       = ', nml_smc%EXO
     WRITE (ndsn,14) trim(msg),'EYO       = ', nml_smc%EYO
     WRITE (ndsn,11) trim(msg),'CELFAC    = ', nml_smc%CELFAC
  
 11  FORMAT (a,2x,a,i12)
 14  FORMAT (a,2x,a,f8.2)
  

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

Referenced by w3nmlounf().

◆ w3nmlounf()

subroutine w3nmlounfmd::w3nmlounf	(	integer, intent(in)	NDSI,
		character(), intent(in)	INFILE,
		type(nml_field_t), intent(inout)	NML_FIELD,
		type(nml_file_t), intent(inout)	NML_FILE,
		type(nml_smc_t), intent(inout)	NML_SMC,
		integer, intent(out)	IERR
	)

Definition at line 76 of file w3nmlounfmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                                   |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         12-Jan-2021 |
     !/                  +-----------------------------------+
     !/
     !
     !  1. Purpose :
     !
     !     Reads all the namelist to define the output field
     !
     !  2. Method :
     !
     !     See source term routines.
     !
     !  3. Parameters :
     !
     !     Parameter list
     !     ----------------------------------------------------------------
     !      NDSI        Int.
     !      INFILE      Char.
     !      NML_FIELD   type.
     !      NML_FILE    type.
     !      NML_SMC     type.
     !      IERR        Int.
     !     ----------------------------------------------------------------
     !
     !  4. Subroutines used :
     !
     !      Name      TYPE  Module   Description
     !     ----------------------------------------------------------------
     !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
     !      READ_FIELD_NML
     !     ----------------------------------------------------------------
     !
     !  5. Called by :
     !
     !      Name      TYPE  Module   Description
     !     ----------------------------------------------------------------
     !      WW3_OUNF  Prog.   N/A    Postprocess output fields.
     !     ----------------------------------------------------------------
     !
     !  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_FIELD_T), INTENT(INOUT)            :: NML_FIELD
     TYPE(NML_FILE_T), INTENT(INOUT)             :: NML_FILE
     TYPE(NML_SMC_T), INTENT(INOUT)              :: NML_SMC
     INTEGER, INTENT(OUT)                        :: IERR
 #ifdef W3_S
     INTEGER, SAVE                             :: IENT = 0
 #endif
  
     ierr = 0
 #ifdef W3_S
     CALL strace (ient, 'W3NMLOUNF')
 #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 field namelist
     CALL read_field_nml (ndsi, nml_field)
     CALL report_field_nml (nml_field)
  
     ! read file namelist
     CALL read_file_nml (ndsi, nml_file)
     CALL report_file_nml (nml_file)
  
     ! read smc namelist
     CALL read_smc_nml (ndsi, nml_smc)
     CALL report_smc_nml (nml_smc)
  
     ! close namelist files
     CLOSE (ndsi)
     CLOSE (ndsn)
  

References file(), w3odatmd::ndse, ndsn, read_field_nml(), read_file_nml(), read_smc_nml(), report_field_nml(), report_file_nml(), report_smc_nml(), and w3servmd::strace().

Referenced by w3ounf().

Variable Documentation

◆ msg

character(256) w3nmlounfmd::msg

Definition at line 67 of file w3nmlounfmd.F90.

67 CHARACTER(256) :: MSG

Referenced by read_field_nml(), read_file_nml(), read_smc_nml(), report_field_nml(), report_file_nml(), and report_smc_nml().

◆ ndsn

integer w3nmlounfmd::ndsn

Definition at line 68 of file w3nmlounfmd.F90.

68 INTEGER :: NDSN

Referenced by report_field_nml(), report_file_nml(), report_smc_nml(), and w3nmlounf().

Data Types

Functions/Subroutines

Variables

Function/Subroutine Documentation

◆ read_field_nml()

◆ read_file_nml()

◆ read_smc_nml()

◆ report_field_nml()

◆ report_file_nml()

◆ report_smc_nml()

◆ w3nmlounf()

Variable Documentation

◆ msg

◆ ndsn