pkg/my82/my82_diagnostics_init.F

60c545bbe1 Mart*0001 #include "MY82_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: MY82_DIAGNOSTICS_INIT
                0005 C     !INTERFACE:
                0006       SUBROUTINE MY82_DIAGNOSTICS_INIT( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE MY82_DIAGNOSTICS_INIT
                0011 C     | o Routine to initialize list of all available diagnostics
                0012 C     |   for MY82 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
69b5777c01 Mart*0044         diagName  = 'MYVISCAR'
60c545bbe1 Mart*0045         diagTitle = 'MY vertical eddy viscosity coefficient'
                0046         diagUnits = 'm^2/s           '
8e7e785cad Jean*0047         diagCode  = 'SM P    LR      '
                0048         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0049      I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
60c545bbe1 Mart*0050
69b5777c01 Mart*0051         diagName  = 'MYDIFFKR'
60c545bbe1 Mart*0052         diagTitle = 'Vertical diffusion coefficient for salt & tracers'
                0053         diagUnits = 'm^2/s           '
8e7e785cad Jean*0054         diagCode  = 'SM P    LR      '
                0055         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0056      I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
60c545bbe1 Mart*0057
69b5777c01 Mart*0058         diagName  = 'MYHBL   '
60c545bbe1 Mart*0059         diagTitle = 'MY82 boundary layer depth'
                0060         diagUnits = 'm               '
                0061         diagCode  = 'SM P     1      '
8e7e785cad Jean*0062         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0063      I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
60c545bbe1 Mart*0064
                0065
                0066 #endif /* ALLOW_DIAGNOSTICS */
                0067
                0068       RETURN
                0069       END