frazil_diagnostics_init.F
c8d59fb69877master

frazil_diagnostics_init.F
View Options

			C $Header: /u/gcmpack/MITgcm/pkg/frazil/frazil_diagnostics_init.F,v 1.4 2013/05/08 18:01:40 jmc Exp $
			C $Name: $

			#include "FRAZIL_OPTIONS.h"

			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
			CBOP 0
			C !ROUTINE: FRAZIL_DIAGNOSTICS_INIT

			C !INTERFACE:
			SUBROUTINE FRAZIL_DIAGNOSTICS_INIT( myThid )

			C !DESCRIPTION:
			C Initialize list of all available diagnostics

			C !USES:
			IMPLICIT NONE

			C !INPUT/OUTPUT PARAMETERS:
			C myThid :: my Thread Id number
			INTEGER myThid
			CEOP

			#ifdef ALLOW_DIAGNOSTICS

			C !LOCAL VARIABLES:
			C diagNum :: diagnostics number in the (long) list of available diag.
			C diagMate :: diag. mate number in the (long) list of available diag.
			C diagName :: local short name (8c) of a diagnostics
			C diagCode :: local parser field with characteristics of the diagnostics
			C cf head of S/R DIAGNOSTICS_INIT_EARLY or DIAGNOSTICS_MAIN_INIT
			C diagUnits :: local string (16c): physical units of a diagnostic field
			C diagTitle :: local string (80c): description of field in diagnostic
			INTEGER diagNum
			c INTEGER diagMate
			CHARACTER*8 diagName
			CHARACTER*16 diagCode
			CHARACTER*16 diagUnits
			CHARACTER*(80) diagTitle

			diagName = 'FrzForcT'
			diagTitle = 'Frazil temperature forcing, > 0 increases theta'
			diagUnits = 'W/m^2 '
			diagCode = 'SM MR '
			CALL DIAGNOSTICS_ADDTOLIST( diagNum,
			I diagName, diagCode, diagUnits, diagTitle, 0, myThid )

			#endif /* ALLOW_DIAGNOSTICS */

			RETURN
			END