Changeset 4579 for palm/trunk/SOURCE/data_output_netcdf4_module.f90

Timestamp:

Jun 25, 2020 8:05:07 PM (4 years ago)

Author:

gronemeier

Message:

corrected formatting to follow PALM coding standard (data_output_module, data_output_binary_module, data_output_netcdf4_module)

File:

• palm/trunk/SOURCE/data_output_netcdf4_module.f90 (modified) (7 diffs)

palm/trunk/SOURCE/data_output_netcdf4_module.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! corrected formatting to follow PALM coding standard
+!
+! 4577 2020-06-25 09:53:58Z raasch
 ! file re-formatted to follow the PALM coding standard
 !
@@ -213 +216 @@
 #endif
 
-       IF ( return_value == 0 )  &
+       IF ( return_value == 0 )                                                                    &
           nc_stat = NF90_CREATE( TRIM( file_name ) // TRIM( file_suffix ),                         &
                                  IOR( NF90_NOCLOBBER, NF90_NETCDF4 ), file_id )
@@ -272 +275 @@
     CHARACTER(LEN=*), INTENT(IN), OPTIONAL ::  value_char      !< value of attribute
 
-    INTEGER ::  nc_stat    !< netcdf return value
-    INTEGER ::  target_id  !< ID of target which gets attribute (either global or variable_id)
-
     INTEGER, INTENT(IN)  ::  file_id       !< file ID
+    INTEGER              ::  nc_stat       !< netcdf return value
     INTEGER, INTENT(OUT) ::  return_value  !< return value
+    INTEGER              ::  target_id     !< ID of target which gets attribute (either global or variable_id)
     INTEGER, INTENT(IN)  ::  variable_id   !< variable ID
 
@@ -336 +338 @@
 !> Initialize dimension.
 !--------------------------------------------------------------------------------------------------!
- SUBROUTINE netcdf4_init_dimension( mode, file_id, dimension_id, variable_id, &
-               dimension_name, dimension_type, dimension_length, return_value )
+ SUBROUTINE netcdf4_init_dimension( mode, file_id, dimension_id, variable_id,                      &
+                                    dimension_name, dimension_type, dimension_length, return_value )
 
     CHARACTER(LEN=*), PARAMETER ::  routine_name = 'netcdf4_init_dimension'  !< name of this routine
@@ -374 +376 @@
 !
 !--    Define variable holding dimension values in file
-       CALL netcdf4_init_variable( mode, file_id, variable_id, dimension_name, dimension_type, &
+       CALL netcdf4_init_variable( mode, file_id, variable_id, dimension_name, dimension_type,     &
                                    (/ dimension_id /), is_global=.TRUE., return_value=return_value )
 
@@ -482 +484 @@
 
     WRITE( temp_string, * ) file_id
-    CALL internal_message( 'debug', routine_name // &
+    CALL internal_message( 'debug', routine_name //                                                &
                            ': finalize file definition (file_id=' // TRIM( temp_string ) // ')' )
 !
@@ -494 +496 @@
     IF ( nc_stat /= NF90_NOERR )  THEN
        return_value = 1
-       CALL internal_message( 'error', routine_name // &
+       CALL internal_message( 'error', routine_name //                                             &
                               ': NetCDF error: ' // NF90_STRERROR( nc_stat ) )
     ENDIF