Changeset 260 for palm/trunk/SOURCE/init_dvrp.f90

Timestamp:

Mar 16, 2009 11:57:58 AM (15 years ago)

Author:

raasch

Message:

automatic generation of dvrs/html file for combined dvr streams; automatic call of streaming server

File:

• palm/trunk/SOURCE/init_dvrp.f90 (modified) (10 diffs)

palm/trunk/SOURCE/init_dvrp.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! Output names are changed: surface=groundplate, buildings=topography
 ! Output of messages replaced by message handling routine.
 ! Clipping implemented.
@@ -146 +147 @@
     ENDIF
 
+!
+!-- A local dvrserver running always outputs on temporary directory DATA_DVR
+    IF ( local_dvrserver_running )  THEN
+       dvrp_directory = 'DATA_DVR'
+    ENDIF
+
     IF ( dvrp_output /= 'local' )  THEN
        IF ( dvrp_file /= 'default'  .AND.  dvrp_file /= '/dev/null' )  THEN
@@ -176 +183 @@
             mode_dvrp(m)(1:9)  /= 'pathlines' )  THEN
 
-          message_string = 'mode_dvrp="' // TRIM( mode_dvrp ) // '" not allowed'
+          message_string = 'mode_dvrp="' // TRIM( mode_dvrp(m) ) // '" not allowed'
           CALL message( 'init_dvrp', 'PA0198', 1, 2, 0, 6, 0 )
           CALL local_stop
@@ -259 +266 @@
 
 !
-!--          Create filename for buildings
+!--          Create filename for topography
              IF ( dvrp_output == 'rtsp' )  THEN
 
                 dvrp_file   = prefix_chr // TRIM( mode_dvrp(m) )  &
-                              // '/buildings.dvr'
+                              // '/topography.dvr'
                 dvrp_file_c = dvrp_file
                 CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, &
@@ -272 +279 @@
 
                 dvrp_file   = prefix_chr // TRIM( mode_dvrp(m) )  &
-                              // '.buildings.dvr'
+                              // '.topography.dvr'
                 dvrp_file_c = dvrp_file
 !                CALL DVRP_OUTPUT_FTP( m-1, 0, dvrp_host_c, dvrp_username_c, &
@@ -282 +289 @@
                 IF ( dvrp_file(1:9) /= '/dev/null' )  THEN
                    dvrp_file_local   = prefix_chr // TRIM( mode_dvrp(m) )  &
-                                       // '.buildings.dvr'
+                                       // '.topography.dvr'
                    dvrp_file_local_c = dvrp_file_local
                 ELSE
@@ -378 +385 @@
 
 !
-!--       Write the surface isosurface (ground plate at z=0) on file
+!--       Write the ground plate (z=0) isosurface on file
           CALL DVRP_INIT( m-1, 0 )
 
@@ -385 +392 @@
           IF ( dvrp_output == 'rtsp' )  THEN
 
-             dvrp_file   = prefix_chr // TRIM( mode_dvrp(m) ) // '/surface.dvr'
+             dvrp_file   = prefix_chr // TRIM( mode_dvrp(m) ) // &
+                           '/groundplate.dvr'
              dvrp_file_c = dvrp_file
              CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, &
@@ -393 +401 @@
           ELSEIF ( dvrp_output == 'ftp' )  THEN
 
-             dvrp_file   = prefix_chr // TRIM( mode_dvrp(m) ) // '.surface.dvr'
+             dvrp_file   = prefix_chr // TRIM( mode_dvrp(m) ) // &
+                           '.groundplate.dvr'
              dvrp_file_c = dvrp_file
 !             CALL DVRP_OUTPUT_FTP( m-1, 0, dvrp_host_c, dvrp_username_c, &
@@ -403 +412 @@
              IF ( dvrp_file(1:9) /= '/dev/null' )  THEN
                 dvrp_file_local   = prefix_chr // TRIM( mode_dvrp(m) )  &
-                     // '.surface.dvr'
+                     // '.groundplate.dvr'
                 dvrp_file_local_c = dvrp_file_local
              ELSE