pkg/monitor/mon_set_pref.F

91672e10e3 Alis*0001 #include "MONITOR_OPTIONS.h"
1389d71047 Chri*0002
2741539ec0 Ed H*0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
                0005 C     !ROUTINE: MON_SET_PREF
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE MON_SET_PREF( prefString, myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Set default monitor prefix string.
1389d71047 Chri*0012
2741539ec0 Ed H*0013 C     !USES:
                0014       IMPLICIT NONE
1389d71047 Chri*0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "MONITOR.h"
b2c0db823e Chri*0018       EXTERNAL IFNBLNK, ILNBLNK
                0019       INTEGER  IFNBLNK, ILNBLNK
1389d71047 Chri*0020
2741539ec0 Ed H*0021 C     !INPUT PARAMETERS:
1389d71047 Chri*0022 C     prefString - String to use for prefixing monitor output
                0023 C     myThid     - Instance number of this call to monitor
                0024       CHARACTER*(*) prefString
                0025       INTEGER myThid
2741539ec0 Ed H*0026 CEOP
1389d71047 Chri*0027
2741539ec0 Ed H*0028 C     !LOCAL VARIABLES:
1389d71047 Chri*0029 C     I0, I1 - String first and last indices
                0030 C     IL     - String length
                0031       INTEGER I0, I1
                0032       INTEGER IL
                0033
e9b27c9813 Alis*0034 C     Dont change before everyone is ready
1389d71047 Chri*0035       CALL BAR2( myThid )
                0036
                0037 C     Set monitor I/O unit
9b8b001637 Jean*0038       _BEGIN_MASTER(myThid)
1389d71047 Chri*0039       I0 = IFNBLNK( prefString )
                0040       I1 = ILNBLNK( prefString )
                0041       IL = I1-I0+1
                0042       IF ( IL .LE. MAX_LEN_MBUF ) THEN
                0043        mon_pref = ' '
                0044        mon_prefL = IL
                0045        mon_pref(1:IL) = prefString(I0:I1)
                0046       ENDIF
9b8b001637 Jean*0047       _END_MASTER(myThid)
1389d71047 Chri*0048
                0049 C     Make sure everyone sees the change
                0050       CALL BAR2( myThid )
                0051
                0052       RETURN
                0053       END