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

Diff of /MITgcm/pkg/monitor/mon_set_pref.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        SUBROUTINE MON_SET_PREF(prefString, myThid )  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7  C     /==========================================================\  CBOP
8  C     | SUBROUTINE MON_SET_PREF                                  |  C     !ROUTINE: MON_SET_PREF
9  C     | o Set default monitor prefix string.                     |  
10  C     \==========================================================/  C     !INTERFACE:
11        IMPLICIT NONE        SUBROUTINE MON_SET_PREF( prefString, myThid )
12    
13    C     !DESCRIPTION:
14    C     Set default monitor prefix string.
15    
16  C     === Global data ===  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        EXTERNAL IFNBLNK, ILNBLNK        EXTERNAL IFNBLNK, ILNBLNK
22        INTEGER  IFNBLNK, ILNBLNK        INTEGER  IFNBLNK, ILNBLNK
23    
24  C     === Routine arguments ===  C     !INPUT PARAMETERS:
25  C     prefString - String to use for prefixing monitor output  C     prefString - String to use for prefixing monitor output
26  C     myThid     - Instance number of this call to monitor  C     myThid     - Instance number of this call to monitor
27        CHARACTER*(*) prefString        CHARACTER*(*) prefString
28        INTEGER myThid        INTEGER myThid
29    CEOP
30    
31  C     === Local variables ===  C     !LOCAL VARIABLES:
32  C     I0, I1 - String first and last indices  C     I0, I1 - String first and last indices
33  C     IL     - String length  C     IL     - String length
34        INTEGER I0, I1        INTEGER I0, I1
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22