1 |
C $Header$ |
2 |
C $Name$ |
3 |
|
4 |
#include "GCHEM_OPTIONS.h" |
5 |
|
6 |
C !INTERFACE: ========================================================== |
7 |
SUBROUTINE DIC_DIAGNOSTICS_INIT(myThid ) |
8 |
|
9 |
C !DESCRIPTION: |
10 |
C define diagnostics for dic package |
11 |
C experiment |
12 |
|
13 |
C !USES: =============================================================== |
14 |
IMPLICIT NONE |
15 |
#include "SIZE.h" |
16 |
#include "EEPARAMS.h" |
17 |
|
18 |
C !INPUT PARAMETERS: =================================================== |
19 |
C myThid :: thread number |
20 |
INTEGER myThid |
21 |
CEOP |
22 |
|
23 |
#ifdef ALLOW_DIAGNOSTICS |
24 |
|
25 |
C !LOCAL VARIABLES: |
26 |
INTEGER diagNum |
27 |
CHARACTER*8 diagName |
28 |
CHARACTER*16 diagCode |
29 |
CHARACTER*16 diagUnits |
30 |
CHARACTER*(80) diagTitle |
31 |
|
32 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
33 |
C Define diagnostics Names : |
34 |
|
35 |
diagName = 'DICBIOA ' |
36 |
diagTitle = 'Biological Productivity (mol/m3/s)' |
37 |
diagUnits = 'mol/m3/sec ' |
38 |
diagCode = 'SMRP MR ' |
39 |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
40 |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
41 |
|
42 |
diagName = 'DICCARB ' |
43 |
diagTitle = 'Carbonate chg-biol prod and remin (mol eq/m3/s)' |
44 |
diagUnits = 'mol eq/m3/sec ' |
45 |
diagCode = 'SMRP MR ' |
46 |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
47 |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
48 |
|
49 |
diagName = 'DICTFLX ' |
50 |
diagTitle = 'Tendency of DIC due to air-sea exch (mol/m3/s)' |
51 |
diagUnits = 'mol/m3/sec ' |
52 |
diagCode = 'SM P L1 ' |
53 |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
54 |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
55 |
|
56 |
diagName = 'DICOFLX ' |
57 |
diagTitle = 'Tendency of O2 due to air-sea exch (mol/m3/s)' |
58 |
diagUnits = 'mol/m3/sec ' |
59 |
diagCode = 'SM P L1 ' |
60 |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
61 |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
62 |
|
63 |
diagName = 'DICCFLX ' |
64 |
diagTitle = 'Flux of CO2 - air-sea exch (mol/m2/s)' |
65 |
diagUnits = 'mol/m2/sec ' |
66 |
diagCode = 'SM P L1 ' |
67 |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
68 |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
69 |
|
70 |
diagName = 'DICPCO2 ' |
71 |
diagTitle = 'Partial Pressure of CO2 (atm)' |
72 |
diagUnits = 'atm ' |
73 |
diagCode = 'SM P M1 ' |
74 |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
75 |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
76 |
|
77 |
diagName = 'DICPHAV ' |
78 |
diagTitle = 'pH (dimensionless)' |
79 |
diagUnits = 'dimensionless ' |
80 |
diagCode = 'SM P M1 ' |
81 |
CALL DIAGNOSTICS_ADDTOLIST( diagNum, |
82 |
I diagName, diagCode, diagUnits, diagTitle, 0, myThid ) |
83 |
|
84 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
85 |
|
86 |
#endif /* ALLOW_DIAGNOSTICS */ |
87 |
|
88 |
RETURN |
89 |
END |