Data Types
type	nml_file_t

type	nml_track_t

Functions/Subroutines
subroutine	w3nmltrnc (NDSI, INFILE, NML_TRACK, NML_FILE, IERR)

subroutine	read_track_nml (NDSI, NML_TRACK)

subroutine	read_file_nml (NDSI, NML_FILE)

subroutine	report_track_nml (NML_TRACK)

subroutine	report_file_nml (NML_FILE)

Variables
character(256)	msg

integer	ndsn

Function/Subroutine Documentation

◆ read_file_nml()

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

Definition at line 277 of file w3nmltrncmd.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
     !     ----------------------------------------------------------------
     !      W3NMLTRNC 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
     INTEGER                             :: IERR
  
     ! locals
     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 w3nmltrnc().

◆ read_track_nml()

subroutine w3nmltrncmd::read_track_nml	(	integer, intent(in)	NDSI,
		type(nml_track_t), intent(inout)	NML_TRACK
	)

Definition at line 171 of file w3nmltrncmd.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_TRACK    Type.
     !     ----------------------------------------------------------------
     !
     !  4. Subroutines used :
     !
     !      Name      TYPE  Module   Description
     !     ----------------------------------------------------------------
     !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
     !     ----------------------------------------------------------------
     !
     !  5. Called by :
     !
     !      Name      TYPE  Module   Description
     !     ----------------------------------------------------------------
     !      W3NMLTRNC 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_TRACK_T), INTENT(INOUT)    :: NML_TRACK
     INTEGER                             :: IERR
  
     ! locals
     TYPE(NML_TRACK_T) :: TRACK
     namelist /track_nml/ track
 #ifdef W3_S
     INTEGER, SAVE                           :: IENT = 0
 #endif
  
     ierr = 0
 #ifdef W3_S
     CALL strace (ient, 'READ_TRACK_NML')
 #endif
  
     ! set default values for track structure
     track%TIMESTART  = '19000101 000000'
     track%TIMESTRIDE = '0'
     track%TIMECOUNT  = '1000000000'
     track%TIMESPLIT  = 6
  
     ! read track namelist
     rewind(ndsi)
     READ (ndsi, nml=track_nml, iostat=ierr, iomsg=msg)
     IF (ierr.NE.0) THEN
       WRITE (ndse,'(A,/A)') &
            'ERROR: READ_TRACK_NML: namelist read error', &
            'ERROR: '//trim(msg)
       CALL extcde (1)
     END IF
  
     ! save namelist
     nml_track = track
  

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

Referenced by w3nmltrnc().

◆ report_file_nml()

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

Definition at line 477 of file w3nmltrncmd.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
     !     ----------------------------------------------------------------
     !      W3NMLTRNC 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 w3nmltrnc().

◆ report_track_nml()

subroutine w3nmltrncmd::report_track_nml ( type(nml_track_t), intent(in) NML_TRACK )

Definition at line 385 of file w3nmltrncmd.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_TRACK  Type.
     !     ----------------------------------------------------------------
     !
     !  4. Subroutines used :
     !
     !      Name      TYPE  Module   Description
     !     ----------------------------------------------------------------
     !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
     !     ----------------------------------------------------------------
     !
     !  5. Called by :
     !
     !      Name      TYPE  Module   Description
     !     ----------------------------------------------------------------
     !      W3NMLTRNC 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_TRACK_T), INTENT(IN) :: NML_TRACK
 #ifdef W3_S
     INTEGER, SAVE                           :: IENT = 0
 #endif
  
 #ifdef W3_S
     CALL strace (ient, 'REPORT_TRACK_NML')
 #endif
  
     WRITE (msg,'(A)') 'TRACK % '
     WRITE (ndsn,'(A)')
     WRITE (ndsn,10) trim(msg),'TIMESTART  = ', trim(nml_track%TIMESTART)
     WRITE (ndsn,10) trim(msg),'TIMESTRIDE = ', trim(nml_track%TIMESTRIDE)
     WRITE (ndsn,10) trim(msg),'TIMECOUNT  = ', trim(nml_track%TIMECOUNT)
  
     WRITE (ndsn,11) trim(msg),'TIMESPLIT  = ', nml_track%TIMESPLIT
  
  
 10  FORMAT (a,2x,a,a)
 11  FORMAT (a,2x,a,i8)
  

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

Referenced by w3nmltrnc().

◆ w3nmltrnc()

subroutine w3nmltrncmd::w3nmltrnc	(	integer, intent(in)	NDSI,
		character(), intent(in)	INFILE,
		type(nml_track_t), intent(inout)	NML_TRACK,
		type(nml_file_t), intent(inout)	NML_FILE,
		integer, intent(out)	IERR
	)

Definition at line 50 of file w3nmltrncmd.F90.

     !/
     !/                  +-----------------------------------+
     !/                  | WAVEWATCH III           NOAA/NCEP |
     !/                  |           M. Accensi              |
     !/                  |                                   |
     !/                  |                        FORTRAN 90 |
     !/                  | Last update :         15-May-2018 |
     !/                  +-----------------------------------+
     !/
     !
     !  1. Purpose :
     !
     !     Reads all the namelist to define the output track
     !
     !  2. Method :
     !
     !     See source term routines.
     !
     !  3. Parameters :
     !
     !     Parameter list
     !     ----------------------------------------------------------------
     !      NDSI        Int.
     !      INFILE      Char.
     !      NML_TRACK   type.
     !      NML_FILE    type.
     !      IERR        Int.
     !     ----------------------------------------------------------------
     !
     !  4. Subroutines used :
     !
     !      Name      TYPE  Module   Description
     !     ----------------------------------------------------------------
     !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.
     !      READ_TRACK_NML
     !     ----------------------------------------------------------------
     !
     !  5. Called by :
     !
     !      Name      TYPE  Module   Description
     !     ----------------------------------------------------------------
     !      WW3_TRNC  Prog.   N/A    Postprocess output tracks.
     !     ----------------------------------------------------------------
     !
     !  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_TRACK_T), INTENT(INOUT)            :: NML_TRACK
     TYPE(NML_FILE_T), INTENT(INOUT)             :: NML_FILE
     INTEGER, INTENT(OUT)                        :: IERR
 #ifdef W3_S
     INTEGER, SAVE                             :: IENT = 0
 #endif
  
     ierr = 0
 #ifdef W3_S
     CALL strace (ient, 'W3NMLTRNC')
 #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 track namelist
     CALL read_track_nml (ndsi, nml_track)
     CALL report_track_nml (nml_track)
  
     ! read file namelist
     CALL read_file_nml (ndsi, nml_file)
     CALL report_file_nml (nml_file)
  
     ! close namelist files
     CLOSE (ndsi)
     CLOSE (ndsn)
  

References file(), w3odatmd::ndse, ndsn, read_file_nml(), read_track_nml(), report_file_nml(), report_track_nml(), and w3servmd::strace().

Referenced by w3trnc().

Variable Documentation

◆ msg

character(256) w3nmltrncmd::msg

Definition at line 41 of file w3nmltrncmd.F90.

41 CHARACTER(256) :: MSG

Referenced by read_file_nml(), read_track_nml(), report_file_nml(), and report_track_nml().

◆ ndsn

integer w3nmltrncmd::ndsn

Definition at line 42 of file w3nmltrncmd.F90.

42 INTEGER :: NDSN

Referenced by report_file_nml(), report_track_nml(), and w3nmltrnc().

Data Types

Functions/Subroutines

Variables

Function/Subroutine Documentation

◆ read_file_nml()

◆ read_track_nml()

◆ report_file_nml()

◆ report_track_nml()

◆ w3nmltrnc()

Variable Documentation

◆ msg

◆ ndsn