Changeset 3997 for palm/trunk/UTIL/inifor/src/inifor.f90

Timestamp:

May 23, 2019 12:35:57 PM (5 years ago)

Author:

eckhard

Message:

inifor: Read origin_z from static driver if given; alert user to warnings

File:

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

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Alert user to warnings if any
+! 
+! 
+! 3866 2019-04-05 14:25:01Z eckhard
 ! Use PALM's working precision
 ! Show error message if compiled without netCDF support
@@ -185 +189 @@
 !
 !-- Initialize the netCDF output file and define dimensions
-    CALL setup_netcdf_dimensions(output_file, palm_grid, cfg%start_date,    &
-                                 origin_lon, origin_lat)
+    CALL setup_netcdf_dimensions( output_file, palm_grid, cfg%start_date,      &
+                                  origin_lon, origin_lat )
     CALL log_runtime( 'time', 'write' )
 
@@ -587 +591 @@
     CALL log_runtime( 'report', 'void' )
 
-    message = "Finished writing dynamic driver '" // TRIM( output_file%name ) // &
-              "' successfully."
+    message = "Finished writing dynamic driver '" // TRIM( output_file%name )
+   
+    IF ( n_wrngs > 0 )  THEN
+       message = TRIM( message ) // "' with " // TRIM( str( n_wrngs ) ) //     &
+       " warning(s). Please see logfile '" // LOG_FILE_NAME // "'."
+    ELSE
+       message = TRIM( message ) // "' successfully."
+    END IF
+
     CALL report( 'main loop', message )
     CALL close_log