Changeset 4790 for palm/trunk/UTIL/inifor/src/inifor_grid.f90

Timestamp:

Nov 18, 2020 1:05:58 PM (3 years ago)

Author:

eckhard

Message:

inifor: Validate netCDF dimensions of COSMO input files

File:

• palm/trunk/UTIL/inifor/src/inifor_grid.f90 (modified) (5 diffs)

palm/trunk/UTIL/inifor/src/inifor_grid.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Call dataset validation
+! Fixed error message
+!
+!
+! 4715 2020-09-30 13:14:43Z eckhard
 ! Make LODs for top boundary conditions consistent with PALM
 !
@@ -205 +210 @@
                PIDS_ORIGIN_Z
     USE inifor_io,                                                             &
-        ONLY:  file_is_present, get_cosmo_grid, get_input_file_list, get_netcdf_attribute,      &
-               get_netcdf_dim_vector, get_netcdf_variable, set_palm_origin,    &
-               netcdf_variable_present_in_file, parse_command_line_arguments, validate_config,                  &
-               has_surface_value
+        ONLY:  file_is_present, get_cosmo_grid, get_input_file_list,           &
+               get_netcdf_attribute, get_netcdf_dim_vector,                    &
+               get_netcdf_variable, set_palm_origin,                           &
+               netcdf_variable_present_in_file, parse_command_line_arguments,  &
+               validate_config, validate_dataset, has_surface_value
     USE inifor_transform,                                                      &
         ONLY:  average_2d, rotate_to_cosmo, find_horizontal_neighbours,        &
@@ -591 +597 @@
 ! Section 3: Check for consistency
 !------------------------------------------------------------------------------
+    CALL validate_dataset( flow_files, cfg%hhl_file )
 
 !
@@ -612 +619 @@
     CALL log_runtime('time', 'read')
 
-    CALL get_cosmo_grid( cfg % hhl_file, soil_files(1), rlon, rlat, hhl, hfl,  &
+    CALL get_cosmo_grid( cfg%hhl_file, soil_files(1), rlon, rlat, hhl, hfl,    &
                          depths, d_depth, d_depth_rho_inv, phi_n, lambda_n,    &
                          phi_equat,                                            &
@@ -2384 +2391 @@
              ELSE
                 message = "Set up input file name '" // TRIM(filename) // "'"
-                CALL report('verify_file', message)
+                CALL report('validate_io_groups', message)
              ENDIF