| 1 |
C $Header: /u/gcmpack/MITgcm/pkg/monitor/MONITOR.h,v 1.10 2012/12/21 01:00:08 jmc 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_R/ Monitor real variables |
| 59 |
C monSolutionMaxRange :: Maximum allowed Range for solution |
| 60 |
C mon_trAdvCFL :: Max CFL value (in 3 directions) for tracer advection |
| 61 |
COMMON /MON_R/ monSolutionMaxRange, mon_trAdvCFL |
| 62 |
_RL monSolutionMaxRange |
| 63 |
_RL mon_trAdvCFL(3) |
| 64 |
|
| 65 |
C-- COMMON /MON_L/ Monitor logical variables |
| 66 |
C mon_overrideStop :: Allow code to continue even if model state is |
| 67 |
C heading out of bounds |
| 68 |
C mon_output_AM :: output Angular momentum |
| 69 |
C mon_write_stdout :: hold True when writing monitor to standard output |
| 70 |
C mon_write_mnc :: hold True when writing monitor to MNC file |
| 71 |
COMMON /MON_L/ |
| 72 |
& mon_output_AM, |
| 73 |
& mon_write_stdout, mon_write_mnc |
| 74 |
c LOGICAL mon_overrideStop |
| 75 |
LOGICAL mon_output_AM |
| 76 |
LOGICAL mon_write_stdout, mon_write_mnc |
| 77 |
|
| 78 |
C File names and time steps |
| 79 |
C mon_fname :: monitor file group name |
| 80 |
COMMON /MON_F/ |
| 81 |
& mon_fname |
| 82 |
CHARACTER*(MAX_LEN_FNAM) mon_fname |
| 83 |
|
| 84 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 85 |
|
| 86 |
CEH3 ;;; Local Variables: *** |
| 87 |
CEH3 ;;; mode:fortran *** |
| 88 |
CEH3 ;;; End: *** |
Parent Directory
| 
Revision Log
| 
Revision Graph