/[MITgcm]/MITgcm_contrib/bling/pkg/bling_diagnostics_init.F
ViewVC logotype

Diff of /MITgcm_contrib/bling/pkg/bling_diagnostics_init.F

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

revision 1.1 by mmazloff, Fri May 23 17:33:42 2014 UTC revision 1.2 by mmazloff, Sun Feb 28 21:49:24 2016 UTC
# Line 32  C     !LOCAL VARIABLES: Line 32  C     !LOCAL VARIABLES:
32    
33  C     Define diagnostics Names :  C     Define diagnostics Names :
34    
35        diagName  = 'BLGBIOA '        diagName  = 'BLGPH3D '
36        diagTitle = 'Tendency of carbon due to bio prod (mol C/m3/s)'        diagTitle = 'pH'
37        diagUnits = 'mol C/m3/sec    '        diagUnits = 'dimensionless   '
38        diagCode  = 'SMRP    MR      '        diagCode  = 'SM P    MR      '
39        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
40       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
41    
42        diagName  = 'BLGREMI '        diagName  = 'BLGOMAR '
43        diagTitle = 'Tendency of carbon due to bio remin (mol C/m3/s)'        diagTitle = 'Aragonite saturation'
44        diagUnits = 'mol C/m3/sec    '        diagUnits = 'dimensionless   '
45        diagCode  = 'SMRP    MR      '        diagCode  = 'SM P    MR      '
46          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
47         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
48    
49          diagName  = 'BLGPCO2 '
50          diagTitle = 'Surface ocean partial pressure of CO2'
51          diagUnits = 'atm             '
52          diagCode  = 'SM P    M1      '
53          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
54         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
55    
56          diagName  = 'BLGCFLX '
57          diagTitle = 'Flux of CO2 - air-sea exch (mol/m2/s)'
58          diagUnits = 'mol/m2/sec      '
59          diagCode  = 'SM P    L1      '
60        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
61       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
62    
63        diagName  = 'BLGCARB '        diagName  = 'BLGTFLX '
64        diagTitle = 'Carbonate tendency due to biology (mol C/m3/s)'        diagTitle = 'Tendency of DIC due to air-sea exch (mol/m3/s)'
65        diagUnits = 'mol C/m3/sec    '        diagUnits = 'mol C/m3/sec    '
66        diagCode  = 'SMRP    MR      '        diagCode  = 'SM P    L1      '
67          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
68         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
69    
70          diagName  = 'BLGOFLX '
71          diagTitle = 'Tendency of O2 due to air-sea exch (mol/m3/s)'
72          diagUnits = 'mol O2/m3/sec   '
73          diagCode  = 'SM P    L1      '
74        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
75       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
76    
77        diagName  = 'BLGPSM  '        diagName  = 'BLGPSM  '
78        diagTitle = 'Small phytoplankton biomass (mol C/m3/s)'        diagTitle = 'Small phytoplankton biomass (mol C/m3/s)'
79        diagUnits = 'mol C/m3        '        diagUnits = 'mol C/m3        '
80        diagCode  = 'SMRP    MR      '        diagCode  = 'SM P    MR      '
81        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
82       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
83    
84        diagName  = 'BLGPLG  '        diagName  = 'BLGPLG  '
85        diagTitle = 'Large phytoplankton biomass (mol C/m3/s)'        diagTitle = 'Large phytoplankton biomass (mol C/m3/s)'
86        diagUnits = 'mol C/m3        '        diagUnits = 'mol C/m3        '
87        diagCode  = 'SMRP    MR      '        diagCode  = 'SM P    MR      '
88          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
89         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
90    
91          diagName  = 'BLGPDIA '
92          diagTitle = 'Diazotroph phytoplankton biomass (mol C/m3/s)'
93          diagUnits = 'mol C/m3        '
94          diagCode  = 'SM P    MR      '
95        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
96       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
97    
98        diagName  = 'BLGCHL  '        diagName  = 'BLGCHL  '
99        diagTitle = 'Chlorophyll concentration'        diagTitle = 'Chlorophyll concentration'
100        diagUnits = 'mol chl/m3      '        diagUnits = 'mol chl/m3      '
101        diagCode  = 'SMRP    MR      '        diagCode  = 'SM P    MR      '
102        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
103       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
104    
105        diagName  = 'BLGTFLX '        diagName  = 'BLGPOCF '
106        diagTitle = 'Tendency of DIC due to air-sea exch (mol/m3/s)'        diagTitle = 'Particulate Organic Carbon Flux'
107        diagUnits = 'mol C/m3/sec    '        diagUnits = 'mol C/m3/s      '
108        diagCode  = 'SM P    L1      '        diagCode  = 'SM P    MR      '
109        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
110       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
111    
112        diagName  = 'BLGOFLX '        diagName  = 'BLGNPP  '
113        diagTitle = 'Tendency of O2 due to air-sea exch (mol/m3/s)'        diagTitle = 'Net Primary Production'
114        diagUnits = 'mol O2/m3/sec   '        diagUnits = 'mol C/m3/s      '
115        diagCode  = 'SM P    L1      '        diagCode  = 'SM P    MR      '
116        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
117       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
118    
119        diagName  = 'BLGCFLX '        diagName  = 'BLGNCP  '
120        diagTitle = 'Flux of CO2 - air-sea exch (mol/m2/s)'        diagTitle = 'Net Community Production'
121        diagUnits = 'mol/m2/sec      '        diagUnits = 'mol C/m3/s      '
122        diagCode  = 'SM P    L1      '        diagCode  = 'SM P    MR      '
123        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
124       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
125    
126        diagName  = 'BLGPCO2 '        diagName  = 'BLGFESPM'
127        diagTitle = 'Surface ocean partial pressure of CO2'        diagTitle = 'Iron sinking particle flux'
128        diagUnits = 'atm             '        diagUnits = 'mol Fe/m3/s      '
129          diagCode  = 'SM P    MR      '
130          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
131         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
132    
133          diagName  = 'BLGFEREC'
134          diagTitle = 'Iron recycling'
135          diagUnits = 'mol Fe/m3/s      '
136          diagCode  = 'SM P    MR      '
137          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
138         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
139    
140          diagName  = 'BLGFERD '
141          diagTitle = 'Iron remin from Diel Vertical Migration'
142          diagUnits = 'mol Fe/m3/s      '
143          diagCode  = 'SM P    MR      '
144          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
145         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
146    
147          diagName  = 'BLGFEADI'
148          diagTitle = 'Iron inorganic adsorption'
149          diagUnits = 'mol Fe/m3/s      '
150          diagCode  = 'SM P    MR      '
151          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
152         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
153    
154          diagName  = 'BLGFEADO'
155          diagTitle = 'Iron organic adsorption'
156          diagUnits = 'mol Fe/m3/s      '
157          diagCode  = 'SM P    MR      '
158          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
159         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
160    
161          diagName  = 'BLGFEREM'
162          diagTitle = 'Iron remin of sinking organic matter'
163          diagUnits = 'mol Fe/m3/s      '
164          diagCode  = 'SM P    MR      '
165          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
166         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
167    
168          diagName  = 'BLGFESED'
169          diagTitle = 'Iron sediment source'
170          diagUnits = 'mol Fe/m3/s      '
171          diagCode  = 'SM P    MR      '
172          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
173         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
174    
175          diagName  = 'BLGFEBUR'
176          diagTitle = 'Iron burial into sediment'
177          diagUnits = 'mol Fe/m3/s      '
178        diagCode  = 'SM P    M1      '        diagCode  = 'SM P    M1      '
179        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
180       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
181    
182        diagName  = 'BLGPH3D '        diagName  = 'BLGFEUP '
183        diagTitle = 'pH'        diagTitle = 'Iron uptake by bio'
184        diagUnits = 'dimensionless   '        diagUnits = 'mol Fe/m3/s      '
185        diagCode  = 'SMRP    MR      '        diagCode  = 'SM P    MR      '
186        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
187       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
188    
189        diagName  = 'BLGOMAR '        diagName  = 'BLGNDENB'
190        diagTitle = 'Aragonite saturation'        diagTitle = 'Benthic denitrification'
191        diagUnits = 'dimensionless   '        diagUnits = 'mol N/m3/s      '
192          diagCode  = 'SM P    MR      '
193          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
194         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
195    
196          diagName  = 'BLGNDENP'
197          diagTitle = 'Pelagic denitrification'
198          diagUnits = 'mol N/m3/s      '
199          diagCode  = 'SM P    MR      '
200          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
201         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
202    
203          diagName  = 'BLGNDVM '
204          diagTitle = 'Nitrogen remin by Diel Vertical Migration'
205          diagUnits = 'mol N/m3/s      '
206          diagCode  = 'SM P    MR      '
207          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
208         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
209    
210          diagName  = 'BLGNFIX '
211          diagTitle = 'Nitrogen fixation'
212          diagUnits = 'mol N/m3/s      '
213          diagCode  = 'SM P    MR      '
214          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
215         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
216    
217          diagName  = 'BLGDONP '
218          diagTitle = 'Dissolved Organic Nitrogen Production'
219          diagUnits = 'mol N/m3/s      '
220          diagCode  = 'SM P    MR      '
221          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
222         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
223    
224          diagName  = 'BLGNSPM '
225          diagTitle = 'Nitrogen sinking particle flux'
226          diagUnits = 'mol N/m3/s      '
227          diagCode  = 'SM P    MR      '
228          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
229         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
230    
231          diagName  = 'BLGNREC '
232          diagTitle = 'Nitrogen recycling'
233          diagUnits = 'mol N/m3/s      '
234          diagCode  = 'SM P    MR      '
235          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
236         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
237    
238          diagName  = 'BLGNRD  '
239          diagTitle = 'Nitrogen remin by DVM'
240          diagUnits = 'mol N/m3/s      '
241          diagCode  = 'SM P    MR      '
242          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
243         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
244    
245          diagName  = 'BLGNREM '
246          diagTitle = 'Nitrogen remin of sinking org matter'
247          diagUnits = 'mol N/m3/s      '
248          diagCode  = 'SM P    MR      '
249          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
250         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
251    
252          diagName  = 'BLGNUP  '
253          diagTitle = 'Nitrogen uptake by bio'
254          diagUnits = 'mol N/m3/s      '
255          diagCode  = 'SM P    MR      '
256          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
257         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
258    
259          diagName  = 'BLGPDVM '
260          diagTitle = 'Phosphorus remin by Diel Vertical Migration'
261          diagUnits = 'mol P/m3/s      '
262          diagCode  = 'SM P    MR      '
263          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
264         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
265    
266          diagName  = 'BLGDOPP '
267          diagTitle = 'Dissolved Organic Phosphorus Production'
268          diagUnits = 'mol P/m3/s      '
269          diagCode  = 'SM P    MR      '
270          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
271         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
272    
273          diagName  = 'BLGPSPM '
274          diagTitle = 'Phosphorus sinking particle flux'
275          diagUnits = 'mol P/m3/s      '
276          diagCode  = 'SM P    MR      '
277          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
278         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
279    
280          diagName  = 'BLGPREC '
281          diagTitle = 'Phosphorus recycling'
282          diagUnits = 'mol P/m3/s      '
283          diagCode  = 'SM P    MR      '
284          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
285         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
286    
287          diagName  = 'BLGPRD  '
288          diagTitle = 'Phosphorus remin by DVM'
289          diagUnits = 'mol P/m3/s      '
290          diagCode  = 'SM P    MR      '
291          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
292         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
293    
294          diagName  = 'BLGPREM '
295          diagTitle = 'Phosphorus remin of sinking org matter'
296          diagUnits = 'mol P/m3/s      '
297          diagCode  = 'SM P    MR      '
298          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
299         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
300    
301          diagName  = 'BLGPUP  '
302          diagTitle = 'Phosphorus uptake by bio'
303          diagUnits = 'mol P/m3/s      '
304          diagCode  = 'SM P    MR      '
305          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
306         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
307    
308          diagName  = 'BLGPCM  '
309          diagTitle = 'xxx'
310          diagUnits = '1/s      '
311          diagCode  = 'SM P    MR      '
312          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
313         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
314    
315          diagName  = 'BLGMU   '
316          diagTitle = 'Phytoplankton growth rate'
317          diagUnits = '1/s      '
318          diagCode  = 'SM P    MR      '
319          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
320         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
321    
322          diagName  = 'BLGMUDIA'
323          diagTitle = 'Diazotroph growth rate'
324          diagUnits = '1/s      '
325          diagCode  = 'SM P    MR      '
326          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
327         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
328    
329    
330    
331          diagName  = 'BLGQSW  '
332          diagTitle = 'Effective irradiance'
333          diagUnits = '?      '
334          diagCode  = 'SM P    MR      '
335          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
336         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
337    
338          diagName  = 'BLGIRRIS'
339          diagTitle = 'Effective irradiance'
340          diagUnits = '?      '
341          diagCode  = 'SM P    MR      '
342          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
343         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
344    
345          diagName  = 'BLGIEFF '
346          diagTitle = 'Effective irradiance'
347          diagUnits = '?      '
348          diagCode  = 'SM P    MR      '
349          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
350         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
351    
352          diagName  = 'BLGIMEM '
353          diagTitle = 'Irradiance memory'
354          diagUnits = '?      '
355          diagCode  = 'SM P    MR      '
356          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
357         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
358    
359          diagName  = 'BLGIRRK '
360          diagTitle = 'xxx'
361          diagUnits = '?      '
362          diagCode  = 'SM P    MR      '
363          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
364         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
365    
366          diagName  = 'BLGNLIM '
367          diagTitle = 'N limitation'
368          diagUnits = '?      '
369          diagCode  = 'SM P    MR      '
370          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
371         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
372    
373          diagName  = 'BLGFELIM'
374          diagTitle = 'Fe limitation'
375          diagUnits = '?      '
376          diagCode  = 'SM P    MR      '
377          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
378         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
379    
380    
381    
382    
383          diagName  = 'BLGNSED '
384          diagTitle = 'Nitrogen flux in/out of sediments'
385          diagUnits = 'mol N/m3/s      '
386          diagCode  = 'SM P    M1      '
387          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
388         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
389    
390          diagName  = 'BLGPSED '
391          diagTitle = 'Phosphorus flux in/out of sediments'
392          diagUnits = 'mol P/m3/s      '
393          diagCode  = 'SM P    M1      '
394          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
395         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
396    
397          diagName  = 'BLGOSED '
398          diagTitle = 'Oxygen flux in/out of sediments'
399          diagUnits = 'mol O/m3/s      '
400          diagCode  = 'SM P    M1      '
401          CALL DIAGNOSTICS_ADDTOLIST( diagNum,
402         I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
403    
404          diagName  = 'BLGBIOA '
405          diagTitle = 'Tendency of carbon due to bio prod (mol C/m3/s)'
406          diagUnits = 'mol C/m3/sec    '
407        diagCode  = 'SMRP    MR      '        diagCode  = 'SMRP    MR      '
408        CALL DIAGNOSTICS_ADDTOLIST( diagNum,        CALL DIAGNOSTICS_ADDTOLIST( diagNum,
409       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )       I       diagName, diagCode, diagUnits, diagTitle, 0, myThid )
410    
411    
412  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
413    
414        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22