Ignore:
Timestamp:
May 23, 2019 12:35:57 PM (2 years ago)
Author:
eckhard
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/src/inifor.f90

    r3866 r3997  
    2626! -----------------
    2727! $Id$
     28! Alert user to warnings if any
     29!
     30!
     31! 3866 2019-04-05 14:25:01Z eckhard
    2832! Use PALM's working precision
    2933! Show error message if compiled without netCDF support
     
    185189!
    186190!-- Initialize the netCDF output file and define dimensions
    187     CALL setup_netcdf_dimensions(output_file, palm_grid, cfg%start_date,    &
    188                                  origin_lon, origin_lat)
     191    CALL setup_netcdf_dimensions( output_file, palm_grid, cfg%start_date,      &
     192                                  origin_lon, origin_lat )
    189193    CALL log_runtime( 'time', 'write' )
    190194
     
    587591    CALL log_runtime( 'report', 'void' )
    588592
    589     message = "Finished writing dynamic driver '" // TRIM( output_file%name ) // &
    590               "' successfully."
     593    message = "Finished writing dynamic driver '" // TRIM( output_file%name )
     594   
     595    IF ( n_wrngs > 0 )  THEN
     596       message = TRIM( message ) // "' with " // TRIM( str( n_wrngs ) ) //     &
     597       " warning(s). Please see logfile '" // LOG_FILE_NAME // "'."
     598    ELSE
     599       message = TRIM( message ) // "' successfully."
     600    END IF
     601
    591602    CALL report( 'main loop', message )
    592603    CALL close_log
Note: See TracChangeset for help on using the changeset viewer.