pkg/bbl/bbl_diagnostics_init.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_DIAGNOSTICS_INIT
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE BBL_DIAGNOSTICS_INIT( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Initialize list of all available diagnostics
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "EEPARAMS.h"
                0016 #include "SIZE.h"
                0017 #include "BBL.h"
                0018
                0019 C     !INPUT/OUTPUT PARAMETERS:
                0020 C     myThid ::  my Thread Id number
                0021       INTEGER myThid
                0022 CEOP
                0023
                0024 #ifdef ALLOW_DIAGNOSTICS
                0025 C     !LOCAL VARIABLES:
                0026 C     === Local variables ===
                0027 C     diagNum   :: diagnostics number in the (long) list of available diag.
                0028 C     diagMate  :: diag. mate number in the (long) list of available diag.
                0029 C     diagName  :: local short name (8c) of a diagnostics
                0030 C     diagCode  :: local parser field with characteristics of the diagnostics
                0031 C              cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
                0032 C     diagUnits :: local string (16c): physical units of a diagnostic field
                0033 C     diagTitle :: local string (80c): description of field in diagnostic
                0034       INTEGER       diagNum
008064ac29 Jean*0035 c     INTEGER       diagMate
53b68b7823 Dimi*0036       CHARACTER*8   diagName
                0037       CHARACTER*16  diagCode
                0038       CHARACTER*16  diagUnits
                0039       CHARACTER*(80) diagTitle
                0040
                0041 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0042
                0043         diagName  = 'BBLtheta'
                0044         diagTitle = 'Bottom boundary layer theta'
                0045         diagUnits = 'degC            '
                0046         diagCode  = 'SM      M1      '
                0047         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0048      I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0049
                0050         diagName  = 'BBLsalt '
                0051         diagTitle = 'Bottom boundary layer salinity'
ba0b047096 Mart*0052         diagUnits = 'g/kg            '
53b68b7823 Dimi*0053         diagCode  = 'SM      M1      '
                0054         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0055      I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0056
                0057         diagName  = 'BBLeta  '
                0058         diagTitle = 'Bottom boundary layer thickness'
                0059         diagUnits = 'm               '
                0060         diagCode  = 'SM      M1      '
                0061         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0062      I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0063
                0064         diagName  = 'BBLtendT'
                0065         diagTitle = 'Bottom temperature tendency due to BBL'
                0066         diagUnits = 'degC/s          '
                0067         diagCode  = 'SM      M1      '
                0068         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0069      I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0070
                0071         diagName  = 'BBLtendS'
                0072         diagTitle = 'Bottom salt tendency due to BBL'
ba0b047096 Mart*0073         diagUnits = 'g/kg/s          '
53b68b7823 Dimi*0074         diagCode  = 'SM      M1      '
                0075         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0076      I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0077
                0078 #endif /* ALLOW_DIAGNOSTICS */
                0079
                0080       RETURN
                0081       END