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

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

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

revision 1.4 by dimitri, Sat Jan 10 00:48:49 2004 UTC revision 1.5 by edhill, Sat Apr 3 04:57:11 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_OUT_I
9    
10    C     !INTERFACE:
11        SUBROUTINE MON_OUT_I(pref, value, foot, myThid )        SUBROUTINE MON_OUT_I(pref, value, foot, myThid )
 C.sh  /==========================================================\  
 C     | SUBROUTINE MON_OUT_I                                     |  
 C     | o Formatted integer I/O for monitor print out.           |  
 C.    \==========================================================/  
       IMPLICIT NONE  
12    
13  C.gd  === Global data ===  C     !DESCRIPTION:
14    C     Formatted integer I/O for monitor print out.          
15    
16    C     !USES:
17          IMPLICIT NONE
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20  #include "PARAMS.h"  #include "PARAMS.h"
# Line 20  C.gd  === Global data === Line 24  C.gd  === Global data ===
24        INTEGER  IFNBLNK        INTEGER  IFNBLNK
25        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
26        INTEGER  ILNBLNK        INTEGER  ILNBLNK
       INTEGER  myThid  
 C.  
27    
28  C.ra  === Routine arguments ===  C     !INPUT PARAMETERS:
29  C.d   pref   - Field prefix ( ignored if == mon_string_none )  C.d   pref   - Field prefix ( ignored if == mon_string_none )
30  C.d   value  - Value to print  C.d   value  - Value to print
31  C.d   foot   - Field suffix ( ignored if == mon_string_none )  C.d   foot   - Field suffix ( ignored if == mon_string_none )
32        CHARACTER*(*) pref        CHARACTER*(*) pref
33        INTEGER       value        INTEGER       value
34        CHARACTER*(*) foot        CHARACTER*(*) foot
35  C.        INTEGER  myThid
36    CEOP
37    
38  C.lv  === Local variables ===  C     !LOCAL VARIABLES:
39  C.d   msgBuf - Buffer for building output string  C.d   msgBuf - Buffer for building output string
40  C.d   lBuf   - Buffer for length  C.d   lBuf   - Buffer for length
41  C.d.  I0     - Temps used in calculating string length  C.d.  I0     - Temps used in calculating string length
# Line 50  C. Line 53  C.
53        I1 = ILNBLNK(mon_head)        I1 = ILNBLNK(mon_head)
54        IL = I1-I0+1        IL = I1-I0+1
55        IF ( IL .GT. 0 .AND. lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN        IF ( IL .GT. 0 .AND. lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN
56         msgBuf(1:IL) = mon_head          msgBuf(1:IL) = mon_head
57         lBuf = IL+1          lBuf = IL+1
58         msgBuf(lBuf:lBuf) = ' '          msgBuf(lBuf:lBuf) = ' '
59        ENDIF        ENDIF
60    
61        IF ( mon_pref(1:mon_prefL) .NE. mon_string_none .AND.        IF ( mon_pref(1:mon_prefL) .NE. mon_string_none .AND.
62       &     lBuf+mon_prefL+1      .LE. MAX_LEN_MBUF ) THEN       &     lBuf+mon_prefL+1      .LE. MAX_LEN_MBUF ) THEN
63         lBuf = lBuf+1          lBuf = lBuf+1
64         msgBuf(lBuf:lBuf+mon_prefL-1) = mon_pref(1:mon_prefL)          msgBuf(lBuf:lBuf+mon_prefL-1) = mon_pref(1:mon_prefL)
65         lBuf = lBuf+mon_prefL-1          lBuf = lBuf+mon_prefL-1
66        ENDIF        ENDIF
67    
68        I0 = IFNBLNK(pref)        I0 = IFNBLNK(pref)
69        I1 = ILNBLNK(pref)        I1 = ILNBLNK(pref)
70        IL = I1-I0+1        IL = I1-I0+1
71        IF ( IL .GT. 0 ) THEN        IF ( IL .GT. 0 ) THEN
72         IF ( pref(I0:I1) .NE. mon_string_none .AND.          IF ( pref(I0:I1) .NE. mon_string_none .AND.
73       &      lBuf+IL+1   .LE. MAX_LEN_MBUF ) THEN       &       lBuf+IL+1   .LE. MAX_LEN_MBUF ) THEN
74          lBuf = lBuf+1            lBuf = lBuf+1
75          msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1)            msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1)
76          lBuf = lBuf+IL-1            lBuf = lBuf+IL-1
77         ENDIF          ENDIF
78        ENDIF        ENDIF
79    
80        I0 = IFNBLNK(foot)        I0 = IFNBLNK(foot)
81        I1 = ILNBLNK(foot)        I1 = ILNBLNK(foot)
82        IL = I1-I0+1        IL = I1-I0+1
83        IF ( IL .GT. 0 ) THEN        IF ( IL .GT. 0 ) THEN
84         IF ( foot(I0:I1) .NE. mon_string_none .AND.          IF ( foot(I0:I1) .NE. mon_string_none .AND.
85       &      lBuf+IL+1   .LE. MAX_LEN_MBUF ) THEN       &       lBuf+IL+1   .LE. MAX_LEN_MBUF ) THEN
86          lBuf = lBuf+1            lBuf = lBuf+1
87          msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1)            msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1)
88          lBuf = lBuf+IL-1            lBuf = lBuf+IL-1
89         ENDIF          ENDIF
90        ENDIF        ENDIF
91    
92        msgBuf(35:35) = '='        msgBuf(35:35) = '='
93    
94        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
95  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
96         IF ( .NOT. useSingleCPUIO .OR. mpiMyId .EQ. 0 ) THEN          IF ( .NOT. useSingleCPUIO .OR. mpiMyId .EQ. 0 ) THEN
97  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
98          WRITE(msgBuf(36:57),'(1X,I21)') value            WRITE(msgBuf(36:57),'(1X,I21)') value
99          CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 )            CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 )
100  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
101         ENDIF          ENDIF
102  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
103        _END_MASTER()        _END_MASTER()
104    
105        RETURN        RETURN
106        END        END
107    
108    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
109    
110        SUBROUTINE MON_OUT_RS(pref, value, foot, myThid )        SUBROUTINE MON_OUT_RS(pref, value, foot, myThid )
111  C.sh  /==========================================================\  C.sh  /==========================================================\
112  C     | SUBROUTINE MON_OUT_RS                                    |  C     | SUBROUTINE MON_OUT_RS                                    |
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22