C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/cam_devel/sigma_testing/code-sigma/sigma_testing_readparms.F,v 1.1 2010/01/06 04:31:15 cnh Exp $
C $Name:  $
C
#include "CPP_OPTIONS.h"

      SUBROUTINE SIGMA_TESTING_READPARMS( myThid )
C     Read in 
C       - depths that won't be lopped, 
C       - transport,
C     and 
C       - sigma or a,b levels.
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "SIGMA_TESTING_PARMS.h"

C     -- Routine args --
      INTEGER myThid

C     -- Local variables --
      INTEGER K
      CHARACTER*(MAX_LEN_MBUF) msgBuf
      INTEGER iUnit

      NAMELIST /SIGTEST01/
     & topo_orog_file, vintz_file, blevs, alevs, slevs, s_top

      _BEGIN_MASTER(myThid)
     
      WRITE(msgBuf,'(A)') 'S/R SIGMA_TESTING_READPARMS ENTERED'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                    SQUEEZE_RIGHT, myThid )

      topo_orog_file=' PARAMETER NOT SET'
      vintz_file=' PARAMETER NOT SET'
      DO k=1,Nr+1
       blevs(k) = UNSET_RL
       alevs(k) = UNSET_RL
       slevs(k) = UNSET_RL
      ENDDO
      s_top = UNSET_RL

C     Open inputs
      WRITE(msgBuf,'(A)') 
     I 'SIGMA_TESTING_READPARMS: opening data.sigma_testing'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                    SQUEEZE_RIGHT , 1)
      CALL OPEN_COPY_DATA_FILE(
     I                     'data.sigma_testing', 
     I                     'SIGMA_TESTING_READPARMS',
     O                     iUnit,
     I                     myThid )

      WRITE(msgBuf,'(A)') 'S/R SIGMA_TESTING_READPARMS EXITING'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                    SQUEEZE_RIGHT, myThid )

C     Read parameters from open data file
      READ(UNIT=iUnit,NML=SIGTEST01)
      WRITE(msgBuf,'(A)')
     & 'SIGMA_TESTING_READPARMS: finished reading data.sigma_testing'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &    SQUEEZE_RIGHT , 1)

C     Close the open data file
      CLOSE(iUnit)

      _END_MASTER(myThid)

C      Everyone else must wait for the parameters to be loaded
      _BARRIER

      RETURN 
      END