/[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.7 by edhill, Sat Apr 3 22:49:14 2004 UTC revision 1.8 by edhill, Mon Apr 5 06:01:07 2004 UTC
# Line 118  C     lBuf   - Buffer for length Line 118  C     lBuf   - Buffer for length
118  C     I0     - Temps used in calculating string length  C     I0     - Temps used in calculating string length
119        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
120        INTEGER  lBuf        INTEGER  lBuf
121        INTEGER  I0,I1, I2,I3, IL        INTEGER  i, I0,I1, IL
122          CHARACTER*(100) mon_vname
123          INTEGER  nvname
124    
125        msgBuf = ' '        msgBuf = ' '
126        lBuf   = 0        lBuf   = 0
127    
128          DO i = 1,100
129            mon_vname(i:i) = ' '
130          ENDDO
131    
132        I0 = IFNBLNK(mon_head)        I0 = IFNBLNK(mon_head)
133        I1 = ILNBLNK(mon_head)        I1 = ILNBLNK(mon_head)
134        IL = I1-I0+1        IL = I1-I0+1
135        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
136         msgBuf(1:IL) = mon_head          msgBuf(1:IL) = mon_head
137         lBuf = IL+1          lBuf = IL+1
138         msgBuf(lBuf:lBuf) = ' '          msgBuf(lBuf:lBuf) = ' '
139        ENDIF        ENDIF
140          
141        IF ( mon_pref(1:mon_prefL) .NE. mon_string_none .AND.        IF ( mon_pref(1:mon_prefL) .NE. mon_string_none .AND.
142       &     lBuf+mon_prefL+1      .LE. MAX_LEN_MBUF ) THEN       &     lBuf+mon_prefL+1      .LE. MAX_LEN_MBUF ) THEN
143         lBuf = lBuf+1          lBuf = lBuf+1
144         msgBuf(lBuf:lBuf+mon_prefL-1) = mon_pref(1:mon_prefL)          msgBuf(lBuf:lBuf+mon_prefL-1) = mon_pref(1:mon_prefL)
145         lBuf = lBuf+mon_prefL-1          lBuf = lBuf+mon_prefL-1
146            mon_vname(1:mon_prefL) = mon_pref(1:mon_prefL)
147            nvname = mon_prefL
148          ELSE
149            nvname = 0
150        ENDIF        ENDIF
151    
152        I0 = IFNBLNK(pref)        I0 = IFNBLNK(pref)
153        I1 = ILNBLNK(pref)        I1 = ILNBLNK(pref)
154        IL = I1-I0+1        IL = I1-I0+1
155        IF ( IL .GT. 0 ) THEN        IF ( IL .GT. 0 ) THEN
156         IF ( pref(I0:I1) .NE. mon_string_none .AND.          IF ( pref(I0:I1) .NE. mon_string_none .AND.
157       &      lBuf+IL+1   .LE. MAX_LEN_MBUF ) THEN       &       lBuf+IL+1   .LE. MAX_LEN_MBUF ) THEN
158          lBuf = lBuf+1            lBuf = lBuf+1
159          msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1)            msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1)
160          lBuf = lBuf+IL-1            lBuf = lBuf+IL-1
161         ENDIF            mon_vname((nvname+1):(nvname+IL)) = pref(I0:I1)
162              nvname = nvname + IL
163            ENDIF
164        ENDIF        ENDIF
165    
166        I2 = IFNBLNK(foot)        I0 = IFNBLNK(foot)
167        I3 = ILNBLNK(foot)        I1 = ILNBLNK(foot)
168        IL = I3-I2+1        IL = I1-I0+1
169        IF ( IL .GT. 0 ) THEN        IF ( IL .GT. 0 ) THEN
170         IF ( foot(I2:I3) .NE. mon_string_none .AND.          IF ( foot(I0:I1) .NE. mon_string_none .AND.
171       &      lBuf+IL+1   .LE. MAX_LEN_MBUF ) THEN       &       lBuf+IL+1   .LE. MAX_LEN_MBUF ) THEN
172          lBuf = lBuf+1            lBuf = lBuf+1
173          msgBuf(lBuf:lBuf+IL-1) = foot(I2:I3)            msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1)
174          lBuf = lBuf+IL-1            lBuf = lBuf+IL-1
175         ENDIF            mon_vname((nvname+1):(nvname+IL)) = foot(I0:I1)
176              nvname = nvname + IL
177            ENDIF
178        ENDIF        ENDIF
179    
180        msgBuf(35:35) = '='  C     write(*,*) 'mon_vname = ''', mon_vname(1:nvname), ''''
181    
182  CEH3  write(*,*) 'pref = ''', pref(I0:I1), ''''        msgBuf(35:35) = '='
 CEH3  write(*,*) 'foot = ''', foot(I2:I3), ''''  
183    
184        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
185  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
# Line 177  CEH3  write(*,*) 'foot = ''', foot(I2:I3 Line 190  CEH3  write(*,*) 'foot = ''', foot(I2:I3
190            IF (itype .EQ. 2)            IF (itype .EQ. 2)
191       &         WRITE(msgBuf(36:57),'(1X,1P1E21.13)') dval       &         WRITE(msgBuf(36:57),'(1X,1P1E21.13)') dval
192            CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 )            CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 )
193    
194    #ifdef ALLOW_MNC
195              IF (useMNC .AND. mnc_use_for_mon .AND. mon_do_fwrite) THEN
196                CALL MNC_CW_APPEND_VNAME(
197         &           mon_vname, '-_-_--__-__t', 0,0, myThid)
198                IF (itype .EQ. 1)
199         &           CALL MNC_CW_I_W(
200         &           'I','monitor',1,1,mon_vname, ival, myThid)
201                IF (itype .EQ. 2)
202         &           CALL MNC_CW_RL_W(
203         &           'D','monitor',1,1,mon_vname, dval, myThid)
204              ENDIF
205    #endif /*  ALLOW_MNC  */
206    
207  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
208          ENDIF          ENDIF
209  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22