source: palm/tags/release-3.3/UTIL/compare_palm_logs.f90 @ 540

Last change on this file since 540 was 1, checked in by raasch, 18 years ago

Initial repository layout and content

File size: 9.9 KB
Line 
1 PROGRAM compare_palm_logs
2
3!------------------------------------------------------------------------------!
4! Actual revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10!
11! Description:
12! ------------
13! This routine compares the log files from two different PALM runs.
14!
15! This routine must be compiled with:
16! decalpha:
17!    f95 -cpp -fast -r8
18! IBM-Regatta:
19!    xlf95 -qsuffix=cpp=f90 -qrealsize=8 -q64 -qmaxmem=-1 -Q -O3
20! IMUK:
21!    ifort compare...f90 -o compare...x
22!    -cpp -axW -r8 -nbs -Vaxlib
23! NEC-SX6:
24!    sxf90 compare...f90 -o compare...x
25!    -C hopt -Wf '-A idbl4'
26!------------------------------------------------------------------------------!
27
28    IMPLICIT NONE
29
30!
31!-- Local variables
32    CHARACTER (LEN=5) ::  id_char
33    CHARACTER (LEN=80), DIMENSION(2)  ::  directory, log_message
34    CHARACTER (LEN=100), DIMENSION(2) ::  filename
35
36    INTEGER ::  count=0, i, id, i1(2), i2(2), j, j1(2), j2(2), k, k1(2), k2(2), &
37                n_err, n_files(2)
38
39    LOGICAL ::  found
40
41    REAL    ::  simtime(2)
42
43    INTEGER, DIMENSION(:,:),   ALLOCATABLE ::  array_2d_i_1, array_2d_i_2
44
45    REAL, DIMENSION(:,:),   ALLOCATABLE ::  array_2d_1, array_2d_2
46    REAL, DIMENSION(:,:,:), ALLOCATABLE ::  array_1, array_2
47
48    directory(1) = 'const_log/'
49    directory(2) = 'const_log.1/'
50
51!
52!-- Check, if file from PE0 exists on directory 1. Stop, if it does not exist.
53    n_files(1) = 0
54
55    WRITE (id_char,'(''_'',I4.4)')  n_files(1)
56    INQUIRE ( FILE=TRIM( directory(1) )//id_char, EXIST=found )
57!
58!-- Find out the number of files (equal to the number of PEs which
59!-- have been used in PALM) and open them
60    DO  WHILE ( found )
61
62       OPEN ( n_files(1)+100, FILE=TRIM( directory(1) )//id_char, &
63              FORM='UNFORMATTED' )
64       n_files(1) = n_files(1) + 1
65       WRITE (id_char,'(''_'',I4.4)')  n_files(1)
66       INQUIRE ( FILE=TRIM( directory(1) )//id_char, EXIST=found )
67
68    ENDDO
69
70    IF ( n_files(1) == 0 )  THEN
71       PRINT*, '+++ no file _0000 in directory "', TRIM( directory(1) ), '"'
72       STOP
73    ELSE
74       PRINT*, '*** directory "', TRIM( directory(1) ), '": ', n_files(1), &
75               ' files found'
76    ENDIF
77
78!
79!-- Same for the second directory
80    n_files(2) = 0
81
82    WRITE (id_char,'(''_'',I4.4)')  n_files(2)
83    INQUIRE ( FILE=TRIM( directory(2) )//id_char, EXIST=found )
84
85    DO  WHILE ( found )
86
87       OPEN ( n_files(2)+200, FILE=TRIM( directory(2) )//id_char, &
88              FORM='UNFORMATTED' )
89       n_files(2) = n_files(2) + 1
90       WRITE (id_char,'(''_'',I4.4)')  n_files(2)
91       INQUIRE ( FILE=TRIM( directory(2) )//id_char, EXIST=found )
92
93    ENDDO
94
95!
96!-- Number of files must be identical
97    IF ( n_files(1) /= n_files(2) )  THEN
98       PRINT*, '+++ file number mismatch'
99       PRINT*, '    ', TRIM( directory(1) ), ': ', n_files(1), ' files'
100       PRINT*, '    ', TRIM( directory(2) ), ': ', n_files(2), ' files'
101       STOP
102    ENDIF
103
104!
105!-- Compare the data file by file
106    DO  id = 0, n_files(1)-1
107
108       count = 0
109
110       WRITE (filename(1),'(A,''_'',I4.4)')  TRIM( directory(1) ), id
111       WRITE (filename(2),'(A,''_'',I4.4)')  TRIM( directory(2) ), id
112
113       PRINT*, '*** comparing files "', TRIM( filename(1) ),'" "', &
114               TRIM( filename(2) ), '"'
115       DO
116          PRINT*,' '
117          READ ( id+100, END=100 )  log_message(1)
118          PRINT*,'    --- ', TRIM( log_message(1) )
119          READ ( id+200, END=900 )  log_message(2)
120
121          IF ( TRIM( log_message(1) ) /= TRIM( log_message(2) ) )  THEN
122             PRINT*,'    +++ log message on file 2 does not match:'
123             PRINT*,'        ', TRIM( log_message(2) )
124          ENDIF
125
126          count = count + 1
127          IF ( log_message(1)(1:2) == '3d' )  THEN
128             PRINT*,'    *** reading 3d array'
129             READ ( id+100, END=901 )  simtime(1), i1(1), i2(1), j1(1), j2(1), &
130                                       k1(1), k2(1)
131             PRINT*,'        time=', simtime(1)
132             PRINT*,'        array size=(',i1(1),':',i2(1), &
133                                       ',',j1(1),':',j2(1),',',k1(1),':',k2(1),')'
134             READ ( id+200, END=902 )  simtime(2), i1(2), i2(2), j1(2), j2(2), &
135                                       k1(2), k2(2)
136             IF ( simtime(1) /= simtime(2) .OR. i1(1) /= i1(2) .OR. &
137                  i2(1) /= i2(2) .OR. j1(1) /= j1(2) .OR. j2(1) /= j2(2) .OR. &
138                  k1(1) /= k1(2) .OR. k2(1) /= k2(2) )  THEN
139                PRINT*,'    +++ time/indices on file 2 does not match:'
140                PRINT*,'        time=', simtime(2)
141                PRINT*,'        array size=(',i1(2),':', &
142                                i2(2), ',',j1(2),':',j2(2),',',k1(2),':',k2(2),')'
143                STOP
144             ENDIF
145
146             ALLOCATE( array_1(i1(1):i2(1),j1(1):j2(1),k1(1):k2(1)), &
147                       array_2(i1(2):i2(2),j1(2):j2(2),k1(2):k2(2)) )
148
149             READ ( id+100, END=903 )  array_1
150             READ ( id+200, END=904 )  array_2
151
152             n_err = 0
153loop:        DO  k = k1(1), k2(1)
154loop1:           DO  j = j1(1), j2(1)
155                   DO  i = i1(1), i2(1)
156                      IF ( array_1(i,j,k) /= array_2(i,j,k) )  THEN
157                         PRINT*,'+++ data mismatch on element (',i,',',j,',',k,')'
158                         PRINT*,'    array_1: ', array_1(i,j,k)
159                         PRINT*,'    array_2: ', array_2(i,j,k)
160                         n_err = n_err + 1
161                         IF ( n_err > 5 )  EXIT loop
162                      ENDIF
163                   ENDDO
164                ENDDO loop1
165             ENDDO loop
166
167             DEALLOCATE( array_1, array_2 )
168
169          ELSEIF ( log_message(1)(1:2) == '2d' )  THEN
170             PRINT*,'    *** reading 2d array'
171             READ ( id+100, END=901 )  simtime(1), i1(1), i2(1), j1(1), j2(1)
172             PRINT*,'        time=', simtime(1)
173             PRINT*,'        array size=(',i1(1),':',i2(1), &
174                                       ',',j1(1),':',j2(1),')'
175             READ ( id+200, END=902 )  simtime(2), i1(2), i2(2), j1(2), j2(2)
176             IF ( simtime(1) /= simtime(2) .OR. i1(1) /= i1(2) .OR. &
177                  i2(1) /= i2(2) .OR. j1(1) /= j1(2) .OR. j2(1) /= j2(2) )  THEN
178                PRINT*,'    +++ time/indices on file 2 does not match:'
179                PRINT*,'        time=', simtime(2)
180                PRINT*,'        array size=(',i1(2),':', &
181                                i2(2), ',',j1(2),':',j2(2),')'
182             ENDIF
183
184             ALLOCATE( array_2d_1(i1(1):i2(1),j1(1):j2(1)), &
185                       array_2d_2(i1(2):i2(2),j1(2):j2(2)) )
186
187             READ ( id+100, END=903 )  array_2d_1
188             READ ( id+200, END=904 )  array_2d_2
189
190             IF ( i1(1) /= i1(2) )  i1(1) = i1(2)
191             IF ( i2(1) /= i2(2) )  i2(1) = i2(2)
192             IF ( j1(1) /= j1(2) )  j1(1) = j1(2)
193             IF ( j2(1) /= j2(2) )  j2(1) = j2(2)
194
195             n_err = 0
196loop2:       DO  j = j1(1), j2(1)
197                DO  i = i1(1), i2(1)
198                   IF ( array_2d_1(i,j) /= array_2d_2(i,j) )  THEN
199                      PRINT*,'+++ data mismatch on element (',i,',',j,')'
200                      PRINT*,'    array_1: ', array_2d_1(i,j)
201                      PRINT*,'    array_2: ', array_2d_2(i,j)
202                      n_err = n_err + 1
203                      IF ( n_err > 5 )  EXIT loop2
204                   ENDIF
205                ENDDO
206             ENDDO loop2
207
208             DEALLOCATE( array_2d_1, array_2d_2 )
209
210          ELSE
211             PRINT*,'    *** reading 2d int array'
212             READ ( id+100, END=901 )  simtime(1), i1(1), i2(1), j1(1), j2(1)
213             PRINT*,'        time=', simtime(1)
214             PRINT*,'        array size=(',i1(1),':',i2(1), &
215                                       ',',j1(1),':',j2(1),')'
216             READ ( id+200, END=902 )  simtime(2), i1(2), i2(2), j1(2), j2(2)
217             IF ( simtime(1) /= simtime(2) .OR. i1(1) /= i1(2) .OR. &
218                  i2(1) /= i2(2) .OR. j1(1) /= j1(2) .OR. j2(1) /= j2(2) )  THEN
219                PRINT*,'    +++ time/indices on file 2 does not match:'
220                PRINT*,'        time=', simtime(2)
221                PRINT*,'        array size=(',i1(2),':', &
222                                i2(2), ',',j1(2),':',j2(2),')'
223             ENDIF
224
225             ALLOCATE( array_2d_i_1(i1(1):i2(1),j1(1):j2(1)), &
226                       array_2d_i_2(i1(2):i2(2),j1(2):j2(2)) )
227
228             READ ( id+100, END=903 )  array_2d_i_1
229             READ ( id+200, END=904 )  array_2d_i_2
230
231             IF ( i1(1) /= i1(2) )  i1(1) = i1(2)
232             IF ( i2(1) /= i2(2) )  i2(1) = i2(2)
233             IF ( j1(1) /= j1(2) )  j1(1) = j1(2)
234             IF ( j2(1) /= j2(2) )  j2(1) = j2(2)
235
236             n_err = 0
237loop3:       DO  j = j1(1), j2(1)
238                DO  i = i1(1), i2(1)
239                   IF ( array_2d_i_1(i,j) /= array_2d_i_2(i,j) )  THEN
240                      PRINT*,'+++ data mismatch on element (',i,',',j,')'
241                      PRINT*,'    array_1: ', array_2d_i_1(i,j)
242                      PRINT*,'    array_2: ', array_2d_i_2(i,j)
243                      n_err = n_err + 1
244                      IF ( n_err > 5 )  EXIT loop3
245                   ENDIF
246                ENDDO
247             ENDDO loop3
248
249             DEALLOCATE( array_2d_i_1, array_2d_i_2 )
250
251          ENDIF
252
253!          IF ( count > 8 )  STOP
254       ENDDO
255
256100    PRINT*, '*** end of data on file "', TRIM( filename(1) ), '"'
257       PRINT*, '*** files seem to be identical'
258       PRINT*, ' '
259    ENDDO
260
261    STOP
262
263900 PRINT*,'+++ unexpected end on file "', TRIM( filename(2) ), '"'
264    STOP
265901 PRINT*,'+++ unexpected end on file "', TRIM( filename(1) ), '"'
266    PRINT*,'    while reading indices'
267    STOP
268902 PRINT*,'+++ unexpected end on file "', TRIM( filename(2) ), '"'
269    PRINT*,'    while reading indices'
270    STOP
271903 PRINT*,'+++ unexpected end on file "', TRIM( filename(1) ), '"'
272    PRINT*,'    while reading array data'
273    STOP
274904 PRINT*,'+++ unexpected end on file "', TRIM( filename(2) ), '"'
275    PRINT*,'    while reading array data'
276    STOP
277
278 END PROGRAM compare_palm_logs
279
280
281
Note: See TracBrowser for help on using the repository browser.