pkg/ecco/ecco_diagnostics_init.F

0cd0083da8 Ou W*0001 #include "ECCO_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C !ROUTINE: ECCO_DIAGNOSTICS_INIT
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE ECCO_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     === Global variables ===
                0017 #include "EEPARAMS.h"
                0018 #include "SIZE.h"
                0019 #include "PARAMS.h"
                0020
                0021 C     !INPUT/OUTPUT PARAMETERS:
                0022 C     myThid    :: my Thread Id number
                0023       INTEGER myThid
                0024 CEOP
                0025
                0026 #ifdef ALLOW_DIAGNOSTICS
                0027 C     !FUNCTIONS:
                0028       CHARACTER*(16) DIAGS_MK_UNITS
                0029       EXTERNAL DIAGS_MK_UNITS
                0030
                0031 C     !LOCAL VARIABLES:
                0032 C     diagNum   :: diagnostics number in the (long) list of available diag.
                0033 C     diagMate  :: diag. mate number in the (long) list of available diag.
                0034 C     diagName  :: local short name (8c) of a diagnostics
                0035 C     diagCode  :: local parser field with characteristics of the diagnostics
                0036 C              cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
                0037 C     diagUnits :: local string (16c): physical units of a diagnostic field
                0038 C     diagTitle :: local string (80c): description of field in diagnostic
                0039       INTEGER       diagNum
                0040 c     INTEGER       diagMate
                0041       CHARACTER*8   diagName
                0042       CHARACTER*16  diagCode
                0043       CHARACTER*16  diagUnits
                0044       CHARACTER*(80) diagTitle
                0045       CHARACTER*2    rUnit2c
                0046
                0047       IF ( usingPCoords ) THEN
                0048         rUnit2c= 'Pa'
                0049       ELSE
                0050         rUnit2c= 'm '
                0051       ENDIF
                0052
                0053       diagName  = 'SSH     '
                0054       diagTitle = 'Dynamic Sea Surface Height Anomaly'
                0055       diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
                0056       diagCode  = 'SM      M1      '
                0057       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0058      I        diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0059
                0060       diagName  = 'SSHIBC  '
                0061       diagTitle =
                0062      I  'Inverted Barometer (IB) Correction to Sea Surface Height'
                0063       diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
                0064       diagCode  = 'SM      M1      '
                0065       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0066      I        diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0067
                0068       diagName  = 'SSHNOIBC'
                0069       diagTitle = 'Sea Surface Height Anomaly without IB '
                0070      I          //'Correction (=SSH+SSHIBC)'
                0071       diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
                0072       diagCode  = 'SM      M1      '
                0073       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0074      I        diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0075
                0076       diagName  = 'STERICHT'
                0077       diagTitle = 'Steric Sea Surface Height Anomaly (=SSH-OBP)'
                0078       diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid )
                0079       diagCode  = 'SM      M1      '
                0080       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0081      I        diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0082
                0083       diagName  = 'OBP     '
                0084       diagTitle = 'Ocean Bottom Pressure'
                0085       diagUnits = 'm               '
                0086       diagCode  = 'SM      M1      '
                0087       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0088      I        diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0089
                0090       diagName  = 'OBPGMAP '
                0091       diagTitle = 'Ocean Bottom Pressure '
                0092      I          //'Including Global Mean Atmospheric Pressure'
                0093       diagUnits = 'm               '
                0094       diagCode  = 'SM      M1      '
                0095       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0096      I        diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0097
                0098 #endif /* ALLOW_DIAGNOSTICS */
                0099
                0100       RETURN
                0101       END