pkg/bbl/bbl_diagnostics_init.F

C $Header: /u/gcmpack/MITgcm/pkg/bbl/bbl_diagnostics_init.F,v 1.1 2011/08/06 03:13:22 dimitri Exp $
C $Name:  $

#include "BBL_OPTIONS.h"

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

C !INTERFACE:
      SUBROUTINE BBL_DIAGNOSTICS_INIT( myThid )

C     !DESCRIPTION:
C     Initialize list of all available diagnostics

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

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

#ifdef ALLOW_DIAGNOSTICS
C     !LOCAL VARIABLES:
C     === Local variables ===
C     diagNum   :: diagnostics number in the (long) list of available diag.
C     diagMate  :: diag. mate number in the (long) list of available diag.
C     diagName  :: local short name (8c) of a diagnostics
C     diagCode  :: local parser field with characteristics of the diagnostics
C              cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
C     diagUnits :: local string (16c): physical units of a diagnostic field
C     diagTitle :: local string (80c): description of field in diagnostic
      INTEGER       diagNum
c     INTEGER       diagMate
      CHARACTER*8   diagName
      CHARACTER*16  diagCode
      CHARACTER*16  diagUnits
      CHARACTER*(80) diagTitle

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

        diagName  = 'BBLtheta'
        diagTitle = 'Bottom boundary layer theta'
        diagUnits = 'degC            '
        diagCode  = 'SM      M1      '
        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
     I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )

        diagName  = 'BBLsalt '
        diagTitle = 'Bottom boundary layer salinity'
        diagUnits = 'psu             '
        diagCode  = 'SM      M1      '
        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
     I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )

        diagName  = 'BBLeta  '
        diagTitle = 'Bottom boundary layer thickness'
        diagUnits = 'm               '
        diagCode  = 'SM      M1      '
        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
     I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )

        diagName  = 'BBLtendT'
        diagTitle = 'Bottom temperature tendency due to BBL'
        diagUnits = 'degC/s          '
        diagCode  = 'SM      M1      '
        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
     I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )

        diagName  = 'BBLtendS'
        diagTitle = 'Bottom salt tendency due to BBL'
        diagUnits = 'psu/s           '
        diagCode  = 'SM      M1      '
        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
     I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )

#endif /* ALLOW_DIAGNOSTICS */

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/bbl/bbl_diagnostics_init.F,v 1.1 2011/08/06 03:13:22 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_DIAGNOSTICS_INIT
9
10	C !INTERFACE:
11	SUBROUTINE BBL_DIAGNOSTICS_INIT( myThid )
12
13	C !DESCRIPTION:
14	C Initialize list of all available diagnostics
15
16	C !USES:
17	IMPLICIT NONE
18	#include "EEPARAMS.h"
19	#include "SIZE.h"
20	#include "BBL.h"
21
22	C !INPUT/OUTPUT PARAMETERS:
23	C myThid :: my Thread Id number
24	INTEGER myThid
25	CEOP
26
27	#ifdef ALLOW_DIAGNOSTICS
28	C !LOCAL VARIABLES:
29	C === Local variables ===
30	C diagNum :: diagnostics number in the (long) list of available diag.
31	C diagMate :: diag. mate number in the (long) list of available diag.
32	C diagName :: local short name (8c) of a diagnostics
33	C diagCode :: local parser field with characteristics of the diagnostics
34	C cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
35	C diagUnits :: local string (16c): physical units of a diagnostic field
36	C diagTitle :: local string (80c): description of field in diagnostic
37	INTEGER diagNum
38	c INTEGER diagMate
39	CHARACTER*8 diagName
40	CHARACTER*16 diagCode
41	CHARACTER*16 diagUnits
42	CHARACTER*(80) diagTitle
43
44	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
45
46	diagName = 'BBLtheta'
47	diagTitle = 'Bottom boundary layer theta'
48	diagUnits = 'degC '
49	diagCode = 'SM M1 '
50	CALL DIAGNOSTICS_ADDTOLIST( diagNum,
51	I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
52
53	diagName = 'BBLsalt '
54	diagTitle = 'Bottom boundary layer salinity'
55	diagUnits = 'psu '
56	diagCode = 'SM M1 '
57	CALL DIAGNOSTICS_ADDTOLIST( diagNum,
58	I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
59
60	diagName = 'BBLeta '
61	diagTitle = 'Bottom boundary layer thickness'
62	diagUnits = 'm '
63	diagCode = 'SM M1 '
64	CALL DIAGNOSTICS_ADDTOLIST( diagNum,
65	I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
66
67	diagName = 'BBLtendT'
68	diagTitle = 'Bottom temperature tendency due to BBL'
69	diagUnits = 'degC/s '
70	diagCode = 'SM M1 '
71	CALL DIAGNOSTICS_ADDTOLIST( diagNum,
72	I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
73
74	diagName = 'BBLtendS'
75	diagTitle = 'Bottom salt tendency due to BBL'
76	diagUnits = 'psu/s '
77	diagCode = 'SM M1 '
78	CALL DIAGNOSTICS_ADDTOLIST( diagNum,
79	I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
80
81	#endif /* ALLOW_DIAGNOSTICS */
82
83	RETURN
84	END