pkg/monitor/mon_set_pref.F

C $Header: /u/gcmpack/MITgcm/pkg/monitor/mon_set_pref.F,v 1.1 2003/05/13 18:18:05 adcroft Exp $
C $Name:  $

#include "MONITOR_OPTIONS.h"

      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/MITgcm/pkg/monitor/mon_set_pref.F,v 1.1 2003/05/13 18:18:05 adcroft Exp $
2	C $Name: $
3
4	#include "MONITOR_OPTIONS.h"
5
6	SUBROUTINE MON_SET_PREF(prefString, myThid )
7	C /==========================================================\
8	C \| SUBROUTINE MON_SET_PREF \|
9	C \| o Set default monitor prefix string. \|
10	C \==========================================================/
11	IMPLICIT NONE
12
13	C === Global data ===
14	#include "SIZE.h"
15	#include "EEPARAMS.h"
16	#include "MONITOR.h"
17
18	EXTERNAL IFNBLNK, ILNBLNK
19	INTEGER IFNBLNK, ILNBLNK
20
21	C === Routine arguments ===
22	C prefString - String to use for prefixing monitor output
23	C myThid - Instance number of this call to monitor
24	CHARACTER() prefString
25	INTEGER myThid
26
27	C === Local variables ===
28	C I0, I1 - String first and last indices
29	C IL - String length
30	INTEGER I0, I1
31	INTEGER IL
32
33	C Dont change before everyone is ready
34	CALL BAR2( myThid )
35
36	C Set monitor I/O unit
37	I0 = IFNBLNK( prefString )
38	I1 = ILNBLNK( prefString )
39	IL = I1-I0+1
40	IF ( IL .LE. MAX_LEN_MBUF ) THEN
41	mon_pref = ' '
42	mon_prefL = IL
43	mon_pref(1:IL) = prefString(I0:I1)
44	ENDIF
45
46	C Make sure everyone sees the change
47	CALL BAR2( myThid )
48
49	RETURN
50	END