1 |
C $Header: /u/gcmpack/MITgcm/pkg/monitor/MONITOR.h,v 1.5 2004/04/03 04:57:11 edhill Exp $ |
2 |
C $Name: $ |
3 |
C |
4 |
|
5 |
CBOP |
6 |
C !ROUTINE: MONITOR.h |
7 |
|
8 |
C !INTERFACE: |
9 |
C #include "MONITOR.h" |
10 |
|
11 |
C !DESCRIPTION: |
12 |
C Contains the state (parameters) for the ``monitor'' package. |
13 |
C |
14 |
C Monitor routines (prefixed MON\_) provide a simple set of |
15 |
C utilities for outputting useful runtime diagnostic |
16 |
C information. They use a standard format so that the monitor output |
17 |
C can be parsed offline to help in trouble shooting. |
18 |
C |
19 |
C Monitor setup params should be set through appropriate MON\_ |
20 |
C routines to ensure that changes are made in a thread-safe fashion. |
21 |
|
22 |
CEOP |
23 |
|
24 |
C-- Monitor head and tail strings |
25 |
CHARACTER*(*) mon_head |
26 |
PARAMETER ( mon_head = '%MON' ) |
27 |
CHARACTER*(*) mon_foot_min |
28 |
PARAMETER ( mon_foot_min = '_min' ) |
29 |
CHARACTER*(*) mon_foot_max |
30 |
PARAMETER ( mon_foot_max = '_max' ) |
31 |
CHARACTER*(*) mon_foot_sd |
32 |
PARAMETER ( mon_foot_sd = '_sd' ) |
33 |
CHARACTER*(*) mon_foot_mean |
34 |
PARAMETER ( mon_foot_mean = '_mean' ) |
35 |
CHARACTER*(*) mon_foot_volint |
36 |
PARAMETER ( mon_foot_volint = '_volint' ) |
37 |
CHARACTER*(*) mon_foot_volmean |
38 |
PARAMETER ( mon_foot_volmean = '_volmean' ) |
39 |
CHARACTER*(*) mon_foot_del2 |
40 |
PARAMETER ( mon_foot_del2 = '_del2' ) |
41 |
CHARACTER*(*) mon_foot_vol |
42 |
PARAMETER ( mon_foot_vol = '_vol' ) |
43 |
CHARACTER*(*) mon_string_none |
44 |
PARAMETER ( mon_string_none = 'NONE') |
45 |
|
46 |
C-- COMMON /MON_I/ Monitor integer variables |
47 |
C mon_ioUnit - Used to specify the output unit for monitor IO. |
48 |
C mon_prefL - Prefix length of current mon_ prefix |
49 |
COMMON /MON_I/ mon_ioUnit, mon_prefL |
50 |
INTEGER mon_ioUnit |
51 |
INTEGER mon_prefL |
52 |
|
53 |
C-- COMMON /MON_C/ Monitor character variables |
54 |
C mon_pref - Prefix used for monitor output |
55 |
COMMON /MON_C/ mon_pref |
56 |
CHARACTER*(MAX_LEN_MBUF) mon_pref |
57 |
|
58 |
C-- COMMON /MON_L/ Monitor logical variables |
59 |
C mon_overrideStop - Allow code to continue even if model state is |
60 |
C heading out of bounds |
61 |
COMMON /MON_L/ mon_overrideStop |
62 |
LOGICAL mon_overrideStop |
63 |
|
64 |
C File names and time steps |
65 |
C mon_fname :: monitor file group name |
66 |
C mon_last_iter :: iteration for the last MNC write |
67 |
COMMON /MON_F/ |
68 |
& mon_fname, mon_do_fwrite |
69 |
CHARACTER*(MAX_LEN_MBUF) mon_fname |
70 |
LOGICAL mon_do_fwrite |
71 |
|
72 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
73 |
|
74 |
CEH3 ;;; Local Variables: *** |
75 |
CEH3 ;;; mode:fortran *** |
76 |
CEH3 ;;; End: *** |