pkg/frazil/frazil_diagnostics_init.F

C $Header: /u/gcmpack/MITgcm/pkg/frazil/frazil_diagnostics_init.F,v 1.2 2012/03/03 16:04:38 dimitri Exp $
C $Name:  $

#include "FRAZIL_OPTIONS.h"

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

C !INTERFACE:
      SUBROUTINE FRAZIL_DIAGNOSTICS_INIT( myThid )

C     !DESCRIPTION:
C     Initialize list of all available diagnostics

C     !USES:
      IMPLICIT NONE

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

#ifdef ALLOW_DIAGNOSTICS

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
      INTEGER       diagMate
      CHARACTER*8   diagName
      CHARACTER*16  diagCode
      CHARACTER*16  diagUnits
      CHARACTER*(80) diagTitle

      diagName  = 'FrzForcT'
      diagTitle = 'Frazil temperature forcing, > 0 increases theta'
      diagUnits = 'W/m^2           '
      diagCode  = 'SM      MR      '
      CALL DIAGNOSTICS_ADDTOLIST( diagNum,
     I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )

#endif /* ALLOW_DIAGNOSTICS */

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/frazil/frazil_diagnostics_init.F,v 1.2 2012/03/03 16:04:38 dimitri Exp $
2	C $Name: $
3
4	#include "FRAZIL_OPTIONS.h"
5
6	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7	CBOP 0
8	C !ROUTINE: FRAZIL_DIAGNOSTICS_INIT
9
10	C !INTERFACE:
11	SUBROUTINE FRAZIL_DIAGNOSTICS_INIT( myThid )
12
13	C !DESCRIPTION:
14	C Initialize list of all available diagnostics
15
16	C !USES:
17	IMPLICIT NONE
18
19	C !INPUT/OUTPUT PARAMETERS:
20	C myThid :: my Thread Id number
21	INTEGER myThid
22	CEOP
23
24	#ifdef ALLOW_DIAGNOSTICS
25
26	C !LOCAL VARIABLES:
27	C diagNum :: diagnostics number in the (long) list of available diag.
28	C diagMate :: diag. mate number in the (long) list of available diag.
29	C diagName :: local short name (8c) of a diagnostics
30	C diagCode :: local parser field with characteristics of the diagnostics
31	C cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
32	C diagUnits :: local string (16c): physical units of a diagnostic field
33	C diagTitle :: local string (80c): description of field in diagnostic
34	INTEGER diagNum
35	INTEGER diagMate
36	CHARACTER*8 diagName
37	CHARACTER*16 diagCode
38	CHARACTER*16 diagUnits
39	CHARACTER*(80) diagTitle
40
41	diagName = 'FrzForcT'
42	diagTitle = 'Frazil temperature forcing, > 0 increases theta'
43	diagUnits = 'W/m^2 '
44	diagCode = 'SM MR '
45	CALL DIAGNOSTICS_ADDTOLIST( diagNum,
46	I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
47
48	#endif /* ALLOW_DIAGNOSTICS */
49
50	RETURN
51	END