bbl/code/mypackage_readparms.F

C $Header: /u/gcmpack/MITgcm_contrib/bbl/code/mypackage_readparms.F,v 1.1 2010/11/18 04:00:05 dimitri Exp $
C $Name:  $

#include "BBL_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP 0
C !ROUTINE: BBL_READPARMS

C !INTERFACE:
      SUBROUTINE MYPACKAGE_READPARMS( myThid )

C     !DESCRIPTION:
C     Initialize BBL variables and constants.

C     !USES:
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "BBL.h"

C     !INPUT PARAMETERS:
      INTEGER myThid
CEOP

#ifdef ALLOW_BBL

C     !LOCAL VARIABLES:
C     msgBuf     :: Informational/error message buffer
C     iUnit      :: Work variable for IO unit number
      CHARACTER*(MAX_LEN_MBUF) msgBuf
      INTEGER iUnit

      NAMELIST /BBL_PARM01/
     &     bbl_RelaxH, bbl_RelaxR, bbl_InitEta,
     &     bbl_thetaFile, bbl_saltFile, bbl_etaFile

      _BEGIN_MASTER(myThid)

C--   Default values for BBL
      bbl_RelaxH    =   86400. _d 0
      bbl_RelaxR    = 2592000. _d 0
      bbl_InitEta   =      20. _d 0

C-    file names for initial conditions:
      bbl_thetaFile = ' '
      bbl_saltFile  = ' '
      bbl_etaFile   = ' '

      WRITE(msgBuf,'(A)') 'BBL_READPARMS: opening data.bbl'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                    SQUEEZE_RIGHT , 1)
      CALL OPEN_COPY_DATA_FILE(
     I                     'data.bbl', 'BBL_READPARMS',
     O                     iUnit,
     I                     myThid )

C     Read parameters from open data file
      READ(UNIT=iUnit,NML=BBL_PARM01)
      WRITE(msgBuf,'(A)')
     &    'BBL_READPARMS: finished reading data.bbl'
      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

#endif /* ALLOW_BBL */

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm_contrib/bbl/code/mypackage_readparms.F,v 1.1 2010/11/18 04:00:05 dimitri Exp $
2	C $Name: $
3
4	#include "BBL_OPTIONS.h"
5
6	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7	CBOP 0
8	C !ROUTINE: BBL_READPARMS
9
10	C !INTERFACE:
11	SUBROUTINE MYPACKAGE_READPARMS( myThid )
12
13	C !DESCRIPTION:
14	C Initialize BBL variables and constants.
15
16	C !USES:
17	IMPLICIT NONE
18	#include "SIZE.h"
19	#include "EEPARAMS.h"
20	#include "PARAMS.h"
21	#include "BBL.h"
22
23	C !INPUT PARAMETERS:
24	INTEGER myThid
25	CEOP
26
27	#ifdef ALLOW_BBL
28
29	C !LOCAL VARIABLES:
30	C msgBuf :: Informational/error message buffer
31	C iUnit :: Work variable for IO unit number
32	CHARACTER*(MAX_LEN_MBUF) msgBuf
33	INTEGER iUnit
34
35	NAMELIST /BBL_PARM01/
36	& bbl_RelaxH, bbl_RelaxR, bbl_InitEta,
37	& bbl_thetaFile, bbl_saltFile, bbl_etaFile
38
39	_BEGIN_MASTER(myThid)
40
41	C-- Default values for BBL
42	bbl_RelaxH = 86400. _d 0
43	bbl_RelaxR = 2592000. _d 0
44	bbl_InitEta = 20. _d 0
45
46	C- file names for initial conditions:
47	bbl_thetaFile = ' '
48	bbl_saltFile = ' '
49	bbl_etaFile = ' '
50
51	WRITE(msgBuf,'(A)') 'BBL_READPARMS: opening data.bbl'
52	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
53	& SQUEEZE_RIGHT , 1)
54	CALL OPEN_COPY_DATA_FILE(
55	I 'data.bbl', 'BBL_READPARMS',
56	O iUnit,
57	I myThid )
58
59	C Read parameters from open data file
60	READ(UNIT=iUnit,NML=BBL_PARM01)
61	WRITE(msgBuf,'(A)')
62	& 'BBL_READPARMS: finished reading data.bbl'
63	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
64	& SQUEEZE_RIGHT , 1)
65	C Close the open data file
66	CLOSE(iUnit)
67
68	_END_MASTER(myThid)
69
70	C-- Everyone else must wait for the parameters to be loaded
71	_BARRIER
72
73	#endif /* ALLOW_BBL */
74
75	RETURN
76	END