Changeset 3997 for palm/trunk/UTIL/inifor/src/inifor_control.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_control.f90 (modified) (3 diffs)

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Added warnings counter
+! 
+! 
+! 3866 2019-04-05 14:25:01Z eckhard
 ! Use PALM's working precision
 ! Renamed run_control -> log_runtime
@@ -85 +89 @@
     CHARACTER (LEN=5000) ::  tip     = '' !< optional log message buffer for tips on how to rectify encountered errors
     INTEGER, SAVE        ::  u            !< Fortran file unit for the log file
+    INTEGER, SAVE        ::  n_wrngs = 0  !< Fortran file unit for the log file
 
  CONTAINS
@@ -143 +148 @@
     CHARACTER(LEN=*), INTENT(IN) ::  message !< log message
 
+    n_wrngs = n_wrngs + 1
     CALL report(routine, "WARNING: " // TRIM(message))