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

Timestamp:

May 7, 2020 3:58:16 PM (4 years ago)

Author:

eckhard

Message:

fixed constant-density pressure extrapolation, respect integer working precision

File:

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

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! respect integer working precision (iwp) specified in inifor_defs.f90
+! 
+! 
+! 4481 2020-03-31 18:55:54Z maronga
 ! Change output format in routine report to allow for better message formatting
 ! 
@@ -83 +87 @@
 
     USE inifor_defs,                                                           &
-        ONLY:  COPYRIGHT, LNAME, LOG_FILE_NAME, VERSION, wp
+        ONLY:  COPYRIGHT, LNAME, LOG_FILE_NAME, VERSION, iwp, wp
     USE inifor_util,                                                           &
         ONLY:  real_to_str, real_to_str_f
@@ -91 +95 @@
     CHARACTER (LEN=5000) ::  message = '' !< log message buffer
     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
+    INTEGER(iwp), SAVE        ::  u            !< Fortran file unit for the log file
+    INTEGER(iwp), SAVE        ::  n_wrngs = 0  !< Fortran file unit for the log file
 
  CONTAINS