Ignore:
Timestamp:
Mar 26, 2020 4:28:19 PM (18 months 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:
1 edited

Legend:

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

    r3997 r4475  
    2626! -----------------
    2727! $Id$
     28! Change output format in routine report to allow for better message formatting
     29!
     30! 3997 2019-05-23 12:35:57Z eckhard
    2831! Added warnings counter
    2932!
     
    126129
    127130    IF ( .NOT. suppress_message )  THEN
    128        PRINT *, "inifor: " // TRIM(message) // "  [ " // TRIM(routine) // " ]"
    129        WRITE(u, *)  TRIM(message) // "  [ " // TRIM(routine) // " ]"
     131       WRITE(*, '(A)') "inifor: " // TRIM(message) // "  [ " // TRIM(routine) // " ]"
     132       WRITE(u, '(A)')  TRIM(message) // "  [ " // TRIM(routine) // " ]"
    130133    ENDIF
    131134
Note: See TracChangeset for help on using the changeset viewer.