Changeset 4100 for palm

Timestamp:

Jul 17, 2019 8:11:29 AM (5 years ago)

Author:

forkel

Message:

Made check for input_pids_dynamic and inifor more general

File:

• palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Made check for input_pids_dynamic and 'inifor' more general
+! 
+! 
+! 4012 2019-05-31 15:19:05Z monakurppa
 ! 
 ! 3994 2019-05-22 18:08:09Z suehring
@@ -4084 +4088 @@
 !--    prescribed.
        IF ( .NOT. input_pids_dynamic  .AND.                                    &
-            TRIM( initializing_actions ) == 'inifor' )  THEN
+            INDEX( initializing_actions, 'inifor' ) /= 0 )  THEN
           message_string = 'initializing_actions = inifor requires dynamic ' //&
                            'input file ' // TRIM( input_file_dynamic ) //      &