Changeset 4100 for palm/trunk/SOURCE


Ignore:
Timestamp:
Jul 17, 2019 8:11:29 AM (2 years ago)
Author:
forkel
Message:

Made check for input_pids_dynamic and inifor more general

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r4012 r4100  
    2525! -----------------
    2626! $Id$
     27! Made check for input_pids_dynamic and 'inifor' more general
     28!
     29!
     30! 4012 2019-05-31 15:19:05Z monakurppa
    2731!
    2832! 3994 2019-05-22 18:08:09Z suehring
     
    40844088!--    prescribed.
    40854089       IF ( .NOT. input_pids_dynamic  .AND.                                    &
    4086             TRIM( initializing_actions ) == 'inifor' )  THEN
     4090            INDEX( initializing_actions, 'inifor' ) /= 0 )  THEN
    40874091          message_string = 'initializing_actions = inifor requires dynamic ' //&
    40884092                           'input file ' // TRIM( input_file_dynamic ) //      &
Note: See TracChangeset for help on using the changeset viewer.