Changeset 3182 for palm/trunk/UTIL/inifor/src/util.f90

Timestamp:

Jul 27, 2018 1:36:03 PM (6 years ago)

Author:

suehring

Message:

New Inifor features: grid stretching, improved command-interface, support start dates in different formats in both YYYYMMDD and YYYYMMDDHH, Ability to manually control input file prefixes (--radiation-prefix, --soil-preifx, --flow-prefix, --soilmoisture-prefix) for compatiblity with DWD forcast naming scheme; GNU-style short and long option; Prepared output of large-scale forcing profiles (no computation yet); Added preprocessor flag netcdf4 to switch output format between netCDF 3 and 4; Updated netCDF variable names and attributes to comply with PIDS v1.9; Inifor bugfixes: Improved compatibility with older Intel Intel compilers by avoiding implicit array allocation; Added origin_lon/_lat values and correct reference time in dynamic driver global attributes; corresponding PALM changes: adjustments to revised Inifor; variables names in dynamic driver adjusted; enable geostrophic forcing also in offline nested mode; variable names in LES-LES and COSMO offline nesting changed; lateral boundary flags for nesting, in- and outflow conditions renamed

File:

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

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

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
+! Improved real-to-string conversion
 ! 
 ! 
@@ -43 +44 @@
         ONLY :  C_CHAR, C_INT, C_PTR, C_SIZE_T
     USE defs,                                                                  &
-        ONLY :  dp, PI, DATE
+        ONLY :  dp, PI, DATE, SNAME
 
     IMPLICIT NONE
@@ -279 +280 @@
     ! Convert a real number to a string in scientific notation
     ! showing four significant digits.
-    CHARACTER(LEN=11) FUNCTION real_to_str(val, format)
+    CHARACTER(LEN=SNAME) FUNCTION real_to_str(val, format)
 
         REAL(dp), INTENT(IN)                   ::  val
@@ -285 +286 @@
 
         IF (PRESENT(format))  THEN
-           WRITE(real_to_str, TRIM(format)) val
+           WRITE(real_to_str, format) val
         ELSE
            WRITE(real_to_str, '(E11.4)') val
-           real_to_str = ADJUSTL(real_to_str)
         END IF
+        real_to_str = ADJUSTL(real_to_str)
 
     END FUNCTION real_to_str