pkg/gridalt/gridalt_diagnostics_init.F

f13426fb9c Andr*0001 #include "GRIDALT_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: GRIDALT_DIAGNOSTICS_INIT
                0005 C     !INTERFACE:
                0006       SUBROUTINE GRIDALT_DIAGNOSTICS_INIT( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE GRIDALT_DIAGNOSTICS_INIT
                0011 C     | o Routine to initialize list of all available diagnostics
                0012 C     |   for GRIDALT package
                0013 C     *==========================================================*
                0014 C     \ev
                0015 C     !USES:
                0016       IMPLICIT NONE
                0017
                0018 C     === Global variables ===
                0019 #include "EEPARAMS.h"
                0020
                0021 C     !INPUT/OUTPUT PARAMETERS:
                0022 C     === Routine arguments ===
                0023 C     myThid ::  my Thread Id number
                0024       INTEGER myThid
                0025 CEOP
                0026
                0027 #ifdef ALLOW_DIAGNOSTICS
                0028 C     !LOCAL VARIABLES:
                0029 C     === Local variables ===
                0030 C     diagNum   :: diagnostics number in the (long) list of available diag.
                0031 C     diagName  :: local short name (8c) of a diagnostics
                0032 C     diagCode  :: local parser field with characteristics of the diagnostics
                0033 C              cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
                0034 C     diagUnits :: local string (16c): physical units of a diagnostic field
                0035 C     diagTitle :: local string (80c): description of field in diagnostic
                0036       INTEGER       diagNum
                0037       CHARACTER*8   diagName
                0038       CHARACTER*16  diagCode
                0039       CHARACTER*16  diagUnits
                0040       CHARACTER*(80) diagTitle
                0041
                0042 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0043
                0044       diagName  = 'DPPHYS  '
                0045       diagTitle = 'Pressure Thickness of Layers on Fizhi Grid'
09582c28cf Andr*0046       diagUnits = 'Pascal          '
f13426fb9c Andr*0047       diagCode  = 'SM      ML      '
03a64b15f0 Jean*0048       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0049      I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
f13426fb9c Andr*0050
                0051 #endif /* ALLOW_DIAGNOSTICS */
                0052
                0053       RETURN
                0054       END