pkg/bbl/bbl_check.F

53b68b7823 Dimi*0001 #include "BBL_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C !ROUTINE: BBL_CHECK
                0006
                0007 C !INTERFACE:
15338fa568 Dimi*0008       SUBROUTINE BBL_CHECK( myThid )
53b68b7823 Dimi*0009
                0010 C     !DESCRIPTION:
                0011 C     Check dependances with other packages
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PARAMS.h"
                0018 #include "BBL.h"
                0019
                0020 C     !INPUT PARAMETERS:
                0021 C     myThid   :: my Thread Id number
                0022       INTEGER myThid
                0023 CEOP
                0024
                0025 #ifdef ALLOW_BBL
                0026 C     !LOCAL VARIABLES:
                0027 C     msgBuf   :: Informational/error message buffer
                0028       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0029
                0030       _BEGIN_MASTER(myThid)
                0031
                0032        WRITE(msgBuf,'(A)') 'BBL_CHECK: #define BBL'
                0033        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0034      &                     SQUEEZE_RIGHT , 1)
                0035
                0036 C--  Print out some key parameters :
5f5cc705f4 Dimi*0037        CALL WRITE_0D_RL( bbl_wvel, INDEX_NONE,
                0038      &  'bbl_wvel =', ' /* vertical entrainment (m/s) */')
                0039        CALL WRITE_0D_RL( bbl_hvel, INDEX_NONE,
                0040      &  'bbl_hvel =', ' /* horizontal velocity (m/s) */')
                0041        CALL WRITE_0D_RL( bbl_initEta, INDEX_NONE,
                0042      &  'bbl_initEta =', ' /* default thickness (m) */')
53b68b7823 Dimi*0043
                0044 C--  Check parameters:
                0045
                0046       _END_MASTER(myThid)
                0047
                0048 #endif /* ALLOW_BBL */
                0049
                0050       RETURN
                0051       END