/[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.1 by cnh, Mon Jun 18 17:39:59 2001 UTC revision 1.2 by adcroft, Mon Jun 25 20:35:23 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6        SUBROUTINE MON_OUT_I(pref, value, foot )        SUBROUTINE MON_OUT_I(pref, value, foot, myThid )
7  C.sh  /==========================================================\  C.sh  /==========================================================\
8  C     | SUBROUTINE MON_OUT_I                                     |  C     | SUBROUTINE MON_OUT_I                                     |
9  C     | o Formatted integer I/O for monitor print out.           |  C     | o Formatted integer I/O for monitor print out.           |
# Line 18  C.gd  === Global data === Line 18  C.gd  === Global data ===
18        INTEGER  IFNBLNK        INTEGER  IFNBLNK
19        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
20        INTEGER  ILNBLNK        INTEGER  ILNBLNK
21          INTEGER  myThid
22  C.  C.
23    
24  C.ra  === Routine arguments ===  C.ra  === Routine arguments ===
# Line 85  C. Line 86  C.
86    
87        msgBuf(35:35) = '='        msgBuf(35:35) = '='
88    
89          _BEGIN_MASTER(myThid)
90        WRITE(msgBuf(36:57),'(1X,I21)') value        WRITE(msgBuf(36:57),'(1X,I21)') value
   
91        CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 )        CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 )
92          _END_MASTER()
93    
94        RETURN        RETURN
95        END        END
96        SUBROUTINE MON_OUT_RS(pref, value, foot )        SUBROUTINE MON_OUT_RS(pref, value, foot, myThid )
97  C.sh  /==========================================================\  C.sh  /==========================================================\
98  C     | SUBROUTINE MON_OUT_RS                                    |  C     | SUBROUTINE MON_OUT_RS                                    |
99  C     | o Formatted RS I/O for monitor print out.                |  C     | o Formatted RS I/O for monitor print out.                |
# Line 106  C.gd  === Global data === Line 108  C.gd  === Global data ===
108        INTEGER  IFNBLNK        INTEGER  IFNBLNK
109        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
110        INTEGER  ILNBLNK        INTEGER  ILNBLNK
111          INTEGER  myThid
112  C.  C.
113    
114  C.ra  === Routine arguments ===  C.ra  === Routine arguments ===
# Line 173  C. Line 176  C.
176    
177        msgBuf(35:35) = '='        msgBuf(35:35) = '='
178    
179          _BEGIN_MASTER(myThid)
180        WRITE(msgBuf(36:57),'(1X,1P1E21.13)') value        WRITE(msgBuf(36:57),'(1X,1P1E21.13)') value
   
181        CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 )        CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 )
182          _END_MASTER()
183    
184        RETURN        RETURN
185        END        END
186        SUBROUTINE MON_OUT_RL(pref, value, foot )        SUBROUTINE MON_OUT_RL(pref, value, foot, myThid )
187  C.sh  /==========================================================\  C.sh  /==========================================================\
188  C     | SUBROUTINE MON_OUT_RL                                    |  C     | SUBROUTINE MON_OUT_RL                                    |
189  C     | o Formatted RL I/O for monitor print out.                |  C     | o Formatted RL I/O for monitor print out.                |
# Line 202  C.d   foot   - Field suffix ( ignored if Line 207  C.d   foot   - Field suffix ( ignored if
207        CHARACTER*(*) pref        CHARACTER*(*) pref
208        _RL           value        _RL           value
209        CHARACTER*(*) foot        CHARACTER*(*) foot
210          INTEGER  myThid
211  C.  C.
212    
213  C.lv  === Local variables ===  C.lv  === Local variables ===
# Line 260  C. Line 266  C.
266    
267        msgBuf(35:35) = '='        msgBuf(35:35) = '='
268    
269          _BEGIN_MASTER(myThid)
270        WRITE(msgBuf(36:57),'(1X,1P1E21.13)') value        WRITE(msgBuf(36:57),'(1X,1P1E21.13)') value
   
271        CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 )        CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1 )
272          _END_MASTER()
273    
274        RETURN        RETURN
275        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22