Changeset 4579 for palm/trunk/SOURCE/data_output_binary_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_binary_module.f90 (modified) (9 diffs)

palm/trunk/SOURCE/data_output_binary_module.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! corrected formatting to follow PALM coding standard
+!
+! 4577 2020-06-25 09:53:58Z raasch
 ! further re-formatting to follow the PALM coding standard
 !
@@ -192 +195 @@
 
     CHARACTER(LEN=charlen)             ::  bin_filename = ''  !< actual name of binary file
-    CHARACTER(LEN=7)                   ::  my_rank_char       !< string containing value of my_rank with leading zeros
-
     CHARACTER(LEN=charlen), INTENT(IN) ::  file_name          !< name of file
     CHARACTER(LEN=*),       INTENT(IN) ::  mode               !< operation mode
-
+    CHARACTER(LEN=7)                   ::  my_rank_char       !< string containing value of my_rank with leading zeros
+
+    INTEGER, INTENT(OUT) ::  file_id       !< file ID
     INTEGER              ::  my_rank       !< MPI rank of local processor
     INTEGER              ::  nranks        !< number of MPI ranks participating in output
-
-    INTEGER, INTENT(OUT) ::  file_id       !< file ID
     INTEGER, INTENT(OUT) ::  return_value  !< return value
 
@@ -250 +251 @@
           ENDIF
 
-          OPEN( config_file_unit, FILE=TRIM( config_file_name ) // TRIM( file_suffix ),          &
+          OPEN( config_file_unit, FILE=TRIM( config_file_name ) // TRIM( file_suffix ),            &
                 FORM='UNFORMATTED', STATUS='NEW', IOSTAT=return_value )
 
@@ -352 +353 @@
     CHARACTER(LEN=*), PARAMETER ::  routine_name = 'binary_write_attribute'  !< name of this routine
 
-    CHARACTER(LEN=charlen)                       ::  attribute_type        !< data type of attribute
-    CHARACTER(LEN=charlen)                       ::  output_string         !< output string
-
-    CHARACTER(LEN=charlen), INTENT(IN)           ::  attribute_name        !< name of attribute
-    CHARACTER(LEN=charlen), INTENT(IN), OPTIONAL ::  value_char            !< value of attribute
-
+    CHARACTER(LEN=charlen), INTENT(IN)           ::  attribute_name  !< name of attribute
+    CHARACTER(LEN=charlen)                       ::  attribute_type  !< data type of attribute
+    CHARACTER(LEN=charlen)                       ::  output_string   !< output string
+    CHARACTER(LEN=charlen), INTENT(IN), OPTIONAL ::  value_char      !< value of attribute
 
     INTEGER, INTENT(IN)  ::  file_id       !< file ID
+    INTEGER, INTENT(OUT) ::  return_value  !< return value
     INTEGER, INTENT(IN)  ::  variable_id   !< variable ID
-
-    INTEGER, INTENT(OUT) ::  return_value  !< return value
 
     INTEGER(KIND=1), INTENT(IN), OPTIONAL ::  value_int8   !< value of attribute
@@ -427 +425 @@
     CHARACTER(LEN=*), PARAMETER ::  routine_name = 'binary_init_dimension'  !< name of this routine
 
-    CHARACTER(LEN=charlen)             ::  output_string   !< output string
-
     CHARACTER(LEN=charlen), INTENT(IN) ::  dimension_name  !< name of dimension
     CHARACTER(LEN=charlen), INTENT(IN) ::  dimension_type  !< data type of dimension
     CHARACTER(LEN=*),       INTENT(IN) ::  mode            !< operation mode
-
+    CHARACTER(LEN=charlen)             ::  output_string   !< output string
+
+    INTEGER, INTENT(OUT) ::  dimension_id      !< dimension ID
     INTEGER, INTENT(IN)  ::  dimension_length  !< length of dimension
     INTEGER, INTENT(IN)  ::  file_id           !< file ID
-
-    INTEGER, INTENT(OUT) ::  dimension_id      !< dimension ID
     INTEGER, INTENT(OUT) ::  return_value      !< return value
     INTEGER, INTENT(OUT) ::  variable_id       !< variable ID
@@ -461 +457 @@
 !
 !-- Define variable associated with dimension
-    CALL binary_init_variable( mode, file_id, variable_id, dimension_name, dimension_type,        &
-                                (/ dimension_id /), is_global=.TRUE., return_value=return_value )
+    CALL binary_init_variable( mode, file_id, variable_id, dimension_name, dimension_type,         &
+                               (/ dimension_id /), is_global=.TRUE., return_value=return_value )
     IF ( return_value /= 0 )  THEN
        CALL internal_message( 'error', routine_name //                                             &
@@ -477 +473 @@
  SUBROUTINE binary_init_variable( mode, file_id, variable_id, variable_name, variable_type,        &
                                   dimension_ids, is_global, return_value )
+
     CHARACTER(LEN=*), PARAMETER ::  routine_name = 'binary_init_variable'  !< name of this routine
 
@@ -815 +812 @@
 
        WRITE( temp_string, * ) file_id
-       CALL internal_message( 'debug', routine_name // &
+       CALL internal_message( 'debug', routine_name //                                             &
                               ': close file (file_id=' // TRIM( temp_string ) // ')' )
 
@@ -821 +818 @@
        IF ( return_value /= 0 )  THEN
           WRITE( temp_string, * ) file_id
-          CALL internal_message( 'error', routine_name // &
+          CALL internal_message( 'error', routine_name //                                          &
                                  ': cannot close file (file_id=' // TRIM( temp_string ) // ')' )
        ENDIF