Changeset 3537 for palm/trunk/UTIL/inifor/src/inifor.f90

Timestamp:

Nov 20, 2018 10:53:14 AM (5 years ago)

Author:

eckhard

Message:

inifor: COSMO-D2 support

File:

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

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Print version number on program start
+! 
+! 
+! 3456 2018-10-30 14:29:54Z eckhard
 ! NetCDf output of internal arrays only with --debug option 
 ! 
@@ -110 +114 @@
 !------------------------------------------------------------------------------
  CALL run_control('init', 'void')
+    CALL report('main_loop', 'Running INIFOR version ' // VERSION)
 
     ! Initialize INIFOR's parameters from command-line interface and namelists