source: palm/tags/release-3.3/SOURCE/init_dvrp.f90 @ 366

Last change on this file since 366 was 83, checked in by raasch, 17 years ago

New:
---

Changed:


PALM can be generally installed on any kind of Linux-, IBM-AIX-, or NEC-SX-system by adding appropriate settings to the configuration file.

Scripts are also running under the public domain ksh.

All system relevant compile and link options as well as the host identifier (local_host) are specified in the configuration file.

Filetransfer by ftp removed (options -f removed from mrun and mbuild).

Call of (system-)FLUSH routine moved to new routine local_flush.

return_addres and return_username are read from ENVPAR-NAMELIST-file instead of using local_getenv.

Preprocessor strings for different linux clusters changed to "lc", some preprocessor directives renamed (new: intel_openmp_bug), preprocessor directives for old systems removed

advec_particles, check_open, cpu_log, cpu_statistics, data_output_dvrp, flow_statistics, header, init_dvrp, init_particles, init_1d_model, init_dvrp, init_pegrid, local_getenv, local_system, local_tremain, local_tremain_ini, modules, palm, parin, run_control

new:
local_flush

mbuild, mrun

Errors:


  • Property svn:keywords set to Id
File size: 20.5 KB
Line 
1  SUBROUTINE init_dvrp
2
3!------------------------------------------------------------------------------!
4! Actual revisions:
5! -----------------
6! Test output of isosurface on camera file
7! TEST: print* statements
8! ToDo: checking of mode_dvrp for legal values is not correct
9!
10! Former revisions:
11! -----------------
12! $Id: init_dvrp.f90 83 2007-04-19 16:27:07Z raasch $
13!
14! 82 2007-04-16 15:40:52Z raasch
15! Preprocessor strings for different linux clusters changed to "lc",
16! routine local_flush is used for buffer flushing
17!
18! 17 2007-02-19 01:57:39Z raasch
19! dvrp_output_local activated for all streams
20!
21! 13 2007-02-14 12:15:07Z raasch
22! RCS Log replace by Id keyword, revision history cleaned up
23!
24! Revision 1.12  2006/02/23 12:30:22  raasch
25! ebene renamed section, pl.. replaced by do..,
26!
27! Revision 1.1  2000/04/27 06:24:39  raasch
28! Initial revision
29!
30!
31! Description:
32! ------------
33! Initializing actions needed when using dvrp-software
34!------------------------------------------------------------------------------!
35#if defined( __dvrp_graphics )
36
37    USE arrays_3d
38    USE DVRP
39    USE dvrp_variables
40    USE grid_variables
41    USE indices
42    USE pegrid
43    USE control_parameters
44
45    IMPLICIT NONE
46
47    CHARACTER (LEN=2)  ::  section_chr
48    CHARACTER (LEN=80) ::  dvrp_file_local
49    INTEGER ::  i, j, k, l, m, pn, tv, vn
50    LOGICAL ::  allocated
51    REAL    ::  center(3), distance
52
53    REAL, DIMENSION(:,:,:), ALLOCATABLE ::  local_pf
54
55    TYPE(CSTRING), SAVE ::  dvrp_directory_c, dvrp_file_c, &
56                            dvrp_file_local_c,dvrp_host_c, &
57                            dvrp_password_c, dvrp_username_c, name_c
58
59!
60!-- Set the maximum time the program can be suspended on user request (by
61!-- dvrp steering). This variable is defined in module DVRP.
62    DVRP_MAX_SUSPEND_TIME = 7200
63
64!
65!-- Allocate array holding the names and limits of the steering variables
66!-- (must have the same number of elements as array mode_dvrp!)
67    ALLOCATE( steering_dvrp(10) )
68
69!
70!-- Check, if output parameters are given and/or allowed
71!-- and set default-values, where necessary
72    IF ( dvrp_username == ' ' )  THEN
73       IF ( myid == 0 )  THEN
74          PRINT*, '+++ init_dvrp: dvrp_username is undefined'
75          CALL local_stop
76       ENDIF
77    ENDIF
78
79    IF ( dvrp_output /= 'ftp'  .AND.  dvrp_output /= 'rtsp'  .AND. &
80         dvrp_output /= 'local' )  THEN
81       IF ( myid == 0 )  THEN
82          PRINT*, '+++ init_dvrp: dvrp_output="', dvrp_output, '" not allowed'
83          CALL local_stop
84       ENDIF
85    ENDIF
86
87    IF ( dvrp_directory == 'default' )  THEN
88       dvrp_directory = TRIM( dvrp_username ) // '/' // TRIM( run_identifier )
89    ENDIF
90
91    IF ( dvrp_output /= 'local' )  THEN
92       IF ( dvrp_file /= 'default'  .AND.  dvrp_file /= '/dev/null' )  THEN
93          IF ( myid == 0 )  THEN
94             PRINT*, '+++ init_dvrp: dvrp_file="', dvrp_file, '" not allowed'
95             CALL local_stop
96          ENDIF
97       ENDIF
98    ENDIF
99
100!
101!-- Strings are assigned to strings of special type which have a CHAR( 0 )
102!-- (C end-of-character symbol) at their end. This is needed when strings are
103!-- passed to C routines.
104    dvrp_directory_c = dvrp_directory
105    dvrp_file_c      = dvrp_file
106    dvrp_host_c      = dvrp_host
107    dvrp_password_c  = dvrp_password
108    dvrp_username_c  = dvrp_username
109
110!
111!-- Loop over all output modes choosed
112    m = 1
113    allocated = .FALSE.
114    DO WHILE ( mode_dvrp(m) /= ' ' )
115   
116!
117!--    Check, if mode is allowed
118       IF ( mode_dvrp(m)(1:10) /= 'isosurface'  .AND. &
119            mode_dvrp(m)(1:6)  /= 'slicer'      .AND. &
120            mode_dvrp(m)(1:9)  /= 'particles' )  THEN
121
122          IF ( myid == 0 )  THEN
123             PRINT*, '+++ init_dvrp: mode_dvrp="', mode_dvrp, '" not allowed'
124          ENDIF
125          CALL local_stop
126
127       ENDIF
128   
129!
130!--    Camera position must be computed and written on file when no dvrp-output
131!--    has been generated so far (in former runs)
132!       IF ( dvrp_filecount == 0 )  THEN
133!
134!--       Compute center of domain and distance of camera from center
135          center(1) = ( nx + 1.0 ) * dx * 0.5 * superelevation_x
136          center(2) = ( ny + 1.0 ) * dy * 0.5 * superelevation_y
137          center(3) = ( zu(nz_do3d) - zu(nzb) ) * 0.5 * superelevation
138          distance  = 1.5 * MAX( ( nx + 1.0 ) * dx * superelevation_x, &
139                                 ( ny + 1.0 ) * dy * superelevation_y, &
140                                 ( zu(nz_do3d) - zu(nzb) ) * superelevation )
141
142!
143!--       Write camera position on file
144          CALL DVRP_INIT( m-1, 0 )
145
146!
147!--       Create filename for camera
148          IF ( dvrp_output == 'rtsp' )  THEN
149
150    WRITE ( 9, * ) '***  vor dvrp_output_rtsp'
151    CALL local_flush( 9 )
152
153             dvrp_file   = TRIM( mode_dvrp(m) ) // '/camera.dvr'
154             dvrp_file_c = dvrp_file
155             CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, &
156                                    dvrp_password_c, dvrp_directory_c, &
157                                    dvrp_file_c )
158    WRITE ( 9, * ) '***  nach dvrp_output_rtsp'
159    CALL local_flush( 9 )
160
161          ELSEIF ( dvrp_output == 'ftp' )  THEN
162
163             dvrp_file   = TRIM( mode_dvrp(m) ) // '.camera.dvr'
164             dvrp_file_c = dvrp_file
165!             CALL DVRP_OUTPUT_FTP( m-1, 0, dvrp_host_c, dvrp_username_c, &
166!                                   dvrp_password_c, dvrp_directory_c,    &
167!                                   dvrp_file_c )
168
169          ELSE
170
171             IF ( dvrp_file(1:9) /= '/dev/null' )  THEN
172                dvrp_file_local   = TRIM( mode_dvrp(m) ) // '.camera.dvr'
173                dvrp_file_local_c = dvrp_file_local
174             ELSE
175                dvrp_file_local_c = dvrp_file_c
176             ENDIF
177             CALL DVRP_OUTPUT_LOCAL( m-1, 0, dvrp_file_local_c )
178
179          ENDIF
180
181          CALL DVRP_CAMERA( m-1, center, distance )
182    WRITE ( 9, * ) '***  #1'
183    CALL local_flush( 9 )
184
185!
186!--       Define bounding box material and create a bounding box
187          CALL DVRP_MATERIAL_RGB( m-1, 1, 0.5, 0.5, 0.5, 0.0 )
188          CALL DVRP_BOUNDINGBOX( m-1, 1, 0.01, 0.0, 0.0, 0.0,    &
189                                 (nx+1) * dx * superelevation_x, &
190                                 (ny+1) * dy * superelevation_y, &
191                                 zu(nz_do3d) * superelevation )
192
193          CALL DVRP_VISUALIZE( m-1, 0, 0 )
194          CALL DVRP_EXIT( m-1 )
195    WRITE ( 9, * ) '***  #2'
196    CALL local_flush( 9 )
197
198
199!
200!--       Write topography isosurface on file
201          CALL DVRP_INIT( m-1, 0 )
202
203!
204!--       Create filename for buildings
205          IF ( dvrp_output == 'rtsp' )  THEN
206
207             dvrp_file   = TRIM( mode_dvrp(m) ) // '/buildings.dvr'
208             dvrp_file_c = dvrp_file
209             CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, &
210                                    dvrp_password_c, dvrp_directory_c, &
211                                    dvrp_file_c )
212    WRITE ( 9, * ) '***  #3'
213    CALL local_flush( 9 )
214
215          ELSEIF ( dvrp_output == 'ftp' )  THEN
216
217             dvrp_file   = TRIM( mode_dvrp(m) ) // '.buildings.dvr'
218             dvrp_file_c = dvrp_file
219!             CALL DVRP_OUTPUT_FTP( m-1, 0, dvrp_host_c, dvrp_username_c, &
220!                                   dvrp_password_c, dvrp_directory_c,    &
221!                                   dvrp_file_c )
222
223          ELSE
224
225             IF ( dvrp_file(1:9) /= '/dev/null' )  THEN
226                dvrp_file_local   = TRIM( mode_dvrp(m) ) // '.buildings.dvr'
227                dvrp_file_local_c = dvrp_file_local
228             ELSE
229                dvrp_file_local_c = dvrp_file_c
230             ENDIF
231             CALL DVRP_OUTPUT_LOCAL( m-1, 0, dvrp_file_local_c )
232
233          ENDIF
234
235!
236!--       Determine local gridpoint coordinates
237          IF ( .NOT. allocated )  THEN
238             ALLOCATE( xcoor_dvrp(nxl:nxr+1), ycoor_dvrp(nys:nyn+1), &
239                       zcoor_dvrp(nzb:nz_do3d) )
240             allocated = .TRUE.
241
242             DO  i = nxl, nxr+1
243                xcoor_dvrp(i) = i * dx * superelevation_x
244             ENDDO
245             DO  j = nys, nyn+1
246                ycoor_dvrp(j) = j * dy * superelevation_y
247             ENDDO
248             zcoor_dvrp = zu(nzb:nz_do3d) * superelevation
249             nx_dvrp    = nxr+1 - nxl + 1
250             ny_dvrp    = nyn+1 - nys + 1
251             nz_dvrp    = nz_do3d - nzb + 1
252          ENDIF
253
254!
255!--       Define the grid used by dvrp
256          CALL DVRP_GRID( m-1, nx_dvrp, ny_dvrp, nz_dvrp, xcoor_dvrp, &
257                          ycoor_dvrp, zcoor_dvrp )
258          CALL DVRP_MATERIAL_RGB( m-1, 1, 0.8, 0.7, 0.6, 0.0 )
259    WRITE ( 9, * ) '***  #4'
260    CALL local_flush( 9 )
261
262!
263!--       Compute and plot isosurface in dvr-format
264          ALLOCATE( local_pf(nxl:nxr+1,nys:nyn+1,nzb:nz_do3d) )
265          local_pf = 0.0
266          DO  i = nxl, nxr+1
267             DO  j = nys, nyn+1
268                IF ( nzb_s_inner(j,i) > 0 )  THEN
269                      local_pf(i,j,nzb:nzb_s_inner(j,i)) = 1.0
270                   ENDIF
271             ENDDO
272          ENDDO
273    WRITE ( 9, * ) '***  #4.1'
274    CALL local_flush( 9 )
275          CALL DVRP_DATA( m-1, local_pf, 1, nx_dvrp, ny_dvrp, nz_dvrp, &
276                          cyclic_dvrp, cyclic_dvrp, cyclic_dvrp )
277    WRITE ( 9, * ) '***  #4.2'
278    CALL local_flush( 9 )
279          CALL DVRP_THRESHOLD( m-1, 1.0 )
280    WRITE ( 9, * ) '***  #4.3'
281    CALL local_flush( 9 )
282          CALL DVRP_VISUALIZE( m-1, 1, 0 )
283    WRITE ( 9, * ) '***  #4.4'
284    CALL local_flush( 9 )
285
286          DEALLOCATE( local_pf )
287
288          CALL DVRP_EXIT( m-1 )
289    WRITE ( 9, * ) '***  #5'
290    CALL local_flush( 9 )
291
292!
293!--       Write the surface isosurface on file
294          CALL DVRP_INIT( m-1, 0 )
295
296!
297!--       Create filename for surface
298          IF ( dvrp_output == 'rtsp' )  THEN
299
300             dvrp_file   = TRIM( mode_dvrp(m) ) // '/surface.dvr'
301             dvrp_file_c = dvrp_file
302             CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, &
303                                    dvrp_password_c, dvrp_directory_c, &
304                                    dvrp_file_c )
305    WRITE ( 9, * ) '***  #6'
306    CALL local_flush( 9 )
307
308          ELSEIF ( dvrp_output == 'ftp' )  THEN
309
310             dvrp_file   = TRIM( mode_dvrp(m) ) // '.surface.dvr'
311             dvrp_file_c = dvrp_file
312!             CALL DVRP_OUTPUT_FTP( m-1, 0, dvrp_host_c, dvrp_username_c, &
313!                                   dvrp_password_c, dvrp_directory_c,    &
314!                                   dvrp_file_c )
315
316          ELSE
317
318             IF ( dvrp_file(1:9) /= '/dev/null' )  THEN
319                dvrp_file_local   = TRIM( mode_dvrp(m) ) // '.surface.dvr'
320                dvrp_file_local_c = dvrp_file_local
321             ELSE
322                dvrp_file_local_c = dvrp_file_c
323             ENDIF
324             CALL DVRP_OUTPUT_LOCAL( m-1, 0, dvrp_file_local_c )
325
326          ENDIF
327
328!
329!--       Determine local gridpoint coordinates
330          IF ( .NOT. allocated )  THEN
331             ALLOCATE( xcoor_dvrp(nxl:nxr+1), ycoor_dvrp(nys:nyn+1), &
332                       zcoor_dvrp(nzb:nz_do3d) )
333             allocated = .TRUE.
334
335             DO  i = nxl, nxr+1
336                xcoor_dvrp(i) = i * dx * superelevation_x
337             ENDDO
338             DO  j = nys, nyn+1
339                ycoor_dvrp(j) = j * dy * superelevation_y
340             ENDDO
341             zcoor_dvrp = zu(nzb:nz_do3d) * superelevation
342             nx_dvrp    = nxr+1 - nxl + 1
343             ny_dvrp    = nyn+1 - nys + 1
344             nz_dvrp    = nz_do3d - nzb + 1
345          ENDIF
346
347!
348!--       Define the grid used by dvrp
349          CALL DVRP_GRID( m-1, nx_dvrp, ny_dvrp, nz_dvrp, xcoor_dvrp, &
350                          ycoor_dvrp, zcoor_dvrp )
351          CALL DVRP_MATERIAL_RGB( m-1, 1, 0.0, 0.6, 0.0, 0.0 )
352    WRITE ( 9, * ) '***  #7'
353    CALL local_flush( 9 )
354
355!
356!--       Compute and plot isosurface in dvr-format
357          ALLOCATE( local_pf(nxl:nxr+1,nys:nyn+1,nzb:nz_do3d) )
358          local_pf = 0.0
359          local_pf(:,:,0) = 1.0
360
361          CALL DVRP_DATA( m-1, local_pf, 1, nx_dvrp, ny_dvrp, nz_dvrp, &
362                          cyclic_dvrp, cyclic_dvrp, cyclic_dvrp )
363          CALL DVRP_THRESHOLD( m-1, 1.0 )
364          CALL DVRP_VISUALIZE( m-1, 1, 0 )
365
366          DEALLOCATE( local_pf )
367
368          CALL DVRP_EXIT( m-1 )
369    WRITE ( 9, * ) '***  #8'
370    CALL local_flush( 9 )
371
372   
373!       ENDIF
374
375
376!
377!--    Initialize dvrp for all dvrp-calls during the run
378       CALL DVRP_INIT( m-1, 0 )
379
380!
381!--    Preliminary definition of filename for dvrp-output
382       IF ( dvrp_output == 'rtsp' )  THEN
383
384!
385!--       First initialize parameters for possible interactive steering.
386!--       Every parameter has to be passed to the respective stream.
387          pn = 1
388!
389!--       Initialize threshold counter needed for initialization of the
390!--       isosurface steering variables
391          tv = 0
392
393          DO WHILE ( mode_dvrp(pn) /= ' ' )
394
395             IF ( mode_dvrp(pn)(1:10) == 'isosurface' )  THEN
396
397                READ ( mode_dvrp(pn), '(10X,I1)' )  vn
398                steering_dvrp(pn)%name = do3d(0,vn)
399                tv = tv + 1
400
401                IF ( do3d(0,vn)(1:1) == 'w' )  THEN
402                   steering_dvrp(pn)%min  = -4.0
403                   steering_dvrp(pn)%max  =  5.0
404                ELSE
405                   steering_dvrp(pn)%min  = 288.0
406                   steering_dvrp(pn)%max  = 292.0
407                ENDIF
408
409                name_c = TRIM( do3d(0,vn) )
410    WRITE ( 9, * ) '***  #9'
411    CALL local_flush( 9 )
412                CALL DVRP_STEERING_INIT( m-1, name_c, steering_dvrp(pn)%min, &
413                                         steering_dvrp(pn)%max, threshold(tv) )
414    WRITE ( 9, * ) '***  #10'
415    CALL local_flush( 9 )
416
417             ELSEIF ( mode_dvrp(pn)(1:6) == 'slicer' )  THEN
418
419                READ ( mode_dvrp(pn), '(6X,I1)' )  vn
420                steering_dvrp(pn)%name = do2d(0,vn)
421                name_c = TRIM( do2d(0,vn) )
422
423                l = MAX( 2, LEN_TRIM( do2d(0,vn) ) )
424                section_chr = do2d(0,vn)(l-1:l)
425                SELECT CASE ( section_chr )
426                   CASE ( 'xy' )
427                      steering_dvrp(pn)%imin   = 0
428                      steering_dvrp(pn)%imax   = nz_do3d
429                      slicer_position_dvrp(pn) = section(1,1)
430                      CALL DVRP_STEERING_INIT( m-1, name_c,            &
431                                               steering_dvrp(pn)%imin, &
432                                               steering_dvrp(pn)%imax, &
433                                               slicer_position_dvrp(pn) )
434                   CASE ( 'xz' )
435                      steering_dvrp(pn)%imin   = 0
436                      steering_dvrp(pn)%imax   = ny
437                      slicer_position_dvrp(pn) = section(1,2)
438                      CALL DVRP_STEERING_INIT( m-1, name_c,            &
439                                               steering_dvrp(pn)%imin, &
440                                               steering_dvrp(pn)%imax, &
441                                               slicer_position_dvrp(pn) )
442                   CASE ( 'yz' )
443                      steering_dvrp(pn)%imin = 0
444                      steering_dvrp(pn)%imax = nx
445                      slicer_position_dvrp(pn) = section(1,3)
446                      CALL DVRP_STEERING_INIT( m-1, name_c,            &
447                                               steering_dvrp(pn)%imin, &
448                                               steering_dvrp(pn)%imax, &
449                                               slicer_position_dvrp(pn) )
450                END SELECT
451
452             ENDIF
453
454             pn = pn + 1
455
456          ENDDO
457
458    WRITE ( 9, * ) '***  #11'
459    CALL local_flush( 9 )
460
461          dvrp_file = TRIM( mode_dvrp(m) ) // '/*****.dvr'
462          dvrp_file_c = dvrp_file
463          CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, &
464                                 dvrp_password_c, dvrp_directory_c, &
465                                 dvrp_file_c )
466    WRITE ( 9, * ) '***  #12'
467    CALL local_flush( 9 )
468
469       ELSEIF ( dvrp_output == 'ftp' )  THEN
470
471          dvrp_file   = TRIM( mode_dvrp(m) ) // '.%05d.dvr'
472          dvrp_file_c = dvrp_file
473!          CALL DVRP_OUTPUT_FTP( m-1, 0, dvrp_host_c, dvrp_username_c, &
474!                                dvrp_password_c, dvrp_directory_c, dvrp_file_c )
475
476       ELSE
477
478          IF ( dvrp_file(1:9) /= '/dev/null' )  THEN
479             dvrp_file_local   = TRIM( mode_dvrp(m) ) // '_%05d.dvr'
480             dvrp_file_local_c = dvrp_file_local
481          ELSE
482             dvrp_file_local_c = dvrp_file_c
483          ENDIF
484          CALL DVRP_OUTPUT_LOCAL( m-1, 0, dvrp_file_local_c )
485
486       ENDIF
487
488!       dvrp_file = TRIM( mode_dvrp(m) ) // '.%05d.dvr' // CHAR( 0 )
489!       dvrp_file = TRIM( mode_dvrp(m) ) // '/*****.dvr' // CHAR( 0 )
490!       dvrp_file = '/dev/null' // CHAR( 0 )
491!       CALL DVRP_OUTPUT_FTP( m-1, 0, dvrp_host, dvrp_username, dvrp_password, &
492!                             dvrp_directory, dvrp_file )
493!       CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host, dvrp_username, dvrp_password, &
494!                              dvrp_directory, dvrp_file )
495!       CALL DVRP_OUTPUT_LOCAL( m-1, 0, dvrp_file )
496
497!
498!--    Determine local gridpoint coordinates
499       IF ( .NOT. allocated )  THEN
500          ALLOCATE( xcoor_dvrp(nxl:nxr+1), ycoor_dvrp(nys:nyn+1), &
501                    zcoor_dvrp(nzb:nz_do3d) )
502          allocated = .TRUE.
503
504          DO  i = nxl, nxr+1
505             xcoor_dvrp(i) = i * dx * superelevation_x
506          ENDDO
507          DO  j = nys, nyn+1
508             ycoor_dvrp(j) = j * dy * superelevation_y
509          ENDDO
510          zcoor_dvrp = zu(nzb:nz_do3d) * superelevation
511          nx_dvrp    = nxr+1 - nxl + 1
512          ny_dvrp    = nyn+1 - nys + 1
513          nz_dvrp    = nz_do3d - nzb + 1
514       ENDIF
515
516!
517!--    Define the grid used by dvrp
518    WRITE ( 9, * ) '***  #13'
519    CALL local_flush( 9 )
520
521       CALL DVRP_GRID( m-1, nx_dvrp, ny_dvrp, nz_dvrp, xcoor_dvrp, ycoor_dvrp, &
522                       zcoor_dvrp )
523    WRITE ( 9, * ) '***  #14'
524    CALL local_flush( 9 )
525
526
527       m = m + 1
528
529    ENDDO
530
531#endif
532 END SUBROUTINE init_dvrp
533
534 
535 SUBROUTINE init_dvrp_logging
536
537!------------------------------------------------------------------------------!
538! Description:
539! ------------
540! Initializes logging events for time measurement with dvrp software
541! and splits one PE from the global communicator in case that dvrp output
542! shall be done by one single PE.
543!------------------------------------------------------------------------------!
544#if defined( __dvrp_graphics )
545
546    USE dvrp_variables
547    USE pegrid
548
549    IMPLICIT NONE
550
551    CHARACTER (LEN=4) ::  chr
552    INTEGER           ::  idummy
553
554!
555!-- Initialize logging of calls by DVRP graphic software
556    WRITE ( 9, * ) '*** myid=', myid, ' vor DVRP_LOG_INIT'
557    CALL local_flush( 9 )
558    CALL DVRP_LOG_INIT( 'DVRP_LOG' // CHAR( 0 ), 0 )
559    WRITE ( 9, * ) '*** myid=', myid, ' nach DVRP_LOG_INIT'
560    CALL local_flush( 9 )
561
562!
563!-- User-defined logging events: #1 (total time needed by PALM)
564    WRITE ( 9, * ) '*** myid=', myid, ' vor DVRP_LOG_SYMBOL'
565    CALL local_flush( 9 )
566    CALL DVRP_LOG_SYMBOL( 1, 'PALM_total' // CHAR( 0 ) )
567    WRITE ( 9, * ) '*** myid=', myid, ' nach DVRP_LOG_SYMBOL'
568    CALL local_flush( 9 )
569    CALL DVRP_LOG_SYMBOL( 2, 'PALM_timestep' // CHAR( 0 ) )
570    WRITE ( 9, * ) '*** myid=', myid, ' vor DVRP_LOG_EVENT'
571    CALL local_flush( 9 )
572    CALL DVRP_LOG_EVENT( 1, 1 )
573    WRITE ( 9, * ) '*** myid=', myid, ' nach DVRP_LOG_EVENT'
574    CALL local_flush( 9 )
575
576#if defined( __parallel )
577!
578!-- Find out, if dvrp output shall be done by a dedicated PE
579    CALL local_getenv( 'use_seperate_pe_for_dvrp_output', 31, chr, idummy )
580    IF ( chr == 'true' )  THEN
581       use_seperate_pe_for_dvrp_output = .TRUE.
582    WRITE ( 9, * ) '*** myid=', myid, ' vor DVRP_SPLIT'
583    CALL local_flush( 9 )
584       CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm )
585    WRITE ( 9, * ) '*** myid=', myid, ' nach DVRP_SPLIT'
586    CALL local_flush( 9 )
587       CALL MPI_COMM_SIZE( comm_palm, numprocs, ierr )
588    ENDIF
589#endif
590
591#endif
592 END SUBROUTINE init_dvrp_logging
593
594
595 SUBROUTINE close_dvrp
596
597!------------------------------------------------------------------------------!
598! Description:
599! ------------
600! Exit of dvrp software and finish dvrp logging
601!------------------------------------------------------------------------------!
602#if defined( __dvrp_graphics )
603
604    USE control_parameters
605    USE dvrp
606    USE dvrp_variables
607
608    INTEGER ::  m
609
610!
611!-- If required, close dvrp-software and logging of dvrp-calls
612    IF ( dt_dvrp /= 9999999.9 )  THEN
613       m = 1
614       DO WHILE ( mode_dvrp(m) /= ' ' )
615          CALL DVRP_EXIT( m-1 )
616          m = m + 1
617       ENDDO
618       CALL DVRP_LOG_EVENT( -1, 1 )   ! Logging of total cpu-time used by PALM
619       IF ( use_seperate_pe_for_dvrp_output )  THEN
620          CALL DVRP_SPLIT_EXIT( 1 )      ! Argument 0: reduced output
621       ELSE
622          CALL DVRP_LOG_EXIT( 1 )        ! Argument 0: reduced output
623       ENDIF
624    ENDIF
625
626#endif
627 END SUBROUTINE close_dvrp
Note: See TracBrowser for help on using the repository browser.