Changeset 3764 for palm

Timestamp:

Feb 26, 2019 1:42:09 PM (6 years ago)

Author:

eckhard

Message:

inifor: bugfix: removed dependency on radiation input files

Location:

palm/trunk/UTIL/inifor

Files:

• README (modified) (1 diff)
• src/inifor_defs.f90 (modified) (2 diffs)
• src/inifor_io.f90 (modified) (3 diffs)

palm/trunk/UTIL/inifor/README

@@ -1 @@
-# INIFOR - Mesoscale Interface for Initializing and Forcing PALM-4U (v1.4.4)
+# INIFOR - Mesoscale Interface for Initializing and Forcing PALM-4U (v1.4.6)
 
 INIFOR provides the meteorological fields required to initialize and drive the

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bumped version number
+! 
+! 
+! 3716 2019-02-05 17:02:38Z eckhard
 ! Bumped version number
 ! 
@@ -132 +136 @@
  INTEGER, PARAMETER          ::  FORCING_STEP = 1             !< Number of hours between forcing time steps [h]
  REAL(dp), PARAMETER         ::  NUDGING_TAU = 21600.0_dp     !< Nudging relaxation time scale [s]
- CHARACTER(LEN=*), PARAMETER ::  VERSION = '1.4.5'            !< INIFOR version number
+ CHARACTER(LEN=*), PARAMETER ::  VERSION = '1.4.6'            !< INIFOR version number
  CHARACTER(LEN=*), PARAMETER ::  COPYRIGHT = 'Copyright 2017-2018 Leibniz Universitaet Hannover' // &
      ACHAR( 10 ) // ' Copyright 2017-2018 Deutscher Wetterdienst Offenbach' !< Copyright notice

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Removed dependency on radiation input files
+! 
+! 
+! 3716 2019-02-05 17:02:38Z eckhard
 ! Removed dependency on soilmoisture input files
 ! 
@@ -565 +569 @@
                           TRIM(date_string) // TRIM(suffix) // '.nc'
 
-         message = "Set up input file name '" // TRIM(file_list(i+1)) // "'"
-         CALL report('input_file_list', message)
-
       END DO
 
@@ -646 +647 @@
 
       END IF
+
+      message = "Set up input file name '" // TRIM(file_name) // "'"
+      CALL report('verify_file', message)
 
    END SUBROUTINE verify_file