1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
C |
C |
4 |
C /==========================================================\ |
|
5 |
C | MONITOR.h | |
CBOP |
6 |
C |==========================================================| |
C !ROUTINE: MONITOR.h |
7 |
C | Parameters for "monitor" setup. | |
|
8 |
C | Monitor routines ( prefixed MON_ ) provide a simple | |
C !INTERFACE: |
9 |
C | set of utilities for outputting useful runtime diagnostic| |
C #include "MONITOR.h" |
10 |
C | information. They use a standard format so that the | |
|
11 |
C | monitor output can be parsed offline to help in trouble | |
C !DESCRIPTION: |
12 |
C | shooting. | |
C Contains the state (parameters) for the ``monitor'' package. |
13 |
C | Monitor setup params should be set through appropriate | |
C |
14 |
C | MON_ routines to ensure that changes are made in a | |
C Monitor routines (prefixed MON\_) provide a simple set of |
15 |
C | thread-safe fashion. | |
C utilities for outputting useful runtime diagnostic |
16 |
C \==========================================================/ |
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 |
C-- Monitor head and tail strings |
25 |
CHARACTER*(*) mon_head |
CHARACTER*(*) mon_head |
38 |
PARAMETER ( mon_foot_volmean = '_volmean' ) |
PARAMETER ( mon_foot_volmean = '_volmean' ) |
39 |
CHARACTER*(*) mon_foot_del2 |
CHARACTER*(*) mon_foot_del2 |
40 |
PARAMETER ( mon_foot_del2 = '_del2' ) |
PARAMETER ( mon_foot_del2 = '_del2' ) |
41 |
|
CHARACTER*(*) mon_foot_vol |
42 |
|
PARAMETER ( mon_foot_vol = '_vol' ) |
43 |
CHARACTER*(*) mon_string_none |
CHARACTER*(*) mon_string_none |
44 |
PARAMETER ( mon_string_none = 'NONE') |
PARAMETER ( mon_string_none = 'NONE') |
45 |
|
|
54 |
C mon_pref - Prefix used for monitor output |
C mon_pref - Prefix used for monitor output |
55 |
COMMON /MON_C/ mon_pref |
COMMON /MON_C/ mon_pref |
56 |
CHARACTER*(MAX_LEN_MBUF) mon_pref |
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 |
|
COMMON /MON_F/ |
67 |
|
& mon_fname, mon_write_stdout, mon_write_mnc |
68 |
|
CHARACTER*(MAX_LEN_MBUF) mon_fname |
69 |
|
LOGICAL mon_write_stdout, mon_write_mnc |
70 |
|
|
71 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
72 |
|
|
73 |
|
CEH3 ;;; Local Variables: *** |
74 |
|
CEH3 ;;; mode:fortran *** |
75 |
|
CEH3 ;;; End: *** |