Changeset 4400 for palm/trunk/SOURCE/module_interface.f90

Timestamp:

Feb 10, 2020 8:32:41 PM (5 years ago)

Author:

suehring

Message:

Revision of the virtual-measurement module: data input from NetCDF file; removed binary output - instead parallel NetCDF output using the new data-output module; variable attributes added; further variables added that can be sampled, file connections added; Functions for coordinate transformation moved to basic_constants_and_equations; netcdf_data_input_mod: unused routines netcdf_data_input_att and netcdf_data_input_var removed; new routines to inquire fill values added; Preprocessing script (palm_cvd) to setup virtual-measurement input files provided; postprocessor combine_virtual_measurements deleted

File:

• palm/trunk/SOURCE/module_interface.f90 (modified) (8 diffs)

palm/trunk/SOURCE/module_interface.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! - Use data-output module for virtual measurement output
+! - Remove deprecated routines for virtual measurement module
+! 
+! 4361 2020-01-07 12:22:38Z suehring
 ! Remove unused arrays in pmc_rrd_local
 ! 
@@ -172 +176 @@
     USE kinds
 
+    USE pegrid,                                                                &
+        ONLY:  comm2d
+
 !
 !-- load module-specific control parameters.
 !-- ToDo: move all of them to respective module or a dedicated central module
+    USE data_output_module,                                                    &
+        ONLY:  dom_def_end,                                                    &
+               dom_finalize_output,                                            &
+               dom_init
 
     USE dynamics_mod, &
@@ -220 +231 @@
         ONLY:  air_chemistry,                                                  &
                biometeorology,                                                 &
+               coupling_char,                                                  &
                debug_output,                                                   &
                debug_output_timestep,                                          &
@@ -493 +505 @@
         ONLY:  vm_check_parameters,                                            &
                vm_init,                                                        &
-               vm_last_actions,                                                &
+               vm_init_output,                                                 &
                vm_parin
 
@@ -543 +555 @@
        module_interface_init,                                                  &
        module_interface_init_checks,                                           &
+       module_interface_init_output,                                           &
        module_interface_header,                                                &
        module_interface_actions,                                               &
@@ -600 +613 @@
        MODULE PROCEDURE module_interface_init_checks
     END INTERFACE module_interface_init_checks
+
+    INTERFACE module_interface_init_output
+       MODULE PROCEDURE module_interface_init_output
+    END INTERFACE module_interface_init_output
 
     INTERFACE module_interface_header
@@ -1081 +1098 @@
     IF ( debug_output )  CALL debug_message( 'module-specific initialization', 'end' )
 
-
  END SUBROUTINE module_interface_init
 
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> Initialize data output
+!------------------------------------------------------------------------------!
+ SUBROUTINE module_interface_init_output
+
+    INTEGER(iwp) ::  return_value  !< returned status value of called function
+
+!
+!-- Initialize data-output module
+    CALL dom_init( file_suffix_of_output_group=coupling_char,                  &
+                   mpi_comm_of_output_group=comm2d,                            &
+                   program_debug_output_unit=6,                                &
+                   debug_output=debug_output )
+!
+!-- Define module-specific output quantities
+    IF ( virtual_measurement )  CALL vm_init_output
+!
+!-- Leave output-definition state
+    return_value = dom_def_end()
+
+ END SUBROUTINE module_interface_init_output
 
 !------------------------------------------------------------------------------!
@@ -1890 +1929 @@
  SUBROUTINE module_interface_last_actions
 
+    INTEGER ::  return_value  !< returned status value of a called function
+
 
     IF ( debug_output )  CALL debug_message( 'module-specific last actions', 'start' )
 
+    return_value = dom_finalize_output()
+
     CALL dynamics_last_actions
 
-    IF ( virtual_measurement )  CALL vm_last_actions
-
     IF ( user_module_enabled )  CALL user_last_actions