Changeset 3764 for palm/trunk/UTIL


Ignore:
Timestamp:
Feb 26, 2019 1:42:09 PM (2 years ago)
Author:
eckhard
Message:

inifor: bugfix: removed dependency on radiation input files

Location:
palm/trunk/UTIL/inifor
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/README

    r3678 r3764  
    1 # INIFOR - Mesoscale Interface for Initializing and Forcing PALM-4U (v1.4.4)
     1# INIFOR - Mesoscale Interface for Initializing and Forcing PALM-4U (v1.4.6)
    22
    33INIFOR provides the meteorological fields required to initialize and drive the
  • palm/trunk/UTIL/inifor/src/inifor_defs.f90

    r3716 r3764  
    2626! -----------------
    2727! $Id$
     28! Bumped version number
     29!
     30!
     31! 3716 2019-02-05 17:02:38Z eckhard
    2832! Bumped version number
    2933!
     
    132136 INTEGER, PARAMETER          ::  FORCING_STEP = 1             !< Number of hours between forcing time steps [h]
    133137 REAL(dp), PARAMETER         ::  NUDGING_TAU = 21600.0_dp     !< Nudging relaxation time scale [s]
    134  CHARACTER(LEN=*), PARAMETER ::  VERSION = '1.4.5'            !< INIFOR version number
     138 CHARACTER(LEN=*), PARAMETER ::  VERSION = '1.4.6'            !< INIFOR version number
    135139 CHARACTER(LEN=*), PARAMETER ::  COPYRIGHT = 'Copyright 2017-2018 Leibniz Universitaet Hannover' // &
    136140     ACHAR( 10 ) // ' Copyright 2017-2018 Deutscher Wetterdienst Offenbach' !< Copyright notice
  • palm/trunk/UTIL/inifor/src/inifor_io.f90

    r3716 r3764  
    2626! -----------------
    2727! $Id$
     28! Removed dependency on radiation input files
     29!
     30!
     31! 3716 2019-02-05 17:02:38Z eckhard
    2832! Removed dependency on soilmoisture input files
    2933!
     
    565569                          TRIM(date_string) // TRIM(suffix) // '.nc'
    566570
    567          message = "Set up input file name '" // TRIM(file_list(i+1)) // "'"
    568          CALL report('input_file_list', message)
    569 
    570571      END DO
    571572
     
    646647
    647648      END IF
     649
     650      message = "Set up input file name '" // TRIM(file_name) // "'"
     651      CALL report('verify_file', message)
    648652
    649653   END SUBROUTINE verify_file
Note: See TracChangeset for help on using the changeset viewer.