Changeset 4779 for palm/trunk/SOURCE/data_output_particle_mod.f90

Timestamp:

Nov 9, 2020 5:45:22 PM (4 years ago)

Author:

suehring

Message:

Avoid overlong lines and unused variables

File:

• palm/trunk/SOURCE/data_output_particle_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/data_output_particle_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! Avoid overlong lines and unused variables
+!
+! 4778 2020-11-09 13:40:05Z raasch
 ! Initial implementation (K. Ketelsen)
 !
@@ -494 +497 @@
          IF (part_io%iam_io_pe)   THEN
             IF(variables(i)%is_integer)   THEN
-               CALL  netcdf4_write_variable('parallel', file_id, variables(i)%var_id, bounds_start, value_counts, bounds_origin,        &
-                  .FALSE., values_int32_1d=out_buf_i, return_value=return_value)
+               CALL  netcdf4_write_variable('parallel', file_id, variables(i)%var_id, bounds_start,&
+                                             value_counts, bounds_origin,                          &
+                                             .FALSE., values_int32_1d=out_buf_i, return_value=return_value)
             ELSE
-               CALL  netcdf4_write_variable('parallel', file_id, variables(i)%var_id, bounds_start, value_counts, bounds_origin,        &
-                  .FALSE., values_real32_1d=out_buf_r, return_value=return_value)
+               CALL  netcdf4_write_variable('parallel', file_id, variables(i)%var_id, bounds_start,&
+                                             value_counts, bounds_origin,                          &
+                                            .FALSE., values_real32_1d=out_buf_r, return_value=return_value)
             ENDIF
          ENDIF
@@ -520 +525 @@
             time_axis_values(icount) = my_time(1)
          ELSE
-            CALL  netcdf4_write_variable('parallel', file_id, var_id%time, bounds_start(1:1), value_counts(1:1), bounds_origin(1:1),   &
-                                      .TRUE., values_realwp_1d=my_time, return_value=return_value)
+            CALL  netcdf4_write_variable('parallel', file_id, var_id%time, bounds_start(1:1),      &
+                                          value_counts(1:1), bounds_origin(1:1),                   &
+                                         .TRUE., values_realwp_1d=my_time, return_value=return_value)
          ENDIF
          DEALLOCATE(my_time)
@@ -531 +537 @@
    SUBROUTINE dop_finalize
       IMPLICIT NONE
-
+#if defined( __netcdf4 )
       INTEGER(iwp) :: var_len
+#endif
       INTEGER(iwp) :: return_value                !< Return value data_output_netcdf4 .. routines
+#if defined( __netcdf4 )
       INTEGER(iwp) :: ierr                        !< MPI error code
+#endif
 
       IF( win_prt_i /= -1)   THEN
@@ -927 +936 @@
             IF (part_io%iam_io_pe)   THEN
                IF(fix_variables(fix_ind)%is_integer)   THEN
-                  CALL netcdf4_init_variable( 'parallel', file_id, fix_variables(fix_ind)%var_id, fix_variables(fix_ind)%name, 'int32',  &
-                                                  dimension_ids(1:1), .FALSE., return_value )
+                  CALL netcdf4_init_variable( 'parallel', file_id, fix_variables(fix_ind)%var_id,  &
+                                              fix_variables(fix_ind)%name, 'int32',                &
+                                              dimension_ids(1:1), .FALSE., return_value )
                ELSE
-                  CALL netcdf4_init_variable( 'parallel', file_id, fix_variables(fix_ind)%var_id, fix_variables(fix_ind)%name, 'real32',  &
-                                                  dimension_ids(1:1), .FALSE., return_value )
+                  CALL netcdf4_init_variable( 'parallel', file_id, fix_variables(fix_ind)%var_id,  &
+                                               fix_variables(fix_ind)%name, 'real32',              &
+                                               dimension_ids(1:1), .FALSE., return_value )
                ENDIF
 
@@ -1124 +1135 @@
          IF (part_io%iam_io_pe)   THEN
             IF(fix_variables(i)%is_integer)   THEN
-               CALL  netcdf4_write_variable('parallel', file_id, fix_variables(i)%var_id, bounds_start, value_counts, bounds_origin,        &
-                  .FALSE., values_int32_1d=out_buf_i, return_value=return_value)
+               CALL  netcdf4_write_variable('parallel', file_id, fix_variables(i)%var_id, bounds_start, value_counts, &
+                                            bounds_origin, .FALSE., values_int32_1d=out_buf_i, return_value=return_value)
             ELSE
-               CALL  netcdf4_write_variable('parallel', file_id, fix_variables(i)%var_id, bounds_start, value_counts, bounds_origin,        &
-                  .FALSE., values_real32_1d=out_buf_r, return_value=return_value)
-            END IF
+               CALL  netcdf4_write_variable('parallel', file_id, fix_variables(i)%var_id, bounds_start, value_counts, &
+                                            bounds_origin, .FALSE., values_real32_1d=out_buf_r, return_value=return_value)
+            ENDIF
          ENDIF
          CALL  part_io%sm_node_barrier()
-      END DO
+      ENDDO
 
       RETURN