pkg/frazil/frazil_diagnostics_init.F

C $Header: /u/gcmpack/MITgcm/pkg/frazil/frazil_diagnostics_init.F,v 1.1 2012/03/02 01:45:23 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
#include "EEPARAMS.h"
#include "SIZE.h"
#include "FRAZIL.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
      INTEGER       diagMate
      CHARACTER*8   diagName
      CHARACTER*16  diagCode
      CHARACTER*16  diagUnits
      CHARACTER*(80) diagTitle

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

c     IF ( useDiagnotics ) THEN

        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 )

c     ENDIF

#endif /* ALLOW_DIAGNOSTICS */

      RETURN
      END
1	dimitri	1.2	C $Header: /u/gcmpack/MITgcm/pkg/frazil/frazil_diagnostics_init.F,v 1.1 2012/03/02 01:45:23 dimitri Exp $
2	dimitri	1.1	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			#include "EEPARAMS.h"
19			#include "SIZE.h"
20			#include "FRAZIL.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			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			c IF ( useDiagnotics ) THEN
47
48	dimitri	1.2	diagName = 'FrzForcT'
49			diagTitle = 'Frazil temperature forcing, > 0 increases theta'
50			diagUnits = 'W/m^2 '
51			diagCode = 'SM MR '
52	dimitri	1.1	CALL DIAGNOSTICS_ADDTOLIST( diagNum,
53			I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
54
55			c ENDIF
56
57			#endif /* ALLOW_DIAGNOSTICS */
58
59			RETURN
60			END