Changeset 4779 for palm


Ignore:
Timestamp:
Nov 9, 2020 5:45:22 PM (3 years ago)
Author:
suehring
Message:

Avoid overlong lines and unused variables

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/data_output_particle_mod.f90

    r4778 r4779  
    2424! -----------------
    2525! $Id$
     26! Avoid overlong lines and unused variables
     27!
     28! 4778 2020-11-09 13:40:05Z raasch
    2629! Initial implementation (K. Ketelsen)
    2730!
     
    494497         IF (part_io%iam_io_pe)   THEN
    495498            IF(variables(i)%is_integer)   THEN
    496                CALL  netcdf4_write_variable('parallel', file_id, variables(i)%var_id, bounds_start, value_counts, bounds_origin,        &
    497                   .FALSE., values_int32_1d=out_buf_i, return_value=return_value)
     499               CALL  netcdf4_write_variable('parallel', file_id, variables(i)%var_id, bounds_start,&
     500                                             value_counts, bounds_origin,                          &
     501                                             .FALSE., values_int32_1d=out_buf_i, return_value=return_value)
    498502            ELSE
    499                CALL  netcdf4_write_variable('parallel', file_id, variables(i)%var_id, bounds_start, value_counts, bounds_origin,        &
    500                   .FALSE., values_real32_1d=out_buf_r, return_value=return_value)
     503               CALL  netcdf4_write_variable('parallel', file_id, variables(i)%var_id, bounds_start,&
     504                                             value_counts, bounds_origin,                          &
     505                                            .FALSE., values_real32_1d=out_buf_r, return_value=return_value)
    501506            ENDIF
    502507         ENDIF
     
    520525            time_axis_values(icount) = my_time(1)
    521526         ELSE
    522             CALL  netcdf4_write_variable('parallel', file_id, var_id%time, bounds_start(1:1), value_counts(1:1), bounds_origin(1:1),   &
    523                                       .TRUE., values_realwp_1d=my_time, return_value=return_value)
     527            CALL  netcdf4_write_variable('parallel', file_id, var_id%time, bounds_start(1:1),      &
     528                                          value_counts(1:1), bounds_origin(1:1),                   &
     529                                         .TRUE., values_realwp_1d=my_time, return_value=return_value)
    524530         ENDIF
    525531         DEALLOCATE(my_time)
     
    531537   SUBROUTINE dop_finalize
    532538      IMPLICIT NONE
    533 
     539#if defined( __netcdf4 )
    534540      INTEGER(iwp) :: var_len
     541#endif
    535542      INTEGER(iwp) :: return_value                !< Return value data_output_netcdf4 .. routines
     543#if defined( __netcdf4 )
    536544      INTEGER(iwp) :: ierr                        !< MPI error code
     545#endif
    537546
    538547      IF( win_prt_i /= -1)   THEN
     
    927936            IF (part_io%iam_io_pe)   THEN
    928937               IF(fix_variables(fix_ind)%is_integer)   THEN
    929                   CALL netcdf4_init_variable( 'parallel', file_id, fix_variables(fix_ind)%var_id, fix_variables(fix_ind)%name, 'int32',  &
    930                                                   dimension_ids(1:1), .FALSE., return_value )
     938                  CALL netcdf4_init_variable( 'parallel', file_id, fix_variables(fix_ind)%var_id,  &
     939                                              fix_variables(fix_ind)%name, 'int32',                &
     940                                              dimension_ids(1:1), .FALSE., return_value )
    931941               ELSE
    932                   CALL netcdf4_init_variable( 'parallel', file_id, fix_variables(fix_ind)%var_id, fix_variables(fix_ind)%name, 'real32',  &
    933                                                   dimension_ids(1:1), .FALSE., return_value )
     942                  CALL netcdf4_init_variable( 'parallel', file_id, fix_variables(fix_ind)%var_id,  &
     943                                               fix_variables(fix_ind)%name, 'real32',              &
     944                                               dimension_ids(1:1), .FALSE., return_value )
    934945               ENDIF
    935946
     
    11241135         IF (part_io%iam_io_pe)   THEN
    11251136            IF(fix_variables(i)%is_integer)   THEN
    1126                CALL  netcdf4_write_variable('parallel', file_id, fix_variables(i)%var_id, bounds_start, value_counts, bounds_origin,        &
    1127                   .FALSE., values_int32_1d=out_buf_i, return_value=return_value)
     1137               CALL  netcdf4_write_variable('parallel', file_id, fix_variables(i)%var_id, bounds_start, value_counts, &
     1138                                            bounds_origin, .FALSE., values_int32_1d=out_buf_i, return_value=return_value)
    11281139            ELSE
    1129                CALL  netcdf4_write_variable('parallel', file_id, fix_variables(i)%var_id, bounds_start, value_counts, bounds_origin,        &
    1130                   .FALSE., values_real32_1d=out_buf_r, return_value=return_value)
    1131             END IF
     1140               CALL  netcdf4_write_variable('parallel', file_id, fix_variables(i)%var_id, bounds_start, value_counts, &
     1141                                            bounds_origin, .FALSE., values_real32_1d=out_buf_r, return_value=return_value)
     1142            ENDIF
    11321143         ENDIF
    11331144         CALL  part_io%sm_node_barrier()
    1134       END DO
     1145      ENDDO
    11351146
    11361147      RETURN
Note: See TracChangeset for help on using the changeset viewer.