/[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.6 by edhill, Sat Apr 3 21:17:10 2004 UTC revision 1.7 by edhill, Sat Apr 3 22:49:14 2004 UTC
# Line 23  C     foot   - Field suffix ( ignored if Line 23  C     foot   - Field suffix ( ignored if
23        INTEGER  myThid        INTEGER  myThid
24  CEOP  CEOP
25    
26        CALL MON_OUT_ALL(pref, foot, 1, value, 0.0, 0.0d0, myThid)        CALL MON_OUT_ALL(pref, foot, 1, value, 0.0d0, myThid)
27        RETURN        RETURN
28        END        END
29    
# Line 46  C     foot   - Field suffix ( ignored if Line 46  C     foot   - Field suffix ( ignored if
46        CHARACTER*(*) foot        CHARACTER*(*) foot
47        INTEGER  myThid        INTEGER  myThid
48  CEOP  CEOP
49          REAL*8 dtmp
50          dtmp = value
51    
52        CALL MON_OUT_ALL(pref, foot, 2, 0, value, 0.0d0, myThid)        CALL MON_OUT_ALL(pref, foot, 2, 0, dtmp, myThid)
53        RETURN        RETURN
54        END        END
55    
# Line 56  CBOP Line 58  CBOP
58  C     !ROUTINE: MON_OUT_RL  C     !ROUTINE: MON_OUT_RL
59    
60  C     !INTERFACE:  C     !INTERFACE:
61        SUBROUTINE MON_OUT_RL(pref, value, foot, myThid )        SUBROUTINE MON_OUT_RL( pref, value, foot, myThid )
62    
63  C     !DESCRIPTION:  C     !DESCRIPTION:
64  C     Formatted RL I/O for monitor print out.  C     Formatted RL I/O for monitor print out.
# Line 70  C     foot   - Field suffix ( ignored if Line 72  C     foot   - Field suffix ( ignored if
72        CHARACTER*(*) foot        CHARACTER*(*) foot
73        INTEGER  myThid        INTEGER  myThid
74  CEOP  CEOP
75          REAL*8 dtmp
76          dtmp = value
77    
78        CALL MON_OUT_ALL(pref, foot, 3, 0, 0.0, value, myThid)        CALL MON_OUT_ALL(pref, foot, 2, 0, dtmp, myThid)
79        RETURN        RETURN
80        END        END
81    
# Line 82  C     !ROUTINE: MON_OUT_ALL Line 86  C     !ROUTINE: MON_OUT_ALL
86  C     !INTERFACE:  C     !INTERFACE:
87        SUBROUTINE MON_OUT_ALL(        SUBROUTINE MON_OUT_ALL(
88       I     pref, foot,       I     pref, foot,
89       I     itype, ival, rval, dval,       I     itype, ival, dval,
90       I     myThid )       I     myThid )
91    
92  C     !DESCRIPTION:  C     !DESCRIPTION:
# Line 104  C     foot   - Field suffix ( ignored if Line 108  C     foot   - Field suffix ( ignored if
108        CHARACTER*(*) pref, foot        CHARACTER*(*) pref, foot
109        INTEGER itype        INTEGER itype
110        INTEGER ival        INTEGER ival
111        _RS     rval        REAL*8  dval
       _RL     dval  
112        INTEGER myThid        INTEGER myThid
113  CEOP  CEOP
114    
# Line 115  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, IL        INTEGER  I0,I1, I2,I3, IL
122    
123        msgBuf = ' '        msgBuf = ' '
124        lBuf   = 0        lBuf   = 0
# Line 148  C     I0     - Temps used in calculating Line 151  C     I0     - Temps used in calculating
151         ENDIF         ENDIF
152        ENDIF        ENDIF
153    
154        I0 = IFNBLNK(foot)        I2 = IFNBLNK(foot)
155        I1 = ILNBLNK(foot)        I3 = ILNBLNK(foot)
156        IL = I1-I0+1        IL = I3-I2+1
157        IF ( IL .GT. 0 ) THEN        IF ( IL .GT. 0 ) THEN
158         IF ( foot(I0:I1) .NE. mon_string_none .AND.         IF ( foot(I2:I3) .NE. mon_string_none .AND.
159       &      lBuf+IL+1   .LE. MAX_LEN_MBUF ) THEN       &      lBuf+IL+1   .LE. MAX_LEN_MBUF ) THEN
160          lBuf = lBuf+1          lBuf = lBuf+1
161          msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1)          msgBuf(lBuf:lBuf+IL-1) = foot(I2:I3)
162          lBuf = lBuf+IL-1          lBuf = lBuf+IL-1
163         ENDIF         ENDIF
164        ENDIF        ENDIF
165    
166        msgBuf(35:35) = '='        msgBuf(35:35) = '='
167    
168    CEH3  write(*,*) 'pref = ''', pref(I0:I1), ''''
169    CEH3  write(*,*) 'foot = ''', foot(I2:I3), ''''
170    
171        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
172  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
173          IF ( .NOT. useSingleCPUIO .OR. mpiMyId .EQ. 0 ) THEN          IF ( .NOT. useSingleCPUIO .OR. mpiMyId .EQ. 0 ) THEN
# Line 169  C     I0     - Temps used in calculating Line 175  C     I0     - Temps used in calculating
175            IF (itype .EQ. 1)            IF (itype .EQ. 1)
176       &         WRITE(msgBuf(36:57),'(1X,I21)')       ival       &         WRITE(msgBuf(36:57),'(1X,I21)')       ival
177            IF (itype .EQ. 2)            IF (itype .EQ. 2)
      &         WRITE(msgBuf(36:57),'(1X,1P1E21.13)') rval  
           IF (itype .EQ. 3)  
178       &         WRITE(msgBuf(36:57),'(1X,1P1E21.13)') dval       &         WRITE(msgBuf(36:57),'(1X,1P1E21.13)') dval
179            CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 )            CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 )
180  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22