pkg/kl10/kl10_diagnostics_init.F

C $Header: /u/gcmpack/MITgcm/pkg/pp81/pp81_diagnostics_init.F,v 1.1 2011/10/26 09:29:36 mlosch Exp $
C $Name:  $

#include "KL10_OPTIONS.h"

CBOP
C     !ROUTINE: KL10_DIAGNOSTICS_INIT
C     !INTERFACE:
      SUBROUTINE KL10_DIAGNOSTICS_INIT( myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE KL10_DIAGNOSTICS_INIT
C     | o Routine to initialize list of all available diagnostics
C     |   for KL10 package
C     *==========================================================*
C     \ev
C     !USES:
      IMPLICIT NONE

C     === Global variables ===

C     !INPUT/OUTPUT PARAMETERS:
C     === Routine arguments ===
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     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
      CHARACTER*8   diagName
      CHARACTER*16  diagCode
      CHARACTER*16  diagUnits
      CHARACTER*(80) diagTitle

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

        diagName  = 'KLviscAr'
        diagTitle = 'KL10 vertical eddy viscosity coefficient'
        diagUnits = 'm^2/s           '
        diagCode  = 'SM P    LR      '
        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
     I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )

        diagName  = 'KLdiffKr'
        diagTitle = 'KL10 Vertical diffusion coefficient for tracers'
        diagUnits = 'm^2/s           '
        diagCode  = 'SM P    LR      '
        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
     I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )

        diagName  = 'KLeps   '
        diagTitle = 'KL10 Turbulent dissipation rate'
        diagUnits = 'm^2/s^3           '
        diagCode  = 'SM P    LR      '
        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
     I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )

#endif /* ALLOW_DIAGNOSTICS */

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/pp81/pp81_diagnostics_init.F,v 1.1 2011/10/26 09:29:36 mlosch Exp $
2	C $Name: $
3
4	#include "KL10_OPTIONS.h"
5
6	CBOP
7	C !ROUTINE: KL10_DIAGNOSTICS_INIT
8	C !INTERFACE:
9	SUBROUTINE KL10_DIAGNOSTICS_INIT( myThid )
10
11	C !DESCRIPTION: \bv
12	C ==========================================================
13	C \| SUBROUTINE KL10_DIAGNOSTICS_INIT
14	C \| o Routine to initialize list of all available diagnostics
15	C \| for KL10 package
16	C ==========================================================
17	C \ev
18	C !USES:
19	IMPLICIT NONE
20
21	C === Global variables ===
22
23	C !INPUT/OUTPUT PARAMETERS:
24	C === Routine arguments ===
25	C myThid :: my Thread Id number
26	INTEGER myThid
27	CEOP
28
29	#ifdef ALLOW_DIAGNOSTICS
30	C !LOCAL VARIABLES :
31	C === Local variables ===
32	C diagNum :: diagnostics number in the (long) list of available diag.
33	C diagName :: local short name (8c) of a diagnostics
34	C diagCode :: local parser field with characteristics of the diagnostics
35	C cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
36	C diagUnits :: local string (16c): physical units of a diagnostic field
37	C diagTitle :: local string (80c): description of field in diagnostic
38	INTEGER diagNum
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 = 'KLviscAr'
47	diagTitle = 'KL10 vertical eddy viscosity coefficient'
48	diagUnits = 'm^2/s '
49	diagCode = 'SM P LR '
50	CALL DIAGNOSTICS_ADDTOLIST( diagNum,
51	I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
52
53	diagName = 'KLdiffKr'
54	diagTitle = 'KL10 Vertical diffusion coefficient for tracers'
55	diagUnits = 'm^2/s '
56	diagCode = 'SM P LR '
57	CALL DIAGNOSTICS_ADDTOLIST( diagNum,
58	I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
59
60	diagName = 'KLeps '
61	diagTitle = 'KL10 Turbulent dissipation rate'
62	diagUnits = 'm^2/s^3 '
63	diagCode = 'SM P LR '
64	CALL DIAGNOSTICS_ADDTOLIST( diagNum,
65	I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
66
67	#endif /* ALLOW_DIAGNOSTICS */
68
69	RETURN
70	END