Changeset 4123 for palm/trunk/SOURCE/data_output_binary_module.f90

Timestamp:

Jul 26, 2019 1:45:03 PM (5 years ago)

Author:

gronemeier

Message:

bugfix: do not assue that output arrays start with index 0

File:

• palm/trunk/SOURCE/data_output_binary_module.f90 (modified) (4 diffs)

palm/trunk/SOURCE/data_output_binary_module.f90

@@ -525 +525 @@
 !--------------------------------------------------------------------------------------------------!
 SUBROUTINE binary_write_variable(                                         &
-              file_id, var_id, bounds_start, bounds_end, bounds_origin,   &
-              do_output, is_global,                                       &
+              file_id, var_id, bounds_start, value_counts, bounds_origin, &
+              is_global,                                                  &
               var_int8_0d,   var_int8_1d,   var_int8_2d,   var_int8_3d,   &
               var_int16_0d,  var_int16_1d,  var_int16_2d,  var_int16_3d,  &
@@ -545 +545 @@
 
    INTEGER(iwp), DIMENSION(:), INTENT(IN) ::  bounds_origin  !< starting index of each dimension
-   INTEGER(iwp), DIMENSION(:), INTENT(IN) ::  bounds_end     !< ending index of variable
    INTEGER(iwp), DIMENSION(:), INTENT(IN) ::  bounds_start   !< starting index of variable
+   INTEGER(iwp), DIMENSION(:), INTENT(IN) ::  value_counts   !< count of values along each dimension to be written
 
    INTEGER(KIND=1), POINTER, INTENT(IN), OPTIONAL                               ::  var_int8_0d  !< output variable
@@ -568 +568 @@
    INTEGER(iwp), POINTER, CONTIGUOUS, INTENT(IN), OPTIONAL, DIMENSION(:,:,:) ::  var_intwp_3d  !< output variable
 
-   LOGICAL, INTENT(IN) ::  do_output  !< write output only if do_output = true
    LOGICAL, INTENT(IN) ::  is_global  !< true if variable is global (same on all PE)
 
@@ -594 +593 @@
    IF ( is_global )  CONTINUE  ! reqired to prevent compiler warning
 
-   IF ( do_output )  THEN
+   IF ( .NOT. ANY( value_counts == 0 ) )  THEN
       WRITE( file_id )  var_id
       WRITE( file_id )  bounds_start
-      WRITE( file_id )  bounds_end
+      WRITE( file_id )  value_counts
       WRITE( file_id )  bounds_origin
       !-- 8bit integer output