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

Timestamp:

Feb 14, 2020 10:04:39 AM (4 years ago)

Author:

gronemeier

Message:

write fill_value attribute in virtual-measurements module; enable character-array output in data-output module

File:

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

palm/trunk/SOURCE/data_output_binary_module.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Enable character-array output
+!
+! 4232 2019-09-20 09:34:22Z knoop
 ! Bugfix: INCLUDE "mpif.h" must be placed after IMPLICIT NONE statement
 !
@@ -532 +535 @@
                file_id, variable_id, bounds_start, value_counts, bounds_origin,        &
                is_global,                                                              &
+               values_char_0d,   values_char_1d,   values_char_2d,   values_char_3d,   &
                values_int8_0d,   values_int8_1d,   values_int8_2d,   values_int8_3d,   &
                values_int16_0d,  values_int16_1d,  values_int16_2d,  values_int16_3d,  &
@@ -544 +548 @@
 
     CHARACTER(LEN=*), PARAMETER ::  routine_name = 'binary_write_variable'  !< name of this routine
+
+    CHARACTER(LEN=1), POINTER,             INTENT(IN), OPTIONAL                   ::  values_char_0d  !< output variable
+    CHARACTER(LEN=1), POINTER, CONTIGUOUS, INTENT(IN), OPTIONAL, DIMENSION(:)     ::  values_char_1d  !< output variable
+    CHARACTER(LEN=1), POINTER, CONTIGUOUS, INTENT(IN), OPTIONAL, DIMENSION(:,:)   ::  values_char_2d  !< output variable
+    CHARACTER(LEN=1), POINTER, CONTIGUOUS, INTENT(IN), OPTIONAL, DIMENSION(:,:,:) ::  values_char_3d  !< output variable
 
     INTEGER, INTENT(IN)  ::  file_id       !< file ID
@@ -599 +608 @@
        WRITE( file_id )  bounds_origin
 !
+!--    character output
+       IF ( PRESENT( values_char_0d ) )  THEN
+          output_string = 'char'
+          WRITE( file_id )  output_string
+          WRITE( file_id )  values_char_0d
+       ELSEIF ( PRESENT( values_char_1d ) )  THEN
+          output_string = 'char'
+          WRITE( file_id )  output_string
+          WRITE( file_id )  values_char_1d
+       ELSEIF ( PRESENT( values_char_2d ) )  THEN
+          output_string = 'char'
+          WRITE( file_id )  output_string
+          WRITE( file_id )  values_char_2d
+       ELSEIF ( PRESENT( values_char_3d ) )  THEN
+          output_string = 'char'
+          WRITE( file_id )  output_string
+          WRITE( file_id )  values_char_3d
+!
 !--    8bit integer output
-       IF ( PRESENT( values_int8_0d ) )  THEN
+       ELSEIF ( PRESENT( values_int8_0d ) )  THEN
           output_string = 'int8'
           WRITE( file_id )  output_string