Changeset 3704 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Jan 29, 2019 7:51:41 PM (5 years ago)

Author:

suehring

Message:

Revision of virtual-measurement module and data output enabled. Further, post-processing tool added to merge distributed virtually sampled data and to output it into NetCDF files.

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Interface for attribute input of 8-bit and 32-bit integer 
 ! 
 ! Former revisions:
@@ -777 +777 @@
     
     INTERFACE netcdf_data_input_att
-       MODULE PROCEDURE netcdf_data_input_att_int
+       MODULE PROCEDURE netcdf_data_input_att_int8
+       MODULE PROCEDURE netcdf_data_input_att_int32
        MODULE PROCEDURE netcdf_data_input_att_real
        MODULE PROCEDURE netcdf_data_input_att_string
@@ -1174 +1175 @@
 ! Description:
 ! ------------
-!> Read a global integer attribute 
-!------------------------------------------------------------------------------!
-    SUBROUTINE netcdf_data_input_att_int( val, search_string, id_mod,          &
-                                          input_file, global, openclose,       &
-                                          variable_name )
+!> Read a global 8-bit integer attribute 
+!------------------------------------------------------------------------------!
+    SUBROUTINE netcdf_data_input_att_int8( val, search_string, id_mod,         &
+                                           input_file, global, openclose,      &
+                                           variable_name )
+
+       IMPLICIT NONE
+
+       CHARACTER(LEN=*) ::  search_string !< name of the attribue
+       
+       CHARACTER(LEN=*) ::  input_file    !< name of input file
+       CHARACTER(LEN=*) ::  openclose     !< string indicating whether NetCDF needs to be opend or closed
+       CHARACTER(LEN=*) ::  variable_name !< string indicating whether NetCDF needs to be opend or closed 
+       
+       INTEGER(iwp) ::  id_mod   !< NetCDF id of input file
+       INTEGER(KIND=1) ::  val      !< value of the attribute
+       
+       LOGICAL ::  global        !< flag indicating a global or a variable's attribute
+
+#if defined ( __netcdf )
+!
+!--    Open file in read-only mode
+       IF ( openclose == 'open' )  THEN
+          CALL open_read_file( TRIM( input_file ) // TRIM( coupling_char ), &
+                                  id_mod )
+       ENDIF
+!
+!--    Read global attribute
+       IF ( global )  THEN
+          CALL get_attribute( id_mod, search_string, val, global )
+!
+!--    Read variable attribute
+       ELSE
+          CALL get_attribute( id_mod, search_string, val, global, variable_name )
+       ENDIF
+!
+!--    Finally, close input file
+       IF ( openclose == 'close' )  CALL close_input_file( id_mod )
+#endif            
+
+    END SUBROUTINE netcdf_data_input_att_int8
+    
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Read a global 32-bit integer attribute 
+!------------------------------------------------------------------------------!
+    SUBROUTINE netcdf_data_input_att_int32( val, search_string, id_mod,        &
+                                            input_file, global, openclose,     &
+                                            variable_name )
 
        IMPLICIT NONE
@@ -1214 +1260 @@
 #endif            
 
-    END SUBROUTINE netcdf_data_input_att_int
+    END SUBROUTINE netcdf_data_input_att_int32
     
 !------------------------------------------------------------------------------!