Changeset 4675 for palm/trunk/UTIL/inifor/src/inifor_control.f90

Timestamp:

Sep 11, 2020 10:00:26 AM (4 years ago)

Author:

eckhard

Message:

Support for homogeneous (domain-averaged) boundary conditions and soil profile initialization

File:

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

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Improve visibility of errors by printing them below warnings listing
+!
+!
+! 4659 2020-08-31 11:21:17Z eckhard
 ! List warnings after successful run or abort
 ! Produce failure exit code (1) on program abort for test automation
@@ -207 +211 @@
  SUBROUTINE report_warnings()
 
-    INTEGER(iwp) ::  warning_idx
+    INTEGER(iwp)        ::  warning_idx
+    CHARACTER (LEN=500) ::  warning = ''
 
     IF (n_wrngs > 0)  THEN
-       message = 'Encountered the following '// TRIM( str( n_wrngs ) ) // " warning(s) during this run:"
-       CALL report( 'report_warnings', message )
+       warning = 'Encountered the following '// TRIM( str( n_wrngs ) ) // " warning(s) during this run:"
+       CALL report( 'report_warnings', warning)
 
        DO warning_idx = 1, n_wrngs
@@ -233 +238 @@
     message = TRIM( message ) // "' successfully."
     IF (n_wrngs > 0)  THEN
-       message = TRIM( message ) // " Some warnings were encountered."
+       message = TRIM( message ) // " Some warnings were encountered, see above."
     ENDIF
     CALL report( 'main loop', message )
@@ -268 +273 @@
     CHARACTER(LEN=*), INTENT(IN) ::  message !< log message
 
+    CALL report_warnings
     CALL report( routine, "ERROR: " // TRIM( message ) // " Stopping." )
-    CALL report_warnings
     CALL close_log
     CALL EXIT(1)