#include "CPP_OPTIONS.h"

      subroutine smooth_readparms( mythid )

      implicit none

c     == global variables ==

#include "EEPARAMS.h"
#include "SIZE.h"
#include "GRID.h"
#include "PARAMS.h"

#include "smooth.h"

c     == routine arguments ==

      integer mythid

c     == local variables ==
C     msgBuf      - Informational/error meesage buffer
C     iUnit       - Work variable for IO unit number
      CHARACTER*(MAX_LEN_MBUF) msgBuf
      INTEGER iUnit, num_file, num_var

c     == end of interface ==

c--   Read the namelist input.
      namelist /smooth_nml/ 
     &                   wc01_2D_nbt,
     &                   smooth2Dtype,
     &                   smooth2Dsize,
     &                   wc01_2D_Lx0,
     &                   wc01_2D_Ly0,
     &                   smooth2Dfilter,
     &                   wc01_nbt,
     &                   smooth3DtypeH,
     &                   smooth3DsizeH,
     &                   smooth3DtypeZ,
     &                   smooth3DsizeZ,
     &                   wc01_3D_Lx0,
     &                   wc01_3D_Ly0,
     &                   wc01_3D_Lz0,
     &                   smooth3Dfilter


      _BEGIN_MASTER( myThid )

      smooth_isset=.FALSE.

c--     Set default values.
      DO smoothOpNbCur=1,smoothOpNbMax

      wc01_2D_nbt(smoothOpNbCur)=0
      wc01_2D_Lx0(smoothOpNbCur)=0.
      wc01_2D_Ly0(smoothOpNbCur)=0.
      smooth2Dtype(smoothOpNbCur)=0
      smooth2Dsize(smoothOpNbCur)=0
      smooth2Dfilter(smoothOpNbCur)=0

      wc01_nbt(smoothOpNbCur)=0
      wc01_3D_Lx0(smoothOpNbCur)=0.
      wc01_3D_Ly0(smoothOpNbCur)=0.
      wc01_3D_Lz0(smoothOpNbCur)=0.
      smooth3DtypeH(smoothOpNbCur)=0
      smooth3DsizeH(smoothOpNbCur)=0
      smooth3DtypeZ(smoothOpNbCur)=0
      smooth3DsizeZ(smoothOpNbCur)=0
      smooth3Dfilter(smoothOpNbCur)=0

      ENDDO

c--     Next, read the cost data file.
        WRITE(msgBuf,'(A)') 'PROFILES_READPARMS: opening data.smooth'
        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                    SQUEEZE_RIGHT , 1)

        CALL OPEN_COPY_DATA_FILE(
     I                          'data.smooth', 'SMOOTH_READPARMS',
     O                          iUnit,
     I                          myThid )

        READ(  iUnit, nml = smooth_nml )

        WRITE(msgBuf,'(2A)') 'PROFILES_READPARMS: ',
     &       'finished reading data.smooth'
        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                  SQUEEZE_RIGHT , 1)

        CLOSE( iUnit )

      _END_MASTER( mythid )

      _BARRIER


      end