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

Timestamp:

Mar 26, 2020 4:28:19 PM (4 years ago)

Author:

gronemeier

Message:

bugfixes/changes to INIFOR:

• c: revise output format in routine report (inifor_control)
• b: check if namelist file was opened (inifor_grid)
• b: use explicit loop in routine reverse (inifor_util)

File:

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

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Change output format in routine report to allow for better message formatting
+! 
+! 3997 2019-05-23 12:35:57Z eckhard
 ! Added warnings counter
 ! 
@@ -126 +129 @@
 
     IF ( .NOT. suppress_message )  THEN
-       PRINT *, "inifor: " // TRIM(message) // "  [ " // TRIM(routine) // " ]"
-       WRITE(u, *)  TRIM(message) // "  [ " // TRIM(routine) // " ]"
+       WRITE(*, '(A)') "inifor: " // TRIM(message) // "  [ " // TRIM(routine) // " ]"
+       WRITE(u, '(A)')  TRIM(message) // "  [ " // TRIM(routine) // " ]"
     ENDIF