1 |
jahn |
1.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 |