/[MITgcm]/MITgcm/pkg/gchem/gchem_diagnostics_init.F
ViewVC logotype

Contents of /MITgcm/pkg/gchem/gchem_diagnostics_init.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.1 - (show annotations) (download)
Sat Dec 18 23:56:03 2004 UTC (19 years, 5 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint57t_post, checkpoint57o_post, checkpoint58e_post, checkpoint57v_post, checkpoint58u_post, checkpoint58w_post, checkpoint57m_post, checkpoint57s_post, checkpoint57k_post, checkpoint57d_post, checkpoint57g_post, checkpoint57b_post, checkpoint57c_pre, checkpoint58r_post, checkpoint57i_post, checkpoint57y_post, checkpoint57e_post, checkpoint58n_post, checkpoint58x_post, checkpoint57g_pre, checkpoint58t_post, checkpoint58h_post, checkpoint57y_pre, checkpoint57f_pre, checkpoint58q_post, checkpoint58j_post, checkpoint59e, checkpoint59d, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint57r_post, checkpoint59, checkpoint58, eckpoint57e_pre, checkpoint57h_done, checkpoint58f_post, checkpoint57x_post, checkpoint57n_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint57f_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58g_post, checkpoint58o_post, checkpoint57z_post, checkpoint57c_post, checkpoint58y_post, checkpoint58k_post, checkpoint58v_post, checkpoint58s_post, checkpoint58p_post, checkpoint57j_post, checkpoint58b_post, checkpoint57h_pre, checkpoint58m_post, checkpoint57l_post, checkpoint57h_post 
move out off EQUIVALENCE all diagnostics that fizhi does not use
1 C$Header: /u/gcmpack/MITgcm/pkg/gchem/gchem_init_fixed.F,v 1.4 2004/11/19 21:28:47 mlosch Exp $
2 C$Name: $
3
4 #include "GCHEM_OPTIONS.h"
5
6 C !INTERFACE: ==========================================================
7 SUBROUTINE GCHEM_DIAGNOSTICS_INIT(myThid )
8
9 C !DESCRIPTION:
10 C define diagnostics for gchem 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_GCHEM
24 #ifdef ALLOW_DIAGNOSTICS
25
26 C !LOCAL VARIABLES:
27 INTEGER diagNum
28 CHARACTER*8 diagName
29 CHARACTER*16 diagCode
30 CHARACTER*16 diagUnits
31 CHARACTER*(80) diagTitle
32
33 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
34 C Define diagnostics Names :
35
36 diagName = 'DICBIOA '
37 diagTitle = 'Biological Productivity (mol/m3/s)'
38 diagUnits = 'mol/m3/sec '
39 diagCode = 'SM P MR '
40 CALL DIAGNOSTICS_ADD2LIST( diagNum,
41 I diagName, diagCode, diagUnits, diagTitle, myThid )
42
43 diagName = 'DICCARB '
44 diagTitle = 'Carbonate chg-biol prod and remin (mol eq/m3/s)'
45 diagUnits = 'mol eq/m3/sec '
46 diagCode = 'SM P MR '
47 CALL DIAGNOSTICS_ADD2LIST( diagNum,
48 I diagName, diagCode, diagUnits, diagTitle, myThid )
49
50 diagName = 'DICTFLX '
51 diagTitle = 'Tendency of DIC due to air-sea exch (mol/m3/s)'
52 diagUnits = 'mol/m3/sec '
53 diagCode = 'SM P L1 '
54 CALL DIAGNOSTICS_ADD2LIST( diagNum,
55 I diagName, diagCode, diagUnits, diagTitle, myThid )
56
57 diagName = 'DICOFLX '
58 diagTitle = 'Tendency of O2 due to air-sea exch (mol/m3/s)'
59 diagUnits = 'mol/m3/sec '
60 diagCode = 'SM P L1 '
61 CALL DIAGNOSTICS_ADD2LIST( diagNum,
62 I diagName, diagCode, diagUnits, diagTitle, myThid )
63
64 diagName = 'DICCFLX '
65 diagTitle = 'Flux of CO2 - air-sea exch (mol/m2/s)'
66 diagUnits = 'mol/m2/sec '
67 diagCode = 'SM P L1 '
68 CALL DIAGNOSTICS_ADD2LIST( diagNum,
69 I diagName, diagCode, diagUnits, diagTitle, myThid )
70
71 diagName = 'DICPCO2 '
72 diagTitle = 'Partial Pressure of CO2 (atm)'
73 diagUnits = 'atm '
74 diagCode = 'SM P M1 '
75 CALL DIAGNOSTICS_ADD2LIST( diagNum,
76 I diagName, diagCode, diagUnits, diagTitle, myThid )
77
78 diagName = 'DICPHAV '
79 diagTitle = 'pH (dimensionless)'
80 diagUnits = 'dimensionless '
81 diagCode = 'SM P M1 '
82 CALL DIAGNOSTICS_ADD2LIST( diagNum,
83 I diagName, diagCode, diagUnits, diagTitle, myThid )
84
85 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
86
87 #endif /* ALLOW_DIAGNOSTICS */
88 #endif /* ALLOW_GCHEM */
89
90 RETURN
91 END
  ViewVC Help
Powered by ViewVC 1.1.22