/[MITgcm]/MITgcm/pkg/monitor/mon_set_iounit.F
ViewVC logotype

Diff of /MITgcm/pkg/monitor/mon_set_iounit.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jmc, Tue Oct 17 19:01:48 2006 UTC revision 1.4 by jmc, Wed Aug 12 22:11:17 2009 UTC
# Line 8  CBOP Line 8  CBOP
8  C     !ROUTINE: MON_SET_IOUNIT  C     !ROUTINE: MON_SET_IOUNIT
9    
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE MON_SET_IOUNIT(unit, myThid )        SUBROUTINE MON_SET_IOUNIT( monUnit, myThid )
12    
13  C     !DESCRIPTION:  C     !DESCRIPTION:
14  C     Set default monitor unit for I/O.  C     Set default monitor unit for I/O.
# Line 20  C     !USES: Line 20  C     !USES:
20  #include "MONITOR.h"  #include "MONITOR.h"
21    
22  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
23  C     unit   - Unit number to use for monitor output  C     monUnit :: Unit number to use for monitor output
24  C     myThid - Instance number of this call to monitor  C     myThid  :: Instance number of this call to monitor
25        INTEGER unit        INTEGER monUnit
26        INTEGER myThid        INTEGER myThid
27  CEOP  CEOP
28    
# Line 31  C     Dont change before everyone is rea Line 31  C     Dont change before everyone is rea
31    
32  C     Set monitor I/O unit  C     Set monitor I/O unit
33        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
34        mon_ioUnit = unit        mon_ioUnit = monUnit
35        _END_MASTER(myThid)        _END_MASTER(myThid)
36    
37  C     Make sure everyone sees the change  C     Make sure everyone sees the change
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22