WW3/w3nmlbouncmd_8F90_source.html

#include "w3macros.h"

!/ ------------------------------------------------------------------- /

MODULE w3nmlbouncmd

  !/

  !/                  +-----------------------------------+

  !/                  | 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_bounc.nml for ww3_bounc program

  !

  !/ ------------------------------------------------------------------- /


  ! module defaults

  IMPLICIT NONE


  PUBLIC


  ! bound structure

  TYPE nml_bound_t

    CHARACTER(5)                :: mode

    INTEGER                     :: interp

    INTEGER                     :: verbose

    CHARACTER(128)              :: file

  END TYPE nml_bound_t


  ! miscellaneous

  CHARACTER(256)                :: msg

  INTEGER                       :: ndsn


CONTAINS

  !/ ------------------------------------------------------------------- /

  SUBROUTINE w3nmlbounc (NDSI, INFILE, NML_BOUND, IERR)

    !/

    !/                  +-----------------------------------+

    !/                  | WAVEWATCH III           NOAA/NCEP |

    !/                  |           M. Accensi              |

    !/                  |                                   |

    !/                  |                        FORTRAN 90 |

    !/                  | Last update :         15-May-2018 |

    !/                  +-----------------------------------+

    !/

    !

    !  1. Purpose :

    !

    !     Reads all the namelist to define the input boundary

    !

    !  2. Method :

    !

    !     See source term routines.

    !

    !  3. Parameters :

    !

    !     Parameter list

    !     ----------------------------------------------------------------

    !      NDSI        Int.

    !      INFILE      Char.

    !      NML_BOUND   type.

    !      IERR        Int.

    !     ----------------------------------------------------------------

    !

    !  4. Subroutines used :

    !

    !      Name      TYPE  Module   Description

    !     ----------------------------------------------------------------

    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.

    !      READ_BOUND_NML

    !     ----------------------------------------------------------------

    !

    !  5. Called by :

    !

    !      Name      TYPE  Module   Description

    !     ----------------------------------------------------------------

    !      WW3_BOUNC  Prog.   N/A    Preprocess input boundaries.

    !     ----------------------------------------------------------------

    !

    !  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_bound_t), INTENT(INOUT)            :: NML_BOUND

    INTEGER, INTENT(OUT)                        :: IERR

#ifdef W3_S

    INTEGER, SAVE                             :: IENT = 0

#endif


    ierr = 0

#ifdef W3_S

    CALL strace (ient, 'W3NMLBOUNC')

#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 bound namelist

    CALL read_bound_nml (ndsi, nml_bound)

    CALL report_bound_nml (nml_bound)


    ! close namelist files

    CLOSE (ndsi)

    CLOSE (ndsn)


  END SUBROUTINE w3nmlbounc


  !/ ------------------------------------------------------------------- /


  !/ ------------------------------------------------------------------- /


  SUBROUTINE read_bound_nml (NDSI, NML_BOUND)

    !/

    !/                  +-----------------------------------+

    !/                  | 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_BOUND    Type.

    !     ----------------------------------------------------------------

    !

    !  4. Subroutines used :

    !

    !      Name      TYPE  Module   Description

    !     ----------------------------------------------------------------

    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.

    !     ----------------------------------------------------------------

    !

    !  5. Called by :

    !

    !      Name      TYPE  Module   Description

    !     ----------------------------------------------------------------

    !      W3NMLBOUNC 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_bound_t), INTENT(INOUT)    :: NML_BOUND


    ! locals

    INTEGER                   :: IERR

    TYPE(nml_bound_t) :: BOUND

    namelist /bound_nml/ bound

#ifdef W3_S

    INTEGER, SAVE                           :: IENT = 0

#endif


    ierr = 0

#ifdef W3_S

    CALL strace (ient, 'READ_BOUND_NML')

#endif


    ! set default values for track structure

    bound%MODE       = 'WRITE'

    bound%INTERP     = 2

    bound%VERBOSE    = 1

    bound%FILE       = 'spec.list'


    ! read bound namelist

    rewind(ndsi)

    READ (ndsi, nml=bound_nml, iostat=ierr, iomsg=msg)

    IF (ierr.GT.0) THEN

      WRITE (ndse,'(A,/A)') &

           'ERROR: READ_BOUND_NML: namelist read error', &

           'ERROR: '//trim(msg)

      CALL extcde (1)

    END IF


    ! save namelist

    nml_bound = bound


  END SUBROUTINE read_bound_nml


  !/ ------------------------------------------------------------------- /


  !/ ------------------------------------------------------------------- /


  SUBROUTINE report_bound_nml (NML_BOUND)

    !/

    !/                  +-----------------------------------+

    !/                  | 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_BOUND  Type.

    !     ----------------------------------------------------------------

    !

    !  4. Subroutines used :

    !

    !      Name      TYPE  Module   Description

    !     ----------------------------------------------------------------

    !      STRACE    Subr. W3SERVMD SUBROUTINE tracing.

    !     ----------------------------------------------------------------

    !

    !  5. Called by :

    !

    !      Name      TYPE  Module   Description

    !     ----------------------------------------------------------------

    !      W3NMLBOUNC 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_bound_t), INTENT(IN) :: NML_BOUND

#ifdef W3_S

    INTEGER, SAVE                           :: IENT = 0

#endif


#ifdef W3_S

    CALL strace (ient, 'REPORT_BOUND_NML')

#endif


    WRITE (msg,'(A)') 'BOUND % '

    WRITE (ndsn,'(A)')

    WRITE (ndsn,10) trim(msg),'MODE       = ', trim(nml_bound%MODE)

    WRITE (ndsn,11) trim(msg),'INTERP     = ', nml_bound%INTERP

    WRITE (ndsn,11) trim(msg),'VERBOSE    = ', nml_bound%VERBOSE

    WRITE (ndsn,10) trim(msg),'FILE       = ', trim(nml_bound%FILE)


10  FORMAT (a,2x,a,a)

11  FORMAT (a,2x,a,i8)


  END SUBROUTINE report_bound_nml


  !/ ------------------------------------------------------------------- /


END MODULE w3nmlbouncmd


!/ ------------------------------------------------------------------- /