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	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