sigma_testing/code-sigma/sigma_testing_readparms.F

C $Header: $
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
1	C $Header: $
2	C $Name: $
3	C
4	#include "CPP_OPTIONS.h"
5
6	SUBROUTINE SIGMA_TESTING_READPARMS( myThid )
7	C Read in
8	C - depths that won't be lopped,
9	C - transport,
10	C and
11	C - sigma or a,b levels.
12	IMPLICIT NONE
13	#include "SIZE.h"
14	#include "EEPARAMS.h"
15	#include "PARAMS.h"
16	#include "SIGMA_TESTING_PARMS.h"
17
18	C -- Routine args --
19	INTEGER myThid
20
21	C -- Local variables --
22	INTEGER K
23	CHARACTER*(MAX_LEN_MBUF) msgBuf
24	INTEGER iUnit
25
26	NAMELIST /SIGTEST01/
27	& topo_orog_file, vintz_file, blevs, alevs, slevs, s_top
28
29	_BEGIN_MASTER(myThid)
30
31	WRITE(msgBuf,'(A)') 'S/R SIGMA_TESTING_READPARMS ENTERED'
32	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
33	& SQUEEZE_RIGHT, myThid )
34
35	topo_orog_file=' PARAMETER NOT SET'
36	vintz_file=' PARAMETER NOT SET'
37	DO k=1,Nr+1
38	blevs(k) = UNSET_RL
39	alevs(k) = UNSET_RL
40	slevs(k) = UNSET_RL
41	ENDDO
42	s_top = UNSET_RL
43
44	C Open inputs
45	WRITE(msgBuf,'(A)')
46	I 'SIGMA_TESTING_READPARMS: opening data.sigma_testing'
47	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
48	& SQUEEZE_RIGHT , 1)
49	CALL OPEN_COPY_DATA_FILE(
50	I 'data.sigma_testing',
51	I 'SIGMA_TESTING_READPARMS',
52	O iUnit,
53	I myThid )
54
55	WRITE(msgBuf,'(A)') 'S/R SIGMA_TESTING_READPARMS EXITING'
56	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
57	& SQUEEZE_RIGHT, myThid )
58
59	C Read parameters from open data file
60	READ(UNIT=iUnit,NML=SIGTEST01)
61	WRITE(msgBuf,'(A)')
62	& 'SIGMA_TESTING_READPARMS: finished reading data.sigma_testing'
63	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
64	& SQUEEZE_RIGHT , 1)
65
66	C Close the open data file
67	CLOSE(iUnit)
68
69	_END_MASTER(myThid)
70
71	C Everyone else must wait for the parameters to be loaded
72	_BARRIER
73
74	RETURN
75	END