pkg/monitor/mon_set.F

C $Header: /u/gcmpack/models/MITgcmUV/pkg/monitor/mon_set.F,v 1.3 2001/09/27 18:11:59 adcroft Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

      SUBROUTINE MON_SET_IOUNIT(unit, myThid )
C     /==========================================================\
C     | SUBROUTINE MON_SET_IOUNIT                                |
C     | o Set default monitor unit for I/O.                      |
C     \==========================================================/
      IMPLICIT NONE

C     === Global data ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "MONITOR.h"

C     === Routine arguments ===
C     unit   - Unit number to use for monitor output
C     myThid - Instance number of this call to monitor
      INTEGER unit
      INTEGER myThid

C     Dont change before everyone is ready
      CALL BAR2( myThid )

C     Set monitor I/O unit
      mon_ioUnit = standardMessageUnit

C     Make sure everyone sees the change
      CALL BAR2( myThid )

      RETURN
      END

      SUBROUTINE MON_SET_PREF(prefString, myThid )
C     /==========================================================\
C     | SUBROUTINE MON_SET_PREF                                  |
C     | o Set default monitor prefix string.                     |
C     \==========================================================/
      IMPLICIT NONE

C     === Global data ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "MONITOR.h"

      EXTERNAL IFNBLNK, ILNBLNK
      INTEGER  IFNBLNK, ILNBLNK

C     === Routine arguments ===
C     prefString - String to use for prefixing monitor output
C     myThid     - Instance number of this call to monitor
      CHARACTER*(*) prefString
      INTEGER myThid

C     === Local variables ===
C     I0, I1 - String first and last indices
C     IL     - String length
      INTEGER I0, I1
      INTEGER IL

C     Dont change before everyone is ready
      CALL BAR2( myThid )

C     Set monitor I/O unit
      I0 = IFNBLNK( prefString )
      I1 = ILNBLNK( prefString )
      IL = I1-I0+1
      IF ( IL .LE. MAX_LEN_MBUF ) THEN
       mon_pref = ' '
       mon_prefL = IL
       mon_pref(1:IL) = prefString(I0:I1)
      ENDIF

C     Make sure everyone sees the change
      CALL BAR2( myThid )

      RETURN
      END
1	C $Header: /u/gcmpack/models/MITgcmUV/pkg/monitor/mon_set.F,v 1.3 2001/09/27 18:11:59 adcroft Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	SUBROUTINE MON_SET_IOUNIT(unit, myThid )
7	C /==========================================================\
8	C \| SUBROUTINE MON_SET_IOUNIT \|
9	C \| o Set default monitor unit for I/O. \|
10	C \==========================================================/
11	IMPLICIT NONE
12
13	C === Global data ===
14	#include "SIZE.h"
15	#include "EEPARAMS.h"
16	#include "MONITOR.h"
17
18	C === Routine arguments ===
19	C unit - Unit number to use for monitor output
20	C myThid - Instance number of this call to monitor
21	INTEGER unit
22	INTEGER myThid
23
24	C Dont change before everyone is ready
25	CALL BAR2( myThid )
26
27	C Set monitor I/O unit
28	mon_ioUnit = standardMessageUnit
29
30	C Make sure everyone sees the change
31	CALL BAR2( myThid )
32
33	RETURN
34	END
35
36	SUBROUTINE MON_SET_PREF(prefString, myThid )
37	C /==========================================================\
38	C \| SUBROUTINE MON_SET_PREF \|
39	C \| o Set default monitor prefix string. \|
40	C \==========================================================/
41	IMPLICIT NONE
42
43	C === Global data ===
44	#include "SIZE.h"
45	#include "EEPARAMS.h"
46	#include "MONITOR.h"
47
48	EXTERNAL IFNBLNK, ILNBLNK
49	INTEGER IFNBLNK, ILNBLNK
50
51	C === Routine arguments ===
52	C prefString - String to use for prefixing monitor output
53	C myThid - Instance number of this call to monitor
54	CHARACTER() prefString
55	INTEGER myThid
56
57	C === Local variables ===
58	C I0, I1 - String first and last indices
59	C IL - String length
60	INTEGER I0, I1
61	INTEGER IL
62
63	C Dont change before everyone is ready
64	CALL BAR2( myThid )
65
66	C Set monitor I/O unit
67	I0 = IFNBLNK( prefString )
68	I1 = ILNBLNK( prefString )
69	IL = I1-I0+1
70	IF ( IL .LE. MAX_LEN_MBUF ) THEN
71	mon_pref = ' '
72	mon_prefL = IL
73	mon_pref(1:IL) = prefString(I0:I1)
74	ENDIF
75
76	C Make sure everyone sees the change
77	CALL BAR2( myThid )
78
79	RETURN
80	END