bbl/code/mypackage_check.F

C $Header: /u/gcmpack/MITgcm_contrib/bbl/code/mypackage_check.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_CHECK

C !INTERFACE:
      SUBROUTINE MYPACKAGE_CHECK( myThid )

C     !DESCRIPTION:
C     Check dependances with other packages

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

C     !INPUT PARAMETERS:
C     myThid   :: my Thread Id number
      INTEGER myThid
CEOP

#ifdef ALLOW_BBL
C     !LOCAL VARIABLES:
C     msgBuf   :: Informational/error message buffer
      CHARACTER*(MAX_LEN_MBUF) msgBuf

      _BEGIN_MASTER(myThid)

       WRITE(msgBuf,'(A)') 'BBL_CHECK: #define BBL'
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                     SQUEEZE_RIGHT , 1)

C--  Print out some key parameters :
       CALL WRITE_0D_L( bbl_RelaxH, INDEX_NONE,
     &  'bbl_RelaxH =', ' /* horizontal transfer coefficient */')
       CALL WRITE_0D_L( bbl_RelaxR, INDEX_NONE,
     &  'bbl_RelaxR =', ' /* vertical transfer coefficient */')
       CALL WRITE_0D_L( bbl_InitEta, INDEX_NONE,
     &  'bbl_InitEta =', ' /* default bbl thickness */')

C--  Check parameters:

      _END_MASTER(myThid)

#endif /* ALLOW_BBL */

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm_contrib/bbl/code/mypackage_check.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_CHECK
9
10	C !INTERFACE:
11	SUBROUTINE MYPACKAGE_CHECK( myThid )
12
13	C !DESCRIPTION:
14	C Check dependances with other packages
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	C myThid :: my Thread Id number
25	INTEGER myThid
26	CEOP
27
28	#ifdef ALLOW_BBL
29	C !LOCAL VARIABLES:
30	C msgBuf :: Informational/error message buffer
31	CHARACTER*(MAX_LEN_MBUF) msgBuf
32
33	_BEGIN_MASTER(myThid)
34
35	WRITE(msgBuf,'(A)') 'BBL_CHECK: #define BBL'
36	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
37	& SQUEEZE_RIGHT , 1)
38
39	C-- Print out some key parameters :
40	CALL WRITE_0D_L( bbl_RelaxH, INDEX_NONE,
41	& 'bbl_RelaxH =', ' /* horizontal transfer coefficient */')
42	CALL WRITE_0D_L( bbl_RelaxR, INDEX_NONE,
43	& 'bbl_RelaxR =', ' /* vertical transfer coefficient */')
44	CALL WRITE_0D_L( bbl_InitEta, INDEX_NONE,
45	& 'bbl_InitEta =', ' /* default bbl thickness */')
46
47	C-- Check parameters:
48
49	_END_MASTER(myThid)
50
51	#endif /* ALLOW_BBL */
52
53	RETURN
54	END