pkg/quota/quota_diagnostics_init.F

C $Header$
C $Name$

#include "CPP_OPTIONS.h"
#include "PTRACERS_OPTIONS.h"
#include "DARWIN_OPTIONS.h"

#ifdef ALLOW_PTRACERS
#ifdef ALLOW_QUOTA

CBOP
C     !ROUTINE: QUOTA_DIAGNOSTICS_INIT
C     !INTERFACE:
      SUBROUTINE QUOTA_DIAGNOSTICS_INIT( myThid )
C     !DESCRIPTION:
C     Routine to initialize Darwin diagnostics

C     !USES:
      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "PTRACERS_SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GCHEM.h"
#include "QUOTA_SIZE.h"

C     !INPUT/OUTPUT PARAMETERS:
C     === Routine arguments ===
C     myThid -  Number of this instance of QUOTA_DIAGNOSTICS_INIT
      INTEGER myThid
CEOP

#ifdef ALLOW_DIAGNOSTICS
C     !LOCAL VARIABLES:
C     === Local variables ===
C     msgBuf      - Informational/error meesage buffer
c     CHARACTER*(MAX_LEN_MBUF) msgBuf

      INTEGER       diagNum
      CHARACTER*8   diagName
      CHARACTER*16  diagCode
      CHARACTER*16  diagUnits
      CHARACTER*(80) diagTitle

      INTEGER      np

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

C--   Add diagnostics to the (long) list

      diagName = 'PP      '
      WRITE(diagTitle, '(A)') 'Primary Production'
      diagUnits = 'mmol P/m^3/s    '
      diagCode  = 'SM P    MR      '
      CALL DIAGNOSTICS_ADDTOLIST( diagNum,
     I             diagName, diagCode, diagUnits, diagTitle, 0, myThid )

#endif /* ALLOW_DIAGNOSTICS */

      RETURN
      END
C============================================================================
#endif
#endif
1	jahn	1.1	C $Header$
2			C $Name$
3
4			#include "CPP_OPTIONS.h"
5			#include "PTRACERS_OPTIONS.h"
6			#include "DARWIN_OPTIONS.h"
7
8			#ifdef ALLOW_PTRACERS
9			#ifdef ALLOW_QUOTA
10
11			CBOP
12			C !ROUTINE: QUOTA_DIAGNOSTICS_INIT
13			C !INTERFACE:
14			SUBROUTINE QUOTA_DIAGNOSTICS_INIT( myThid )
15			C !DESCRIPTION:
16			C Routine to initialize Darwin diagnostics
17
18			C !USES:
19			IMPLICIT NONE
20			C === Global variables ===
21			#include "SIZE.h"
22			#include "PTRACERS_SIZE.h"
23			#include "EEPARAMS.h"
24			#include "PARAMS.h"
25			#include "GCHEM.h"
26			#include "QUOTA_SIZE.h"
27
28			C !INPUT/OUTPUT PARAMETERS:
29			C === Routine arguments ===
30			C myThid - Number of this instance of QUOTA_DIAGNOSTICS_INIT
31			INTEGER myThid
32			CEOP
33
34			#ifdef ALLOW_DIAGNOSTICS
35			C !LOCAL VARIABLES:
36			C === Local variables ===
37			C msgBuf - Informational/error meesage buffer
38			c CHARACTER*(MAX_LEN_MBUF) msgBuf
39
40			INTEGER diagNum
41			CHARACTER*8 diagName
42			CHARACTER*16 diagCode
43			CHARACTER*16 diagUnits
44			CHARACTER*(80) diagTitle
45
46			INTEGER np
47
48			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
49
50			C-- Add diagnostics to the (long) list
51
52			diagName = 'PP '
53			WRITE(diagTitle, '(A)') 'Primary Production'
54			diagUnits = 'mmol P/m^3/s '
55			diagCode = 'SM P MR '
56			CALL DIAGNOSTICS_ADDTOLIST( diagNum,
57			I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
58
59			#endif /* ALLOW_DIAGNOSTICS */
60
61			RETURN
62			END
63			C============================================================================
64			#endif
65			#endif