source: palm/trunk/SOURCE/read_3d_binary.f90 @ 377

Last change on this file since 377 was 367, checked in by maronga, 15 years ago

adapted for machine lck

  • Property svn:keywords set to Id
File size: 41.9 KB
Line 
1 SUBROUTINE read_3d_binary
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6! Output of messages replaced by message handling routine.
7! +shf_av, qsws_av
8!
9! Former revisions:
10! -----------------
11! $Id: read_3d_binary.f90 367 2009-08-25 08:35:52Z raasch $
12!
13! 220 2008-12-18 07:00:36Z raasch
14! reading mechanism completely revised (subdomain/total domain size can vary
15! arbitrarily between current and previous run)
16! Bugfix: reading of spectrum_x|y from restart files ignored if total numbers
17! of grid points do not match
18!
19! 150 2008-02-29 08:19:58Z raasch
20! Files from which restart data are to be read are determined and subsequently
21! opened. The total domain on the restart file is allowed to be smaller than
22! the current total domain. In this case it will be periodically mapped on the
23! current domain (needed for recycling method).
24! +call of user_read_restart_data, -dopr_time_count,
25! hom_sum, volume_flow_area, volume_flow_initial moved to read_var_list,
26! reading of old profil parameters (cross_..., dopr_crossindex, profile_***)
27! removed, initialization of spectrum_x|y removed
28!
29! 102 2007-07-27 09:09:17Z raasch
30! +uswst, uswst_m, vswst, vswst_m
31!
32! 96 2007-06-04 08:07:41Z raasch
33! +rho_av, sa, sa_av, saswsb, saswst
34!
35! 73 2007-03-20 08:33:14Z raasch
36! +precipitation_amount, precipitation_rate_av, rif_wall, u_m_l, u_m_r, etc.,
37! z0_av
38!
39! 19 2007-02-23 04:53:48Z raasch
40! +qswst, qswst_m, tswst, tswst_m
41!
42! RCS Log replace by Id keyword, revision history cleaned up
43!
44! Revision 1.4  2006/08/04 15:02:32  raasch
45! +iran, iran_part
46!
47! Revision 1.1  2004/04/30 12:47:27  raasch
48! Initial revision
49!
50!
51! Description:
52! ------------
53! Binary input of variables and arrays from restart file
54!------------------------------------------------------------------------------!
55
56    USE arrays_3d
57    USE averaging
58    USE cloud_parameters
59    USE control_parameters
60    USE cpulog
61    USE indices
62    USE interfaces
63    USE particle_attributes
64    USE pegrid
65    USE profil_parameter
66    USE random_function_mod
67    USE statistics
68
69    IMPLICIT NONE
70
71    CHARACTER (LEN=5)  ::  myid_char_save
72    CHARACTER (LEN=10) ::  binary_version, version_on_file
73    CHARACTER (LEN=20) ::  field_chr
74
75    INTEGER ::  files_to_be_opened, i, j, k, myid_on_file,                    &
76                numprocs_on_file, nxlc, nxlf, nxlpr, nxl_on_file, nxrc, nxrf, &
77                nxrpr, nxr_on_file, nync, nynf, nynpr, nyn_on_file, nysc,     &
78                nysf, nyspr, nys_on_file, nzb_on_file, nzt_on_file, offset_x, &
79                offset_y, shift_x, shift_y
80
81    INTEGER, DIMENSION(numprocs_previous_run) ::  file_list, overlap_count
82
83    INTEGER, DIMENSION(numprocs_previous_run,1000) ::  nxlfa, nxrfa, nynfa, &
84                                                       nysfa, offset_xa, &
85                                                       offset_ya
86    REAL ::  rdummy
87
88    REAL, DIMENSION(:,:), ALLOCATABLE     ::  tmp_2d
89    REAL, DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d, tmp_3dwul, tmp_3dwun,    &
90                                              tmp_3dwur, tmp_3dwus, tmp_3dwvl, &
91                                              tmp_3dwvn, tmp_3dwvr, tmp_3dwvs, &
92                                              tmp_3dwwl, tmp_3dwwn, tmp_3dwwr, &
93                                              tmp_3dwws
94    REAL, DIMENSION(:,:,:,:), ALLOCATABLE ::  tmp_4d
95
96
97!
98!-- Read data from previous model run.
99    CALL cpu_log( log_point_s(14), 'read_3d_binary', 'start' )
100
101!
102!-- Check which of the restart files contain data needed for the subdomain
103!-- of this PE
104    files_to_be_opened = 0
105
106    DO  i = 1, numprocs_previous_run
107!
108!--    Store array bounds of the previous run ("pr") in temporary scalars
109       nxlpr = hor_index_bounds_previous_run(1,i-1)
110       nxrpr = hor_index_bounds_previous_run(2,i-1)
111       nyspr = hor_index_bounds_previous_run(3,i-1)
112       nynpr = hor_index_bounds_previous_run(4,i-1)
113
114!
115!--    Determine the offsets. They may be non-zero in case that the total domain
116!--    on file is smaller than the current total domain.
117       offset_x = ( nxl / ( nx_on_file + 1 ) ) * ( nx_on_file + 1 )
118       offset_y = ( nys / ( ny_on_file + 1 ) ) * ( ny_on_file + 1 )
119
120!
121!--    Start with this offset and then check, if the subdomain on file
122!--    matches another time(s) in the current subdomain by shifting it
123!--    for nx_on_file+1, ny_on_file+1 respectively
124
125       shift_y = 0
126       j       = 0  ! counter for the number of files to be opened
127
128       DO WHILE ( nyspr+shift_y <= nyn-offset_y  .AND.  &
129                  nynpr+shift_y >= nys-offset_y )
130
131          shift_x = 0
132
133          DO WHILE ( nxlpr+shift_x <= nxr-offset_x  .AND. &
134                     nxrpr+shift_x >= nxl-offset_x )
135
136             j = j +1
137
138             IF ( j > 1000 )  THEN
139!
140!--             Array bound exceeded
141                message_string = 'data from subdomain of previous' // &
142                                 ' run mapped more than 1000 times'
143                CALL message( 'read_3d_binary', 'PA0284', 2, 2, -1, 6, 1 )
144 
145             ENDIF
146
147             IF ( j == 1 )  THEN
148                files_to_be_opened = files_to_be_opened + 1
149                file_list(files_to_be_opened) = i-1
150             ENDIF
151
152             offset_xa(files_to_be_opened,j) = offset_x + shift_x
153             offset_ya(files_to_be_opened,j) = offset_y + shift_y
154
155!
156!--          Index bounds of overlapping data
157             nxlfa(files_to_be_opened,j) = MAX( nxl-offset_x-shift_x, nxlpr )
158             nxrfa(files_to_be_opened,j) = MIN( nxr-offset_x-shift_x, nxrpr )
159             nysfa(files_to_be_opened,j) = MAX( nys-offset_y, nyspr )
160             nynfa(files_to_be_opened,j) = MIN( nyn-offset_y, nynpr )
161
162             shift_x = shift_x + ( nx_on_file + 1 )
163
164          ENDDO
165
166          shift_y = shift_y + ( ny_on_file + 1 )
167
168       ENDDO
169
170       IF ( j > 0 )  overlap_count(files_to_be_opened) = j
171
172!
173!--    Test output, to be removed later
174       IF ( j > 0 )  THEN
175          WRITE (9,*) '*** reading from file: ', i, j, ' times'
176          WRITE (9,*) '    nxl = ', nxl, ' nxr = ', nxr, ' nys = ', nys, ' nyn = ', nyn
177          WRITE (9,*) ' '
178          DO  k = 1, j
179             WRITE (9,*) 'k = ', k
180             WRITE (9,'(6(A,I2))')  'nxlfa = ', nxlfa(files_to_be_opened,k), &
181                         ' nxrfa = ', nxrfa(files_to_be_opened,k), &
182                         ' offset_xa = ', offset_xa(files_to_be_opened,k), &
183                         ' nysfa = ', nysfa(files_to_be_opened,k), &
184                         ' nynfa = ', nynfa(files_to_be_opened,k), &
185                         ' offset_ya = ', offset_ya(files_to_be_opened,k)
186          ENDDO
187          CALL local_flush( 9 )
188       ENDIF
189
190    ENDDO
191
192!
193!-- Save the id-string of the current process, since myid_char may now be used
194!-- to open files created by PEs with other id.
195    myid_char_save = myid_char
196
197!
198!-- Test output (remove later)
199    DO i = 1, numprocs_previous_run
200       WRITE (9,*) 'i=',i-1, ' ibs= ',hor_index_bounds_previous_run(1:4,i-1)
201    ENDDO
202    CALL local_flush( 9 )
203
204    IF ( files_to_be_opened /= 1  .OR.  numprocs /= numprocs_previous_run ) &
205    THEN
206       WRITE( message_string, * ) 'number of PEs or virtual PE-grid changed ', &
207                        'in restart run&  PE', myid, ' will read from files ', &
208                         file_list(1:files_to_be_opened)
209       CALL message( 'read_3d_binary', 'PA0285', 0, 0, 0, 6, 0 )
210    ENDIF
211
212!
213!-- Read data from all restart files determined above
214    DO  i = 1, files_to_be_opened
215
216       j = file_list(i)
217!
218!--    Set the filename (underscore followed by four digit processor id)
219       WRITE (myid_char,'(''_'',I4.4)')  j
220       WRITE (9,*) 'myid=',myid,' opening file "',myid_char,'"'
221       CALL local_flush( 9 )
222
223!
224!--    Open the restart file. If this file has been created by PE0 (_0000),
225!--    the global variables at the beginning of the file have to be skipped
226!--    first.
227       CALL check_open( 13 )
228       WRITE (9,*) 'before skipping'
229       CALL local_flush( 9 )
230       IF ( j == 0 )  CALL skip_var_list
231       WRITE (9,*) 'skipping done'
232       CALL local_flush( 9 )
233
234!
235!--    First compare the version numbers
236       READ ( 13 )  version_on_file
237       binary_version = '3.1'
238       IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
239          WRITE( message_string, * ) 'version mismatch concerning data ',      &
240                      'from prior run',                                        &
241                      '&version on file    = "', TRIM( version_on_file ), '"', &
242                      '&version in program = "', TRIM( binary_version ), '"'
243          CALL message( 'read_3d_binary', 'PA0286', 1, 2, 0, 6, 0 )
244       ENDIF
245
246!
247!--    Read number of processors, processor-id, and array ranges.
248!--    Compare the array ranges with those stored in the index bound array.
249       READ ( 13 )  numprocs_on_file, myid_on_file, nxl_on_file, nxr_on_file, &
250                    nys_on_file, nyn_on_file, nzb_on_file, nzt_on_file
251
252       IF ( nxl_on_file /= hor_index_bounds_previous_run(1,j) )  THEN
253          WRITE( message_string, * ) 'problem with index bound nxl on ',  &
254                            'restart file "', myid_char, '"',             &
255                            '&nxl = ', nxl_on_file, ' but it should be',  &
256                            '&= ', hor_index_bounds_previous_run(1,j),    &
257                            '&from the index bound information array'
258          CALL message( 'read_3d_binary', 'PA0287', 2, 2, -1, 6, 1 )
259       ENDIF
260
261       IF ( nxr_on_file /= hor_index_bounds_previous_run(2,j) )  THEN
262           WRITE( message_string, * ) 'problem with index bound nxr on ',   &
263                               'restart file "', myid_char, '"'  ,          &
264                               '&nxr = ', nxr_on_file, ' but it should be', &
265                               '&= ', hor_index_bounds_previous_run(2,j),   &
266                               '&from the index bound information array' 
267          CALL message( 'read_3d_binary', 'PA0288', 2, 2, -1, 6, 1 )
268
269       ENDIF
270
271       IF ( nys_on_file /= hor_index_bounds_previous_run(3,j) )  THEN
272          WRITE( message_string, * ) 'problem with index bound nys on ',      &
273                                 'restart file "', myid_char, '"',            &
274                                 '&nys = ', nys_on_file, ' but it should be', &
275                                 '&= ', hor_index_bounds_previous_run(3,j),   &
276                                     '&from the index bound information array'
277          CALL message( 'read_3d_binary', 'PA0289', 2, 2, -1, 6, 1 ) 
278       ENDIF
279
280       IF ( nyn_on_file /= hor_index_bounds_previous_run(4,j) )  THEN
281          WRITE( message_string, * ) 'problem with index bound nyn on ',    &
282                               'restart file "', myid_char, '"',            &
283                               '&nyn = ', nyn_on_file, ' but it should be', &
284                               '&= ', hor_index_bounds_previous_run(4,j),   &
285                               '&from the index bound information array'
286          CALL message( 'read_3d_binary', 'PA0290', 2, 2, -1, 6, 1 ) 
287       ENDIF
288
289       IF ( nzb_on_file /= nzb )  THEN
290          WRITE( message_string, * ) 'mismatch between actual data and data ', &
291                                     '&from prior run on PE ', myid,           &
292                                     '&nzb on file = ', nzb_on_file,           &
293                                     '&nzb         = ', nzb
294          CALL message( 'read_3d_binary', 'PA0291', 1, 2, 0, 6, 0 ) 
295       ENDIF
296
297       IF ( nzt_on_file /= nzt )  THEN
298          WRITE( message_string, * ) 'mismatch between actual data and data ', &
299                                     '&from prior run on PE ', myid,           &
300                                     '&nzt on file = ', nzt_on_file,           &
301                                     '&nzt         = ', nzt
302          CALL message( 'read_3d_binary', 'PA0292', 1, 2, 0, 6, 0 ) 
303       ENDIF
304
305!
306!--    Allocate temporary arrays sized as the arrays on the restart file
307       ALLOCATE( tmp_2d(nys_on_file-1:nyn_on_file+1,           &
308                        nxl_on_file-1:nxr_on_file+1),          &
309                 tmp_3d(nzb:nzt+1,nys_on_file-1:nyn_on_file+1, &
310                        nxl_on_file-1:nxr_on_file+1) )
311
312!
313!--    Read arrays
314!--    ATTENTION: If the following read commands have been altered, the
315!--    ---------- version number of the variable binary_version must be altered,
316!--               too. Furthermore, the output list of arrays in write_3d_binary
317!--               must also be altered accordingly.
318       READ ( 13 )  field_chr
319       DO  WHILE ( TRIM( field_chr ) /= '*** end ***' )
320
321!
322!--       Map data on file as often as needed (data are read only for k=1)
323          DO  k = 1, overlap_count(i)
324
325!
326!--          Get the index range of the subdomain on file which overlap with the
327!--          current subdomain
328             nxlf = nxlfa(i,k)
329             nxlc = nxlfa(i,k) + offset_xa(i,k)
330             nxrf = nxrfa(i,k)
331             nxrc = nxrfa(i,k) + offset_xa(i,k)
332             nysf = nysfa(i,k)
333             nysc = nysfa(i,k) + offset_ya(i,k)
334             nynf = nynfa(i,k)
335             nync = nynfa(i,k) + offset_ya(i,k)
336
337
338             WRITE (9,*) 'var = ', field_chr
339             CALL local_flush( 9 )
340
341             SELECT CASE ( TRIM( field_chr ) )
342
343                CASE ( 'e' )
344                   IF ( k == 1 )  READ ( 13 )  tmp_3d
345                   e(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
346                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
347
348                CASE ( 'e_av' )
349                   IF ( .NOT. ALLOCATED( e_av ) )  THEN
350                      ALLOCATE( e_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
351                   ENDIF
352                   IF ( k == 1 )  READ ( 13 )  tmp_3d
353                   e_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
354                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
355
356                CASE ( 'e_m' )
357                   IF ( k == 1 )  READ ( 13 )  tmp_3d
358                   e_m(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
359                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
360
361                CASE ( 'iran' ) ! matching random numbers is still unresolved
362                                ! issue
363                   IF ( k == 1 )  READ ( 13 )  iran, iran_part
364
365                CASE ( 'kh' )
366                   IF ( k == 1 )  READ ( 13 )  tmp_3d
367                   kh(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
368                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
369
370                CASE ( 'kh_m' )
371                   IF ( k == 1 )  READ ( 13 )  tmp_3d
372                   kh_m(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
373                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
374
375                CASE ( 'km' )
376                   IF ( k == 1 )  READ ( 13 )  tmp_3d
377                   km(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
378                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
379
380                CASE ( 'km_m' )
381                   IF ( k == 1 )  READ ( 13 )  tmp_3d
382                   km_m(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
383                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
384
385                CASE ( 'lwp_av' )
386                   IF ( .NOT. ALLOCATED( lwp_av ) )  THEN
387                      ALLOCATE( lwp_av(nys-1:nyn+1,nxl-1:nxr+1) )
388                   ENDIF
389                   IF ( k == 1 )  READ ( 13 )  tmp_2d
390                   lwp_av(nysc-1:nync+1,nxlc-1:nxrc+1) = &
391                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
392
393                CASE ( 'p' )
394                   IF ( k == 1 )  READ ( 13 )  tmp_3d
395                   p(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
396                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
397
398                CASE ( 'p_av' )
399                   IF ( .NOT. ALLOCATED( p_av ) )  THEN
400                      ALLOCATE( p_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
401                   ENDIF
402                   IF ( k == 1 )  READ ( 13 )  tmp_3d
403                   p_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
404                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
405
406                CASE ( 'pc_av' )
407                   IF ( .NOT. ALLOCATED( pc_av ) )  THEN
408                      ALLOCATE( pc_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
409                   ENDIF
410                   IF ( k == 1 )  READ ( 13 )  tmp_3d
411                   pc_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
412                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
413
414                CASE ( 'pr_av' )
415                   IF ( .NOT. ALLOCATED( pr_av ) )  THEN
416                      ALLOCATE( pr_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
417                   ENDIF
418                   IF ( k == 1 )  READ ( 13 )  tmp_3d
419                   pr_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
420                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
421
422                CASE ( 'precipitation_amount' )
423                   IF ( k == 1 )  READ ( 13 )  tmp_2d
424                   precipitation_amount(nysc-1:nync+1,nxlc-1:nxrc+1) = &
425                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
426
427                CASE ( 'precipitation_rate_a' )
428                   IF ( .NOT. ALLOCATED( precipitation_rate_av ) )  THEN
429                      ALLOCATE( precipitation_rate_av(nys-1:nyn+1,nxl-1:nxr+1) )
430                   ENDIF
431                   IF ( k == 1 )  READ ( 13 )  tmp_2d
432                   precipitation_rate_av(nysc-1:nync+1,nxlc-1:nxrc+1) = &
433                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
434
435                CASE ( 'pt' )
436                   IF ( k == 1 )  READ ( 13 )  tmp_3d
437                   pt(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
438                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
439
440                CASE ( 'pt_av' )
441                   IF ( .NOT. ALLOCATED( pt_av ) )  THEN
442                      ALLOCATE( pt_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
443                   ENDIF
444                   IF ( k == 1 )  READ ( 13 )  tmp_3d
445                   pt_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
446                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
447
448                CASE ( 'pt_m' )
449                   IF ( k == 1 )  READ ( 13 )  tmp_3d
450                   pt_m(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
451                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
452
453                CASE ( 'q' )
454                   IF ( k == 1 )  READ ( 13 )  tmp_3d
455                   q(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
456                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
457
458                CASE ( 'q_av' )
459                   IF ( .NOT. ALLOCATED( q_av ) )  THEN
460                      ALLOCATE( q_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
461                   ENDIF
462                   IF ( k == 1 )  READ ( 13 )  tmp_3d
463                   q_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
464                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
465
466                CASE ( 'q_m' )
467                   IF ( k == 1 )  READ ( 13 )  tmp_3d
468                   q_m(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
469                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
470
471                CASE ( 'ql' )
472                   IF ( k == 1 )  READ ( 13 )  tmp_3d
473                   ql(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
474                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
475
476                CASE ( 'ql_av' )
477                   IF ( .NOT. ALLOCATED( ql_av ) )  THEN
478                      ALLOCATE( ql_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
479                   ENDIF
480                   IF ( k == 1 )  READ ( 13 )  tmp_3d
481                   ql_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
482                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
483
484                CASE ( 'ql_c_av' )
485                   IF ( .NOT. ALLOCATED( ql_c_av ) )  THEN
486                      ALLOCATE( ql_c_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
487                   ENDIF
488                   IF ( k == 1 )  READ ( 13 )  tmp_3d
489                   ql_c_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
490                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
491
492                CASE ( 'ql_v_av' )
493                   IF ( .NOT. ALLOCATED( ql_v_av ) )  THEN
494                      ALLOCATE( ql_v_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
495                   ENDIF
496                   IF ( k == 1 )  READ ( 13 )  tmp_3d
497                   ql_v_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
498                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
499
500                CASE ( 'ql_vp_av' )
501                   IF ( .NOT. ALLOCATED( ql_vp_av ) )  THEN
502                      ALLOCATE( ql_vp_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
503                   ENDIF
504                   IF ( k == 1 )  READ ( 13 )  tmp_3d
505                   ql_vp_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
506                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
507
508                CASE ( 'qs' )
509                   IF ( k == 1 )  READ ( 13 )  tmp_2d
510                   qs(nysc-1:nync+1,nxlc-1:nxrc+1) = &
511                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
512
513                CASE ( 'qsws' )
514                   IF ( k == 1 )  READ ( 13 )  tmp_2d
515                   qsws(nysc-1:nync+1,nxlc-1:nxrc+1) = &
516                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
517
518                CASE ( 'qsws_m' )
519                   IF ( k == 1 )  READ ( 13 )  tmp_2d
520                   qsws_m(nysc-1:nync+1,nxlc-1:nxrc+1) = &
521                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
522
523                CASE ( 'qsws_av' )
524                   IF ( .NOT. ALLOCATED( qsws_av ) )  THEN
525                      ALLOCATE( qsws_av(nys-1:nyn+1,nxl-1:nxr+1) )
526                   ENDIF 
527                   IF ( k == 1 )  READ ( 13 )  tmp_2d
528                   qsws_av(nysc-1:nync+1,nxlc-1:nxrc+1) = &
529                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
530
531                CASE ( 'qswst' )
532                   IF ( k == 1 )  READ ( 13 )  tmp_2d
533                   qswst(nysc-1:nync+1,nxlc-1:nxrc+1) = &
534                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
535
536                CASE ( 'qswst_m' )
537                   IF ( k == 1 )  READ ( 13 )  tmp_2d
538                   qswst_m(nysc-1:nync+1,nxlc-1:nxrc+1) = &
539                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
540
541                CASE ( 'qv_av' )
542                   IF ( .NOT. ALLOCATED( qv_av ) )  THEN
543                      ALLOCATE( qv_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
544                   ENDIF
545                   IF ( k == 1 )  READ ( 13 )  tmp_3d
546                   qv_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
547                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
548
549                CASE ( 'random_iv' )  ! still unresolved issue
550                   IF ( k == 1 )  READ ( 13 )  random_iv
551                   IF ( k == 1 )  READ ( 13 )  random_iy
552
553                CASE ( 'rho_av' )
554                   IF ( .NOT. ALLOCATED( rho_av ) )  THEN
555                      ALLOCATE( rho_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
556                   ENDIF
557                   IF ( k == 1 )  READ ( 13 )  tmp_3d
558                   rho_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
559                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
560
561                CASE ( 'rif' )
562                   IF ( k == 1 )  READ ( 13 )  tmp_2d
563                   rif(nysc-1:nync+1,nxlc-1:nxrc+1) = &
564                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
565
566                CASE ( 'rif_m' )
567                   IF ( k == 1 )  READ ( 13 )  tmp_2d
568                   rif_m(nysc-1:nync+1,nxlc-1:nxrc+1) = &
569                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
570
571                CASE ( 'rif_wall' )
572                   IF ( k == 1 )  THEN
573                      ALLOCATE( tmp_4d(nzb:nzt+1,nys_on_file-1:nyn_on_file+1, &
574                                       nxl_on_file-1:nxr_on_file+1,1:4) )
575                      READ ( 13 )  tmp_4d
576                   ENDIF
577                   rif_wall(:,nysc-1:nync+1,nxlc-1:nxrc+1,:) = &
578                                         tmp_4d(:,nysf-1:nynf+1,nxlf-1:nxrf+1,:)
579
580                CASE ( 's_av' )
581                   IF ( .NOT. ALLOCATED( s_av ) )  THEN
582                      ALLOCATE( s_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
583                   ENDIF
584                   IF ( k == 1 )  READ ( 13 )  tmp_3d
585                   s_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
586                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
587
588                CASE ( 'sa' )
589                   IF ( k == 1 )  READ ( 13 )  tmp_3d
590                   sa(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
591                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
592
593                CASE ( 'sa_av' )
594                   IF ( .NOT. ALLOCATED( sa_av ) )  THEN
595                      ALLOCATE( sa_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
596                   ENDIF
597                   IF ( k == 1 )  READ ( 13 )  tmp_3d
598                   sa_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
599                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
600
601                CASE ( 'saswsb' )
602                   IF ( k == 1 )  READ ( 13 )  tmp_2d
603                   saswsb(nysc-1:nync+1,nxlc-1:nxrc+1) = &
604                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
605
606                CASE ( 'saswst' )
607                   IF ( k == 1 )  READ ( 13 )  tmp_2d
608                   saswst(nysc-1:nync+1,nxlc-1:nxrc+1) = &
609                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
610
611                CASE ( 'shf' )
612                   IF ( k == 1 )  READ ( 13 )  tmp_2d
613                   shf(nysc-1:nync+1,nxlc-1:nxrc+1) = &
614                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
615
616                CASE ( 'shf_m' )
617                   IF ( k == 1 )  READ ( 13 )  tmp_2d
618                   shf_m(nysc-1:nync+1,nxlc-1:nxrc+1) = &
619                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
620                CASE ( 'shf_av' )
621                   IF ( .NOT. ALLOCATED( shf_av ) )  THEN
622                      ALLOCATE( shf_av(nys-1:nyn+1,nxl-1:nxr+1) )
623                   ENDIF
624                   IF ( k == 1 )  READ ( 13 )  tmp_2d
625                   shf_av(nysc-1:nync+1,nxlc-1:nxrc+1) = &
626                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
627                CASE ( 'spectrum_x' )
628                   IF ( k == 1 )  THEN
629                      IF ( nx_on_file /= nx )  THEN
630                         message_string = 'read_3d_binary: spectrum_x ' // &
631                                     'on restart file ignored because' // &
632                                     '&total numbers of grid points (nx) ' // &
633                                     'do not match'
634                         CALL message( 'read_3d_binary', 'PA0293',&
635                                                                 0, 1, 0, 6, 0 )
636                         READ ( 13 )  rdummy
637                      ELSE
638                         READ ( 13 )  spectrum_x
639                      ENDIF
640                   ENDIF
641
642                CASE ( 'spectrum_y' )
643                   IF ( k == 1 )  THEN
644                      IF ( ny_on_file /= ny )  THEN
645                         message_string = 'read_3d_binary: spectrum_y ' //   &
646                                     'on restart file ignored because' //    &
647                                     '&total numbers of grid points (ny) '// &
648                                     'do not match'
649                         CALL message( 'read_3d_binary', 'PA0294', &
650                                                                 0, 1, 0, 6, 0 )
651                      READ ( 13 )  rdummy
652                      ELSE
653                         READ ( 13 )  spectrum_y
654                      ENDIF
655                   ENDIF
656
657                CASE ( 'ts' )
658                   IF ( k == 1 )  READ ( 13 )  tmp_2d
659                   ts(nysc-1:nync+1,nxlc-1:nxrc+1) = &
660                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
661
662                CASE ( 'ts_av' )
663                   IF ( .NOT. ALLOCATED( ts_av ) )  THEN
664                      ALLOCATE( ts_av(nys-1:nyn+1,nxl-1:nxr+1) )
665                   ENDIF
666                   IF ( k == 1 )  READ ( 13 )  tmp_2d
667                   ts_av(nysc-1:nync+1,nxlc-1:nxrc+1) = &
668                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
669
670                CASE ( 'tswst' )
671                   IF ( k == 1 )  READ ( 13 )  tmp_2d
672                   tswst(nysc-1:nync+1,nxlc-1:nxrc+1) = &
673                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
674
675                CASE ( 'tswst_m' )
676                   IF ( k == 1 )  READ ( 13 )  tmp_2d
677                   tswst_m(nysc-1:nync+1,nxlc-1:nxrc+1) = &
678                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
679
680                CASE ( 'u' )
681                   IF ( k == 1 )  READ ( 13 )  tmp_3d
682                   u(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
683                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
684
685                CASE ( 'u_av' )
686                   IF ( .NOT. ALLOCATED( u_av ) )  THEN
687                      ALLOCATE( u_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
688                   ENDIF
689                   IF ( k == 1 )  READ ( 13 )  tmp_3d
690                   u_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
691                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
692
693                CASE ( 'u_m' )
694                   IF ( k == 1 )  READ ( 13 )  tmp_3d
695                   u_m(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
696                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
697
698                CASE ( 'u_m_l' )
699                   IF ( k == 1 )  THEN
700                      ALLOCATE( tmp_3dwul(nzb:nzt+1, &
701                                          nys_on_file-1:nyn_on_file+1,1:2) )
702                      READ ( 13 )  tmp_3dwul
703                   ENDIF
704                   IF ( outflow_l )  THEN
705                      u_m_l(:,nysc-1:nync+1,:) = tmp_3dwul(:,nysf-1:nynf+1,:)
706                   ENDIF
707
708                CASE ( 'u_m_n' )
709                   IF ( k == 1 )  THEN
710                      ALLOCATE( tmp_3dwun(nzb:nzt+1,ny-1:ny, &
711                                          nxl_on_file-1:nxr_on_file+1) )
712                      READ ( 13 )  tmp_3dwun
713                   ENDIF
714                   IF ( outflow_n )  THEN
715                      u_m_n(:,:,nxlc-1:nxrc+1) = tmp_3dwun(:,:,nxlf-1:nxrf+1)
716                   ENDIF
717
718                CASE ( 'u_m_r' )
719                   IF ( k == 1 )  THEN
720                      ALLOCATE( tmp_3dwur(nzb:nzt+1,&
721                                          nys_on_file-1:nyn_on_file+1,nx-1:nx) )
722                      READ ( 13 )  tmp_3dwur
723                   ENDIF
724                   IF ( outflow_r )  THEN
725                      u_m_r(:,nysc-1:nync+1,:) = tmp_3dwur(:,nysf-1:nynf+1,:)
726                   ENDIF
727
728                CASE ( 'u_m_s' )
729                   IF ( k == 1 )  THEN
730                      ALLOCATE( tmp_3dwus(nzb:nzt+1,0:1, &
731                                          nxl_on_file-1:nxr_on_file+1) )
732                      READ ( 13 )  tmp_3dwus
733                   ENDIF
734                   IF ( outflow_s )  THEN
735                      u_m_s(:,:,nxlc-1:nxrc+1) = tmp_3dwus(:,:,nxlf-1:nxrf+1)
736                   ENDIF
737
738                CASE ( 'us' )
739                   IF ( k == 1 )  READ ( 13 )  tmp_2d
740                   us(nysc-1:nync+1,nxlc-1:nxrc+1) = &
741                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
742
743                CASE ( 'usws' )
744                   IF ( k == 1 )  READ ( 13 )  tmp_2d
745                   usws(nysc-1:nync+1,nxlc-1:nxrc+1) = &
746                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
747
748                CASE ( 'uswst' )
749                   IF ( k == 1 )  READ ( 13 )  tmp_2d
750                   uswst(nysc-1:nync+1,nxlc-1:nxrc+1) = &
751                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
752
753                CASE ( 'usws_m' )
754                   IF ( k == 1 )  READ ( 13 )  tmp_2d
755                   usws_m(nysc-1:nync+1,nxlc-1:nxrc+1) = &
756                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
757
758                CASE ( 'uswst_m' )
759                   IF ( k == 1 )  READ ( 13 )  tmp_2d
760                   uswst_m(nysc-1:nync+1,nxlc-1:nxrc+1) = &
761                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
762
763                CASE ( 'us_av' )
764                   IF ( .NOT. ALLOCATED( us_av ) )  THEN
765                      ALLOCATE( us_av(nys-1:nyn+1,nxl-1:nxr+1) )
766                   ENDIF
767                   IF ( k == 1 )  READ ( 13 )  tmp_2d
768                   us_av(nysc-1:nync+1,nxlc-1:nxrc+1) = &
769                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
770
771                CASE ( 'v' )
772                   IF ( k == 1 )  READ ( 13 )  tmp_3d
773                   v(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
774                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
775
776                CASE ( 'v_av' )
777                   IF ( .NOT. ALLOCATED( v_av ) )  THEN
778                      ALLOCATE( v_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
779                   ENDIF
780                   IF ( k == 1 )  READ ( 13 )  tmp_3d
781                   v_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
782                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
783
784                CASE ( 'v_m' )
785                   IF ( k == 1 )  READ ( 13 )  tmp_3d
786                   v_m(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
787                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
788
789                CASE ( 'v_m_l' )
790                   IF ( k == 1 )  THEN
791                      ALLOCATE( tmp_3dwvl(nzb:nzt+1,&
792                                          nys_on_file-1:nyn_on_file+1,0:1) )
793                      READ ( 13 )  tmp_3dwvl
794                   ENDIF
795                   IF ( outflow_l )  THEN
796                      v_m_l(:,nysc-1:nync+1,:) = tmp_3dwvl(:,nysf-1:nynf+1,:)
797                   ENDIF
798
799                CASE ( 'v_m_n' )
800                   IF ( k == 1 )  THEN
801                      ALLOCATE( tmp_3dwvn(nzb:nzt+1,ny-1:ny, &
802                                          nxl_on_file-1:nxr_on_file+1) )
803                      READ ( 13 )  tmp_3dwvn
804                   ENDIF
805                   IF ( outflow_n )  THEN
806                      v_m_n(:,:,nxlc-1:nxrc+1) = tmp_3dwvn(:,:,nxlf-1:nxrf+1)
807                   ENDIF
808
809                CASE ( 'v_m_r' )
810                   IF ( k == 1 )  THEN
811                      ALLOCATE( tmp_3dwvr(nzb:nzt+1,&
812                                          nys_on_file-1:nyn_on_file+1,nx-1:nx) )
813                      READ ( 13 )  tmp_3dwvr
814                   ENDIF
815                   IF ( outflow_r )  THEN
816                      v_m_r(:,nysc-1:nync+1,:) = tmp_3dwvr(:,nysf-1:nynf+1,:)
817                   ENDIF
818
819                CASE ( 'v_m_s' )
820                   IF ( k == 1 )  THEN
821                      ALLOCATE( tmp_3dwvs(nzb:nzt+1,1:2, &
822                                          nxl_on_file-1:nxr_on_file+1) )
823                      READ ( 13 )  tmp_3dwvs
824                   ENDIF
825                   IF ( outflow_s )  THEN
826                      v_m_s(:,:,nxlc-1:nxrc+1) = tmp_3dwvs(:,:,nxlf-1:nxrf+1)
827                   ENDIF
828
829                CASE ( 'vpt' )
830                   IF ( k == 1 )  READ ( 13 )  tmp_3d
831                   vpt(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
832                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
833
834                CASE ( 'vpt_av' )
835                   IF ( .NOT. ALLOCATED( vpt_av ) )  THEN
836                      ALLOCATE( vpt_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
837                   ENDIF
838                   IF ( k == 1 )  READ ( 13 )  tmp_3d
839                   vpt_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
840                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
841
842                CASE ( 'vpt_m' )
843                   IF ( k == 1 )  READ ( 13 )  tmp_3d
844                   vpt_m(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
845                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
846
847                CASE ( 'vsws' )
848                   IF ( k == 1 )  READ ( 13 )  tmp_2d
849                   vsws(nysc-1:nync+1,nxlc-1:nxrc+1) = &
850                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
851
852                CASE ( 'vswst' )
853                   IF ( k == 1 )  READ ( 13 )  tmp_2d
854                   vswst(nysc-1:nync+1,nxlc-1:nxrc+1) = &
855                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
856
857                CASE ( 'vsws_m' )
858                   IF ( k == 1 )  READ ( 13 )  tmp_2d
859                   vsws_m(nysc-1:nync+1,nxlc-1:nxrc+1) = &
860                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
861
862                CASE ( 'vswst_m' )
863                   IF ( k == 1 )  READ ( 13 )  tmp_2d
864                   vswst_m(nysc-1:nync+1,nxlc-1:nxrc+1) = &
865                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
866
867                CASE ( 'w' )
868                   IF ( k == 1 )  READ ( 13 )  tmp_3d
869                   w(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
870                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
871
872                CASE ( 'w_av' )
873                   IF ( .NOT. ALLOCATED( w_av ) )  THEN
874                      ALLOCATE( w_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
875                   ENDIF
876                   IF ( k == 1 )  READ ( 13 )  tmp_3d
877                   w_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
878                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
879
880                CASE ( 'w_m' )
881                   IF ( k == 1 )  READ ( 13 )  tmp_3d
882                   w_m(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
883                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
884
885                CASE ( 'w_m_l' )
886                   IF ( k == 1 )  THEN
887                      ALLOCATE( tmp_3dwwl(nzb:nzt+1,&
888                                          nys_on_file-1:nyn_on_file+1,0:1) )
889                      READ ( 13 )  tmp_3dwwl
890                   ENDIF
891                   IF ( outflow_l )  THEN
892                      w_m_l(:,nysc-1:nync+1,:) = tmp_3dwwl(:,nysf-1:nynf+1,:)
893                   ENDIF
894
895                CASE ( 'w_m_n' )
896                   IF ( k == 1 )  THEN
897                      ALLOCATE( tmp_3dwwn(nzb:nzt+1,ny-1:ny, &
898                                          nxl_on_file-1:nxr_on_file+1) )
899                      READ ( 13 )  tmp_3dwwn
900                   ENDIF
901                   IF ( outflow_n )  THEN
902                      w_m_n(:,:,nxlc-1:nxrc+1) = tmp_3dwwn(:,:,nxlf-1:nxrf+1)
903                   ENDIF
904
905                CASE ( 'w_m_r' )
906                   IF ( k == 1 )  THEN
907                      ALLOCATE( tmp_3dwwr(nzb:nzt+1,&
908                                          nys_on_file-1:nyn_on_file+1,nx-1:nx) )
909                      READ ( 13 )  tmp_3dwwr
910                   ENDIF
911                   IF ( outflow_r )  THEN
912                      w_m_r(:,nysc-1:nync+1,:) = tmp_3dwwr(:,nysf-1:nynf+1,:)
913                   ENDIF
914
915                CASE ( 'w_m_s' )
916                   IF ( k == 1 )  THEN
917                      ALLOCATE( tmp_3dwws(nzb:nzt+1,0:1, &
918                                          nxl_on_file-1:nxr_on_file+1) )
919                      READ ( 13 )  tmp_3dwws
920                   ENDIF
921                   IF ( outflow_s )  THEN
922                      w_m_s(:,:,nxlc-1:nxrc+1) = tmp_3dwws(:,:,nxlf-1:nxrf+1)
923                   ENDIF
924                   DEALLOCATE( tmp_3dwws )
925
926                CASE ( 'z0' )
927                   IF ( k == 1 )  READ ( 13 )  tmp_2d
928                   z0(nysc-1:nync+1,nxlc-1:nxrc+1) = &
929                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
930
931                CASE ( 'z0_av' )
932                   IF ( .NOT. ALLOCATED( z0_av ) )  THEN
933                      ALLOCATE( z0_av(nys-1:nyn+1,nxl-1:nxr+1) )
934                   ENDIF
935                   IF ( k == 1 )  READ ( 13 )  tmp_2d
936                   z0_av(nysc-1:nync+1,nxlc-1:nxrc+1) = &
937                                          tmp_2d(nysf-1:nynf+1,nxlf-1:nxrf+1)
938
939                CASE DEFAULT
940                   WRITE( message_string, * ) 'unknown field named "', &
941                                              TRIM( field_chr ), '" found in', &
942                                              '&data from prior run on PE ',myid
943                    CALL message( 'read_3d_binary', 'PA0295', 1, 2, 0, 6, 0 ) 
944                   
945             END SELECT
946
947          ENDDO  ! overlap loop
948
949!
950!--       Deallocate arrays needed for specific variables only
951          IF ( ALLOCATED( tmp_3dwul ) )  DEALLOCATE( tmp_3dwul )
952          IF ( ALLOCATED( tmp_3dwun ) )  DEALLOCATE( tmp_3dwun )
953          IF ( ALLOCATED( tmp_3dwur ) )  DEALLOCATE( tmp_3dwur )
954          IF ( ALLOCATED( tmp_3dwus ) )  DEALLOCATE( tmp_3dwus )
955          IF ( ALLOCATED( tmp_3dwvl ) )  DEALLOCATE( tmp_3dwvl )
956          IF ( ALLOCATED( tmp_3dwvn ) )  DEALLOCATE( tmp_3dwvn )
957          IF ( ALLOCATED( tmp_3dwvr ) )  DEALLOCATE( tmp_3dwvr )
958          IF ( ALLOCATED( tmp_3dwvs ) )  DEALLOCATE( tmp_3dwvs )
959          IF ( ALLOCATED( tmp_3dwwl ) )  DEALLOCATE( tmp_3dwwl )
960          IF ( ALLOCATED( tmp_3dwwn ) )  DEALLOCATE( tmp_3dwwn )
961          IF ( ALLOCATED( tmp_3dwwr ) )  DEALLOCATE( tmp_3dwwr )
962          IF ( ALLOCATED( tmp_3dwws ) )  DEALLOCATE( tmp_3dwws )
963          IF ( ALLOCATED( tmp_4d ) )  DEALLOCATE( tmp_4d )
964
965!
966!--       Read next character string
967          READ ( 13 )  field_chr
968
969       ENDDO  ! loop over variables
970
971!
972!--    Read user-defined restart data
973       CALL user_read_restart_data( i, nxlfa, nxl_on_file, nxrfa, nxr_on_file, &
974                                    nynfa, nyn_on_file, nysfa, nys_on_file,    &
975                                    offset_xa, offset_ya, overlap_count(i),    &
976                                    tmp_2d, tmp_3d )
977
978!
979!--    Close the restart file
980       CALL close_file( 13 )
981
982       DEALLOCATE( tmp_2d, tmp_3d )
983
984    ENDDO  ! loop over restart files
985
986
987!
988!-- Restore the original filename for the restart file to be written
989    myid_char = myid_char_save
990
991
992!
993!-- End of time measuring for reading binary data
994    CALL cpu_log( log_point_s(14), 'read_3d_binary', 'stop' )
995
996 END SUBROUTINE read_3d_binary
Note: See TracBrowser for help on using the repository browser.