pkg/icefront/icefront_diagnostics_init.F

5da8ce63fa Dimi*0001 #include "ICEFRONT_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C !ROUTINE: ICEFRONT_DIAGNOSTICS_INIT
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE ICEFRONT_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 #include "ICEFRONT.h"
                0018
                0019 C     !INPUT/OUTPUT PARAMETERS:
                0020 C     myThid ::  my Thread Id number
                0021       INTEGER myThid
                0022 CEOP
                0023
                0024 #ifdef ALLOW_DIAGNOSTICS
                0025 C     !LOCAL VARIABLES:
                0026 C     === Local variables ===
                0027 C     diagNum   :: diagnostics number in the (long) list of available diag.
                0028 C     diagName  :: local short name (8c) of a diagnostics
                0029 C     diagCode  :: local parser field with characteristics of the diagnostics
                0030 C              cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
                0031 C     diagUnits :: local string (16c): physical units of a diagnostic field
                0032 C     diagTitle :: local string (80c): description of field in diagnostic
                0033       INTEGER       diagNum
                0034       CHARACTER*8   diagName
                0035       CHARACTER*16  diagCode
                0036       CHARACTER*16  diagUnits
                0037       CHARACTER*(80) diagTitle
                0038
                0039 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0040
55cb9d6db1 Dimi*0041       diagName  = 'ICFfwFlx'
aa7c0a8239 Dimi*0042       diagTitle = 'Ice front freshwater flux (+ve increases ocean salt)'
55cb9d6db1 Dimi*0043       diagUnits = 'kg/m^2/s        '
fc13465c2e Dimi*0044       diagCode  = 'SM      MR      '
55cb9d6db1 Dimi*0045       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0046      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0047
                0048       diagName  = 'ICFhtFlx'
aa7c0a8239 Dimi*0049       diagTitle = 'Ice front heat flux  (+ve cools ocean)'
55cb9d6db1 Dimi*0050       diagUnits = 'W/m^2           '
fc13465c2e Dimi*0051       diagCode  = 'SM      MR      '
55cb9d6db1 Dimi*0052       CALL DIAGNOSTICS_ADDTOLIST( diagNum,
                0053      I     diagName, diagCode, diagUnits, diagTitle, 0, myThid )
                0054
5da8ce63fa Dimi*0055 #endif /* ALLOW_DIAGNOSTICS */
                0056
                0057       RETURN
                0058       END