pkg/monitor/mon_set_iounit.F

91672e10e3 Alis*0001 #include "MONITOR_OPTIONS.h"
                0002
2741539ec0 Ed H*0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
                0005 C     !ROUTINE: MON_SET_IOUNIT
                0006
                0007 C     !INTERFACE:
41413ab508 Jean*0008       SUBROUTINE MON_SET_IOUNIT( monUnit, myThid )
91672e10e3 Alis*0009
2741539ec0 Ed H*0010 C     !DESCRIPTION:
                0011 C     Set default monitor unit for I/O.
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
91672e10e3 Alis*0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "MONITOR.h"
                0018
2741539ec0 Ed H*0019 C     !INPUT PARAMETERS:
41413ab508 Jean*0020 C     monUnit :: Unit number to use for monitor output
                0021 C     myThid  :: Instance number of this call to monitor
                0022       INTEGER monUnit
91672e10e3 Alis*0023       INTEGER myThid
2741539ec0 Ed H*0024 CEOP
91672e10e3 Alis*0025
                0026 C     Dont change before everyone is ready
                0027       CALL BAR2( myThid )
                0028
                0029 C     Set monitor I/O unit
9b8b001637 Jean*0030       _BEGIN_MASTER(myThid)
41413ab508 Jean*0031       mon_ioUnit = monUnit
9b8b001637 Jean*0032       _END_MASTER(myThid)
91672e10e3 Alis*0033
                0034 C     Make sure everyone sees the change
                0035       CALL BAR2( myThid )
                0036
                0037       RETURN
                0038       END