pkg/down_slope/dwnslp_diagnostics_init.F

b6bbe8cccf Jean*0001 #include "DWNSLP_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C !ROUTINE: DWNSLP_DIAGNOSTICS_INIT
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE DWNSLP_DIAGNOSTICS_INIT( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Initialize list of all available diagnostics
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "EEPARAMS.h"
                0016 #include "SIZE.h"
                0017 c#include "DWNSLP_PARAMS.h"
                0018 #ifdef ALLOW_GENERIC_ADVDIFF
                0019 # include "GAD.h"
                0020 #endif
                0021
                0022 C     !INPUT/OUTPUT PARAMETERS:
                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     diagMate  :: diag. mate number in the (long) list of available diag.
                0032 C     diagName  :: local short name (8c) of a diagnostics
                0033 C     diagCode  :: local parser field with characteristics of the diagnostics
                0034 C              cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
                0035 C     diagUnits :: local string (16c): physical units of a diagnostic field
                0036 C     diagTitle :: local string (80c): description of field in diagnostic
                0037       INTEGER       diagNum
                0038       INTEGER       diagMate
                0039       CHARACTER*4   diagSufx
                0040       CHARACTER*8   diagName
                0041       CHARACTER*16  diagCode
                0042       CHARACTER*16  diagUnits
                0043       CHARACTER*(80) diagTitle
                0044       INTEGER  DIAGS_GET_PARMS_I
                0045       EXTERNAL DIAGS_GET_PARMS_I
                0046 #ifdef ALLOW_GENERIC_ADVDIFF
                0047       CHARACTER*4 GAD_DIAG_SUFX
                0048       EXTERNAL    GAD_DIAG_SUFX
                0049 #endif
                0050
                0051 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0052
                0053 c     IF ( useDiagnotics ) THEN
                0054
                0055         diagNum   = DIAGS_GET_PARMS_I( 'LAST_DIAG_ID', myThid )
                0056
                0057 c       diagName  = 'RHOAnExt'
                0058 c       diagTitle = 'Density Anomaly (=Rho-rhoConst) + extended inland'
                0059 c       diagUnits = 'kg/m^3          '
8f44a00bee Jean*0060 c       diagCode  = 'SMR     MR      '
b6bbe8cccf Jean*0061 c       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0062 c    I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0063
                0064         diagName  = 'DSLPuFlw'
                0065         diagTitle = 'Zonal  Down-Sloping Transport (u-component)'
                0066         diagUnits = 'm^3/s           '
                0067         diagCode  = 'UU      M1      '
                0068         diagMate  = diagNum + 2
                0069         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0070      I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
                0071
                0072         diagName  = 'DSLPvFlw'
                0073         diagTitle = 'Merid. Down-Sloping Transport (v-component)'
                0074         diagUnits = 'm^3/s           '
                0075         diagCode  = 'VV      M1      '
                0076         diagMate  = diagNum
                0077         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0078      I   diagName, diagCode, diagUnits, diagTitle, diagMate, myThid )
                0079
                0080         diagSufx  = 'aaaa'
                0081 #ifdef ALLOW_GENERIC_ADVDIFF
                0082         diagSufx  = GAD_DIAG_SUFX( GAD_TEMPERATURE, myThid )
                0083 #endif
                0084         diagName  = 'DSLP'//diagSufx
ba0b047096 Mart*0085         diagTitle = 'Pot.Temp. tendency from Down-Slope package'
b6bbe8cccf Jean*0086         diagUnits = 'K/s             '
8f44a00bee Jean*0087         diagCode  = 'SMR     MR      '
b6bbe8cccf Jean*0088         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0089      I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0090
                0091 #ifdef ALLOW_GENERIC_ADVDIFF
                0092         diagSufx  = GAD_DIAG_SUFX( GAD_SALINITY, myThid )
                0093 #endif
                0094         diagName  = 'DSLP'//diagSufx
ba0b047096 Mart*0095         diagTitle = 'Salinity  tendency from Down-Slope package'
                0096         diagUnits = 'g/kg/s          '
8f44a00bee Jean*0097         diagCode  = 'SMR     MR      '
b6bbe8cccf Jean*0098         CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0099      I          diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0100
                0101 c     ENDIF
                0102
                0103 #endif /* ALLOW_DIAGNOSTICS */
                0104
                0105       RETURN
                0106       END