/[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.1 by adcroft, Tue May 13 18:18:05 2003 UTC revision 1.2 by edhill, Sat Apr 3 21:17:10 2004 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "MONITOR_OPTIONS.h"  #include "MONITOR_OPTIONS.h"
5    
6    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    CBOP
8    C     !ROUTINE: MON_SET_IOUNIT
9    
10    C     !INTERFACE:
11        SUBROUTINE MON_SET_IOUNIT(unit, myThid )        SUBROUTINE MON_SET_IOUNIT(unit, myThid )
 C     /==========================================================\  
 C     | SUBROUTINE MON_SET_IOUNIT                                |  
 C     | o Set default monitor unit for I/O.                      |  
 C     \==========================================================/  
       IMPLICIT NONE  
12    
13  C     === Global data ===  C     !DESCRIPTION:
14    C     Set default monitor unit for I/O.
15    
16    C     !USES:
17          IMPLICIT NONE
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20  #include "MONITOR.h"  #include "MONITOR.h"
21    
22  C     === Routine arguments ===  C     !INPUT PARAMETERS:
23  C     unit   - Unit number to use for monitor output  C     unit   - 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 unit
26        INTEGER myThid        INTEGER myThid
27    CEOP
28    
29  C     Dont change before everyone is ready  C     Dont change before everyone is ready
30        CALL BAR2( myThid )        CALL BAR2( myThid )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22