Changeset 4808 for palm/trunk/UTIL

Timestamp:

Dec 3, 2020 1:08:23 PM (3 years ago)

Author:

eckhard

Message:

Small error handling improvements

• Added offending height values to model-top error message
• Temporarily disabling dataset validation, enabling compatibility for HHL fields without time dimension

Location:

palm/trunk/UTIL/inifor/src

Files:

• inifor.f90 (modified) (1 diff)
• inifor_defs.f90 (modified) (1 diff)
• inifor_grid.f90 (modified) (2 diffs)
• inifor_transform.f90 (modified) (3 diffs)

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

@@ -85 +85 @@
 ! Added main loop support for computation of geostrophic winds and surface
 !     pressure
-! Cleaned up terminal output, show some meVssages only with --debug option
+! Cleaned up terminal output, show some messages only with --debug option
 ! 
 ! 3183 2018-07-27 14:25:55Z suehring

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

@@ -214 +214 @@
     ACHAR( 10 ) // ' Copyright 2017-2020 Deutscher Wetterdienst Offenbach' !< Copyright notice
  CHARACTER(LEN=*), PARAMETER ::  LOG_FILE_NAME = 'inifor.log' !< Name of INIFOR's log file
- CHARACTER(LEN=*), PARAMETER ::  VERSION = '2.1.3'            !< INIFOR version number
+ CHARACTER(LEN=*), PARAMETER ::  VERSION = '2.1.4'            !< INIFOR version number
  
  END MODULE inifor_defs

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Temporarily disabling dataset validation, enabling compatibility for HHL
+!    fields without time dimension
+!
+!
+! 4790 2020-11-18 13:05:58Z eckhard
 ! Call dataset validation
 ! Fixed error message
@@ -597 +602 @@
 ! Section 3: Check for consistency
 !------------------------------------------------------------------------------
-    CALL validate_dataset( flow_files, cfg%hhl_file )
+    !CALL validate_dataset( flow_files, cfg%hhl_file )
 
 !

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Add offending height values to model-top error message
+!
+!
+! 4756 2020-10-26 10:05:58Z eckhard
 ! Fixed an error in surface pressure extrapolation where the cosmo grid was
 !    misinterpreted as palm grid
@@ -1105 +1109 @@
              palm_grid%w_verti(i,j,k,1:2) = - 2.0_wp
 
-             message = "PALM-4U grid extends above COSMO-DE model top."
+             message =                                                         &
+                "PALM-4U grid extends above COSMO model top. " //              &
+                "Height of COSMO model top: " //                               &
+                TRIM( real_to_str( column_top, format = '(F11.3)') ) //        &
+                " m, height of current PALM point: " //                        &
+                TRIM( real_to_str( current_height , format = '(F11.3)') ) //   &
+                " m, height of PALM model top: " //                            &
+                TRIM( real_to_str( MAXVAL(palm_grid%z) + palm_grid%z0, '(F11.3)') ) // " m."
              CALL inifor_abort('find_vertical_neighbours_and_weights', message)
 
@@ -1246 +1257 @@
              avg_grid%w(l,k_palm,1:2) = - 2.0_wp
 
-             message = "PALM-4U grid extends above COSMO-DE model top."
+             message =                                                         &
+                "PALM-4U grid extends above COSMO model top. " //              &
+                "Height of COSMO model top: " //                               &
+                TRIM( real_to_str( column_top, format = '(F11.3)') ) //        &
+                " m, height of current PALM point: " //                        &
+                TRIM( real_to_str( current_height , format = '(F11.3)') ) //   &
+                " m, height of PALM model top: " //                            &
+                TRIM( real_to_str( MAXVAL(avg_grid%z) + avg_grid%z0, '(F11.3)') ) // " m."
              CALL inifor_abort('find_vertical_neighbours_and_weights_average', message)