Changeset 4408 for palm/trunk/SOURCE/data_output_netcdf4_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_netcdf4_module.f90 (modified) (4 diffs)

palm/trunk/SOURCE/data_output_netcdf4_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
 !
@@ -502 +505 @@
                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,  &
@@ -512 +516 @@
 
     CHARACTER(LEN=*), PARAMETER ::  routine_name = 'netcdf4_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              ::  d             !< loop index
@@ -578 +587 @@
 
        ndims = SIZE( bounds_start )
+
+!
+!--    character output
+       IF ( PRESENT( values_char_0d ) )  THEN
+          nc_stat = NF90_PUT_VAR( file_id, variable_id, (/ values_char_0d /), &
+                                  start = bounds_start - bounds_origin + 1,   &
+                                  count = value_counts )
+       ELSEIF ( PRESENT( values_char_1d ) )  THEN
+          nc_stat = NF90_PUT_VAR( file_id, variable_id, values_char_1d,     &
+                                  start = bounds_start - bounds_origin + 1, &
+                                  count = value_counts )
+       ELSEIF ( PRESENT( values_char_2d ) )  THEN
+          nc_stat = NF90_PUT_VAR( file_id, variable_id, values_char_2d,     &
+                                  start = bounds_start - bounds_origin + 1, &
+                                  count = value_counts )
+       ELSEIF ( PRESENT( values_char_3d ) )  THEN
+          nc_stat = NF90_PUT_VAR( file_id, variable_id, values_char_3d,     &
+                                  start = bounds_start - bounds_origin + 1, &
+                                  count = value_counts )
 !
 !--    8bit integer output
-       IF ( PRESENT( values_int8_0d ) )  THEN
+       ELSEIF ( PRESENT( values_int8_0d ) )  THEN
           nc_stat = NF90_PUT_VAR( file_id, variable_id, (/ values_int8_0d /), &
                                   start = bounds_start - bounds_origin + 1,   &