Changeset 3045 for palm/trunk/SOURCE/data_output_dvrp.f90

Timestamp:

May 28, 2018 7:55:41 AM (6 years ago)

Author:

Giersch

Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:

• palm/trunk/SOURCE/data_output_dvrp.f90 (modified) (5 diffs)

palm/trunk/SOURCE/data_output_dvrp.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Code adjusted according to PALM coding standards
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -255 +258 @@
 !--    Select the plot mode (in case of isosurface or slicer only if user has
 !--    defined a variable which shall be plotted; otherwise do nothing)
-       IF ( ( mode_dvrp(m)(1:10) == 'isosurface'  .OR.                     &
+       IF ( ( mode_dvrp(m)(1:10) == 'isosurface'  .OR.                         &
                   mode_dvrp(m)(1:6)  == 'slicer'           )                   &
                   .AND.  output_variable /= ' ' )  THEN
@@ -362 +365 @@
                    ELSE                    
                       message_string = 'if humidity = '    //                  & 
-                            '.FALSE. output of ' // TRIM( output_variable ) //   &
+                            '.FALSE. output of ' // TRIM( output_variable ) // &
                             'is not provided' 
                       CALL message( 'data_output_dvrp', 'PA0183',&
@@ -378 +381 @@
                       ENDDO
                    ELSE                     
-                      message_string = 'if cloud_physics = .FALSE. and '       //    & 
+                      message_string = 'if cloud_physics = .FALSE. and ' //    & 
                                   'cloud_droplets = .FALSE. '
                                   'output of ' // TRIM( output_variable) //    &
@@ -561 +564 @@
           CALL cpu_log( log_point_s(31), 'dvrp_pathlines', 'start' )
 
-          CALL DVRP_DATA( m-1, local_pfi, 4, nx_dvrp, ny_dvrp, nz_dvrp, &
+          CALL DVRP_DATA( m-1, local_pfi, 4, nx_dvrp, ny_dvrp, nz_dvrp,        &
                           cyclic_dvrp, cyclic_dvrp, cyclic_dvrp )
           CALL DVRP_VISUALIZE( m-1, 20, dvrp_filecount )