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_control.f90

    r3866 r3997  
    2626! -----------------
    2727! $Id$
     28! Added warnings counter
     29!
     30!
     31! 3866 2019-04-05 14:25:01Z eckhard
    2832! Use PALM's working precision
    2933! Renamed run_control -> log_runtime
     
    8589    CHARACTER (LEN=5000) ::  tip     = '' !< optional log message buffer for tips on how to rectify encountered errors
    8690    INTEGER, SAVE        ::  u            !< Fortran file unit for the log file
     91    INTEGER, SAVE        ::  n_wrngs = 0  !< Fortran file unit for the log file
    8792
    8893 CONTAINS
     
    143148    CHARACTER(LEN=*), INTENT(IN) ::  message !< log message
    144149
     150    n_wrngs = n_wrngs + 1
    145151    CALL report(routine, "WARNING: " // TRIM(message))
    146152
Note: See TracChangeset for help on using the changeset viewer.