58 |
C-- COMMON /MON_L/ Monitor logical variables |
C-- COMMON /MON_L/ Monitor logical variables |
59 |
C mon_overrideStop - Allow code to continue even if model state is |
C mon_overrideStop - Allow code to continue even if model state is |
60 |
C heading out of bounds |
C heading out of bounds |
61 |
COMMON /MON_L/ mon_overrideStop |
C mon_write_stdout - hold True when writing monitor to standard output |
62 |
|
C mon_write_mnc - hold True when writing monitor to MNC file |
63 |
|
COMMON /MON_L/ mon_overrideStop, |
64 |
|
& mon_write_stdout, mon_write_mnc |
65 |
LOGICAL mon_overrideStop |
LOGICAL mon_overrideStop |
66 |
|
LOGICAL mon_write_stdout, mon_write_mnc |
67 |
|
|
68 |
C File names and time steps |
C File names and time steps |
69 |
C mon_fname :: monitor file group name |
C mon_fname :: monitor file group name |
70 |
COMMON /MON_F/ |
COMMON /MON_F/ |
71 |
& mon_fname, mon_write_stdout, mon_write_mnc |
& mon_fname |
72 |
CHARACTER*(MAX_LEN_MBUF) mon_fname |
CHARACTER*(MAX_LEN_MBUF) mon_fname |
|
LOGICAL mon_write_stdout, mon_write_mnc |
|
73 |
|
|
74 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
75 |
|
|