pkg/pp81/pp81_diagnostics_init.F

a006ac8558 Mart*0001 #include "PP81_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: PP81_DIAGNOSTICS_INIT
                0005 C     !INTERFACE:
                0006       SUBROUTINE PP81_DIAGNOSTICS_INIT( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE PP81_DIAGNOSTICS_INIT
                0011 C     | o Routine to initialize list of all available diagnostics
                0012 C     |   for PP81 package
                0013 C     *==========================================================*
                0014 C     \ev
                0015 C     !USES:
                0016       IMPLICIT NONE
                0017
                0018 C     === Global variables ===
                0019
                0020 C     !INPUT/OUTPUT PARAMETERS:
                0021 C     === Routine arguments ===
                0022 C     myThid ::  my Thread Id number
                0023       INTEGER myThid
                0024 CEOP
                0025
                0026 #ifdef ALLOW_DIAGNOSTICS
                0027 C     !LOCAL VARIABLES :
                0028 C     === Local variables ===
                0029 C     diagNum   :: diagnostics number in the (long) list of available diag.
                0030 C     diagName  :: local short name (8c) of a diagnostics
                0031 C     diagCode  :: local parser field with characteristics of the diagnostics
                0032 C              cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
                0033 C     diagUnits :: local string (16c): physical units of a diagnostic field
                0034 C     diagTitle :: local string (80c): description of field in diagnostic
                0035       INTEGER       diagNum
                0036       CHARACTER*8   diagName
                0037       CHARACTER*16  diagCode
                0038       CHARACTER*16  diagUnits
                0039       CHARACTER*(80) diagTitle
                0040
                0041 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0042
                0043         diagName  = 'PPviscAr'
                0044         diagTitle = 'PP81 vertical eddy viscosity coefficient'
                0045         diagUnits = 'm^2/s           '
                0046         diagCode  = 'SM P    LR      '
                0047         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0048      I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0049
                0050         diagName  = 'PPdiffKr'
                0051         diagTitle = 'PP81 Vertical diffusion coefficient for tracers'
                0052         diagUnits = 'm^2/s           '
                0053         diagCode  = 'SM P    LR      '
                0054         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0055      I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0056
                0057 #endif /* ALLOW_DIAGNOSTICS */
                0058
                0059       RETURN
                0060       END