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

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

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

Revision 1.10 - (hide annotations) (download)
Fri Sep 10 12:19:31 2004 UTC (19 years, 8 months ago) by edhill
Branch: MAIN
Changes since 1.9: +4 -1 lines 
 o overhaul of IO so that we now have flags for MDSIO and/or MNC
   - all verification tests compile and run with linux_ia32_g77
   - defaults are compatible with current input files--nothing
     should change if you were not previously using MNC
   - MNC output has been added in numerous places (eg. timeave)
     but there are still a few writes not yet do-able with MNC
     (this is in progress)
   - flags now allow for either/or/both use of MDSIO and MNC and
     documentation will soon follow
   - numerous small formatting cleanups for ProTeX
1 edhill 1.10 C $Header: /u/gcmpack/MITgcm/pkg/monitor/mon_out.F,v 1.9 2004/09/07 21:32:10 edhill Exp $
2 cnh 1.1 C $Name: $
3    
4 adcroft 1.3 #include "MONITOR_OPTIONS.h"
5 cnh 1.1
6 edhill 1.5 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7     CBOP
8     C !ROUTINE: MON_OUT_I
9    
10     C !INTERFACE:
11 edhill 1.6 SUBROUTINE MON_OUT_I( pref, value, foot, myThid )
12 edhill 1.5
13     C !DESCRIPTION:
14     C Formatted integer I/O for monitor print out.
15    
16     C !INPUT PARAMETERS:
17 edhill 1.6 C pref - Field prefix ( ignored if == mon_string_none )
18     C value - Value to print
19     C foot - Field suffix ( ignored if == mon_string_none )
20 cnh 1.1 CHARACTER*(*) pref
21     INTEGER value
22     CHARACTER*(*) foot
23 edhill 1.5 INTEGER myThid
24     CEOP
25 cnh 1.1
26 edhill 1.7 CALL MON_OUT_ALL(pref, foot, 1, value, 0.0d0, myThid)
27 edhill 1.6 RETURN
28     END
29 cnh 1.1
30 edhill 1.6 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
31     CBOP
32     C !ROUTINE: MON_OUT_RS
33 cnh 1.1
34 edhill 1.6 C !INTERFACE:
35     SUBROUTINE MON_OUT_RS( pref, value, foot, myThid )
36 cnh 1.1
37 edhill 1.6 C !DESCRIPTION:
38     C Formatted RS I/O for monitor print out.
39 cnh 1.1
40 edhill 1.6 C !INPUT PARAMETERS:
41     C pref - Field prefix ( ignored if == mon_string_none )
42     C value - Value to print
43     C foot - Field suffix ( ignored if == mon_string_none )
44     CHARACTER*(*) pref
45     _RS value
46     CHARACTER*(*) foot
47     INTEGER myThid
48     CEOP
49 edhill 1.7 REAL*8 dtmp
50     dtmp = value
51 cnh 1.1
52 edhill 1.7 CALL MON_OUT_ALL(pref, foot, 2, 0, dtmp, myThid)
53 cnh 1.1 RETURN
54     END
55 edhill 1.5
56     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
57 edhill 1.6 CBOP
58     C !ROUTINE: MON_OUT_RL
59 edhill 1.5
60 edhill 1.6 C !INTERFACE:
61 edhill 1.7 SUBROUTINE MON_OUT_RL( pref, value, foot, myThid )
62 cnh 1.1
63 edhill 1.6 C !DESCRIPTION:
64     C Formatted RL I/O for monitor print out.
65 cnh 1.1
66 edhill 1.6 C !INPUT PARAMETERS:
67     C pref - Field prefix ( ignored if == mon_string_none )
68     C value - Value to print
69     C foot - Field suffix ( ignored if == mon_string_none )
70 cnh 1.1 CHARACTER*(*) pref
71 edhill 1.6 _RL value
72 cnh 1.1 CHARACTER*(*) foot
73 edhill 1.6 INTEGER myThid
74     CEOP
75 edhill 1.7 REAL*8 dtmp
76     dtmp = value
77 cnh 1.1
78 edhill 1.7 CALL MON_OUT_ALL(pref, foot, 2, 0, dtmp, myThid)
79 edhill 1.6 RETURN
80     END
81 cnh 1.1
82 edhill 1.6 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
83     CBOP 1
84     C !ROUTINE: MON_OUT_ALL
85 cnh 1.1
86 edhill 1.6 C !INTERFACE:
87     SUBROUTINE MON_OUT_ALL(
88     I pref, foot,
89 edhill 1.7 I itype, ival, dval,
90 edhill 1.6 I myThid )
91 cnh 1.1
92 edhill 1.6 C !DESCRIPTION:
93     C Formatted I/O for monitor output.
94 cnh 1.1
95 edhill 1.6 C !USES:
96 cnh 1.1 IMPLICIT NONE
97     #include "SIZE.h"
98     #include "EEPARAMS.h"
99 dimitri 1.4 #include "PARAMS.h"
100 edhill 1.10 #ifdef ALLOW_MNC
101     #include "MNC_PARAMS.h"
102     #endif
103 dimitri 1.4 #include "EESUPPORT.h"
104 cnh 1.1 #include "MONITOR.h"
105 edhill 1.6 INTEGER IFNBLNK
106     INTEGER ILNBLNK
107    
108     C !INPUT PARAMETERS:
109     C pref - Field prefix ( ignored if == mon_string_none )
110     C foot - Field suffix ( ignored if == mon_string_none )
111     CHARACTER*(*) pref, foot
112     INTEGER itype
113     INTEGER ival
114 edhill 1.7 REAL*8 dval
115 edhill 1.6 INTEGER myThid
116     CEOP
117 cnh 1.1
118 edhill 1.6 C !LOCAL VARIABLES:
119     C msgBuf - Buffer for building output string
120     C lBuf - Buffer for length
121     C I0 - Temps used in calculating string length
122 cnh 1.1 CHARACTER*(MAX_LEN_MBUF) msgBuf
123     INTEGER lBuf
124 edhill 1.8 INTEGER i, I0,I1, IL
125     CHARACTER*(100) mon_vname
126     INTEGER nvname
127 cnh 1.1
128     msgBuf = ' '
129     lBuf = 0
130    
131 edhill 1.8 DO i = 1,100
132     mon_vname(i:i) = ' '
133     ENDDO
134    
135 cnh 1.1 I0 = IFNBLNK(mon_head)
136     I1 = ILNBLNK(mon_head)
137     IL = I1-I0+1
138     IF ( IL .GT. 0 .AND. lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN
139 edhill 1.8 msgBuf(1:IL) = mon_head
140     lBuf = IL+1
141     msgBuf(lBuf:lBuf) = ' '
142 cnh 1.1 ENDIF
143 edhill 1.8
144 cnh 1.1 IF ( mon_pref(1:mon_prefL) .NE. mon_string_none .AND.
145     & lBuf+mon_prefL+1 .LE. MAX_LEN_MBUF ) THEN
146 edhill 1.8 lBuf = lBuf+1
147     msgBuf(lBuf:lBuf+mon_prefL-1) = mon_pref(1:mon_prefL)
148     lBuf = lBuf+mon_prefL-1
149     mon_vname(1:mon_prefL) = mon_pref(1:mon_prefL)
150     nvname = mon_prefL
151     ELSE
152     nvname = 0
153 cnh 1.1 ENDIF
154    
155     I0 = IFNBLNK(pref)
156     I1 = ILNBLNK(pref)
157     IL = I1-I0+1
158     IF ( IL .GT. 0 ) THEN
159 edhill 1.8 IF ( pref(I0:I1) .NE. mon_string_none .AND.
160     & lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN
161     lBuf = lBuf+1
162     msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1)
163     lBuf = lBuf+IL-1
164     mon_vname((nvname+1):(nvname+IL)) = pref(I0:I1)
165     nvname = nvname + IL
166     ENDIF
167 cnh 1.1 ENDIF
168    
169 edhill 1.8 I0 = IFNBLNK(foot)
170     I1 = ILNBLNK(foot)
171     IL = I1-I0+1
172 cnh 1.1 IF ( IL .GT. 0 ) THEN
173 edhill 1.8 IF ( foot(I0:I1) .NE. mon_string_none .AND.
174     & lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN
175     lBuf = lBuf+1
176     msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1)
177     lBuf = lBuf+IL-1
178     mon_vname((nvname+1):(nvname+IL)) = foot(I0:I1)
179     nvname = nvname + IL
180     ENDIF
181 cnh 1.1 ENDIF
182    
183 edhill 1.8 C write(*,*) 'mon_vname = ''', mon_vname(1:nvname), ''''
184 edhill 1.9 C write(*,*) 'mon_write_mnc = ''', mon_write_mnc, ''''
185     C write(*,*) 'mon_write_stdout = ''', mon_write_stdout, ''''
186 edhill 1.8
187 cnh 1.1 msgBuf(35:35) = '='
188    
189 adcroft 1.2 _BEGIN_MASTER(myThid)
190 dimitri 1.4 #ifdef ALLOW_USE_MPI
191 edhill 1.6 IF ( .NOT. useSingleCPUIO .OR. mpiMyId .EQ. 0 ) THEN
192 dimitri 1.4 #endif /* ALLOW_USE_MPI */
193 edhill 1.9
194     IF (mon_write_stdout) THEN
195     IF (itype .EQ. 1)
196     & WRITE(msgBuf(36:57),'(1X,I21)') ival
197     IF (itype .EQ. 2)
198     & WRITE(msgBuf(36:57),'(1X,1P1E21.13)') dval
199     CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1)
200     ENDIF
201 edhill 1.8
202     #ifdef ALLOW_MNC
203 edhill 1.9 IF (useMNC .AND. mon_write_mnc) THEN
204 edhill 1.8 CALL MNC_CW_APPEND_VNAME(
205     & mon_vname, '-_-_--__-__t', 0,0, myThid)
206     IF (itype .EQ. 1)
207     & CALL MNC_CW_I_W(
208     & 'I','monitor',1,1,mon_vname, ival, myThid)
209     IF (itype .EQ. 2)
210     & CALL MNC_CW_RL_W(
211     & 'D','monitor',1,1,mon_vname, dval, myThid)
212     ENDIF
213     #endif /* ALLOW_MNC */
214    
215 dimitri 1.4 #ifdef ALLOW_USE_MPI
216 edhill 1.6 ENDIF
217 dimitri 1.4 #endif /* ALLOW_USE_MPI */
218 adcroft 1.2 _END_MASTER()
219 cnh 1.1
220     RETURN
221     END
222 edhill 1.6
223     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
  ViewVC Help
Powered by ViewVC 1.1.22