pkg/frazil/frazil_diagnostics_init.F

e0b3e1bdd8 Dimi*0001 #include "FRAZIL_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C !ROUTINE: FRAZIL_DIAGNOSTICS_INIT
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE FRAZIL_DIAGNOSTICS_INIT( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Initialize list of all available diagnostics
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015
                0016 C     !INPUT/OUTPUT PARAMETERS:
33e5e9881a Dimi*0017 C     myThid :: my Thread Id number
e0b3e1bdd8 Dimi*0018       INTEGER myThid
                0019 CEOP
                0020
                0021 #ifdef ALLOW_DIAGNOSTICS
33e5e9881a Dimi*0022
e0b3e1bdd8 Dimi*0023 C     !LOCAL VARIABLES:
                0024 C     diagNum   :: diagnostics number in the (long) list of available diag.
                0025 C     diagMate  :: diag. mate number in the (long) list of available diag.
                0026 C     diagName  :: local short name (8c) of a diagnostics
                0027 C     diagCode  :: local parser field with characteristics of the diagnostics
                0028 C              cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
                0029 C     diagUnits :: local string (16c): physical units of a diagnostic field
                0030 C     diagTitle :: local string (80c): description of field in diagnostic
                0031       INTEGER       diagNum
2d1036ffbc Jean*0032 c     INTEGER       diagMate
e0b3e1bdd8 Dimi*0033       CHARACTER*8   diagName
                0034       CHARACTER*16  diagCode
                0035       CHARACTER*16  diagUnits
                0036       CHARACTER*(80) diagTitle
                0037
33e5e9881a Dimi*0038       diagName  = 'FrzForcT'
                0039       diagTitle = 'Frazil temperature forcing, > 0 increases theta'
                0040       diagUnits = 'W/m^2           '
                0041       diagCode  = 'SM      MR      '
                0042       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0043      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
e0b3e1bdd8 Dimi*0044
                0045 #endif /* ALLOW_DIAGNOSTICS */
                0046
                0047       RETURN
                0048       END