-
Notifications
You must be signed in to change notification settings - Fork 237
/
MONITOR.h
86 lines (74 loc) · 3.02 KB
/
MONITOR.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
C
CBOP
C !ROUTINE: MONITOR.h
C !INTERFACE:
C #include "MONITOR.h"
C !DESCRIPTION:
C Contains the state (parameters) for the "monitor" package.
C
C Monitor routines (prefixed MON\_) provide a simple set of
C utilities for outputting useful runtime diagnostic
C information. They use a standard format so that the monitor output
C can be parsed offline to help in trouble shooting.
C
C Monitor setup params should be set through appropriate MON\_
C routines to ensure that changes are made in a thread-safe fashion.
CEOP
C-- Monitor head and tail strings
CHARACTER*(*) mon_head
PARAMETER ( mon_head = '%MON' )
CHARACTER*(*) mon_foot_min
PARAMETER ( mon_foot_min = '_min' )
CHARACTER*(*) mon_foot_max
PARAMETER ( mon_foot_max = '_max' )
CHARACTER*(*) mon_foot_sd
PARAMETER ( mon_foot_sd = '_sd' )
CHARACTER*(*) mon_foot_mean
PARAMETER ( mon_foot_mean = '_mean' )
CHARACTER*(*) mon_foot_volint
PARAMETER ( mon_foot_volint = '_volint' )
CHARACTER*(*) mon_foot_volmean
PARAMETER ( mon_foot_volmean = '_volmean' )
CHARACTER*(*) mon_foot_del2
PARAMETER ( mon_foot_del2 = '_del2' )
CHARACTER*(*) mon_foot_vol
PARAMETER ( mon_foot_vol = '_vol' )
CHARACTER*(*) mon_string_none
PARAMETER ( mon_string_none = 'NONE' )
C-- COMMON /MON_I/ Monitor integer variables
C mon_ioUnit :: Used to specify the output unit for monitor IO.
C mon_prefL :: Prefix length of current mon_ prefix
COMMON /MON_I/ mon_ioUnit, mon_prefL
INTEGER mon_ioUnit
INTEGER mon_prefL
C-- COMMON /MON_C/ Monitor character variables
C mon_pref :: Prefix used for monitor output
COMMON /MON_C/ mon_pref
CHARACTER*(MAX_LEN_MBUF) mon_pref
C-- COMMON /MON_R/ Monitor real variables
C monSolutionMaxRange :: Maximum allowed Range for solution
C mon_trAdvCFL :: Max CFL value (in 3 directions) for tracer advection
COMMON /MON_R/ monSolutionMaxRange, mon_trAdvCFL
_RL monSolutionMaxRange
_RL mon_trAdvCFL(3)
C-- COMMON /MON_L/ Monitor logical variables
C mon_overrideStop :: Allow code to continue even if model state is
C heading out of bounds
C mon_output_AM :: output Angular momentum
C mon_write_stdout :: hold True when writing monitor to standard output
C mon_write_mnc :: hold True when writing monitor to MNC file
COMMON /MON_L/
& mon_output_AM,
& mon_write_stdout, mon_write_mnc
c LOGICAL mon_overrideStop
LOGICAL mon_output_AM
LOGICAL mon_write_stdout, mon_write_mnc
C File names and time steps
C mon_fname :: monitor file group name
COMMON /MON_F/
& mon_fname
CHARACTER*(MAX_LEN_FNAM) mon_fname
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***