Changeset 4790 for palm/trunk/UTIL/inifor/src/inifor_util.f90

Timestamp:

Nov 18, 2020 1:05:58 PM (3 years ago)

Author:

eckhard

Message:

inifor: Validate netCDF dimensions of COSMO input files

File:

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

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

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Support integer-string conversion for 8 and 4 bit types
+! 
+! 
+! 4568 2020-06-19 11:56:30Z eckhard
 ! Added function for checking floating point equality
 ! 
@@ -166 +170 @@
  END INTERFACE
 
+ 
+ INTERFACE str
+    MODULE PROCEDURE str_iwp
+    MODULE PROCEDURE str_4
+ END INTERFACE
+
+
  CONTAINS
 
@@ -438 +449 @@
 !> Converts the given integer value to a string
 !------------------------------------------------------------------------------!
- CHARACTER(LEN=10) FUNCTION str(val)
+ CHARACTER(LEN=10) FUNCTION str_iwp(val)
 
      INTEGER(iwp), INTENT(IN) ::  val
 
-     WRITE(str, '(i10)') val
-     str = ADJUSTL(str)
-
- END FUNCTION str
-
-
+     WRITE(str_iwp, '(i10)') val
+     str_iwp= ADJUSTL(str_iwp)
+
+ END FUNCTION str_iwp
+
+
+ CHARACTER(LEN=10) FUNCTION str_4(val)
+
+     INTEGER(4), INTENT(IN) ::  val
+
+     WRITE(str_4, '(i10)') val
+     str_4 = ADJUSTL(str_4)
+
+ END FUNCTION str_4
 !------------------------------------------------------------------------------!
 ! Description: