Ignore:
Timestamp:
May 23, 2019 12:35:57 PM (2 years ago)
Author:
eckhard
Message:

inifor: Read origin_z from static driver if given; alert user to warnings

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/src/inifor_io.f90

    r3866 r3997  
    2626! -----------------
    2727! $Id$
     28! Added boolean indicator for --elevation option invocation
     29! Stop INIFOR if no command-line options given
     30!
     31!
     32! 3866 2019-04-05 14:25:01Z eckhard
    2833! Use PALM's working precision
    2934! Improved coding style
     
    143148!------------------------------------------------------------------------------!
    144149    INTERFACE get_netcdf_variable
    145         MODULE PROCEDURE get_netcdf_variable_int
    146         MODULE PROCEDURE get_netcdf_variable_real
     150       MODULE PROCEDURE get_netcdf_variable_int
     151       MODULE PROCEDURE get_netcdf_variable_real
    147152    END INTERFACE get_netcdf_variable
    148153
     
    411416    INTEGER                            ::  arg_count, i
    412417
    413     cfg%p0_is_set = .FALSE.
    414     cfg%ug_defined_by_user = .FALSE.
    415     cfg%vg_defined_by_user = .FALSE.
    416418    cfg%flow_prefix_is_set = .FALSE.
    417419    cfg%input_prefix_is_set = .FALSE.
     420    cfg%p0_is_set = .FALSE.
    418421    cfg%radiation_prefix_is_set = .FALSE.
    419422    cfg%soil_prefix_is_set = .FALSE.
    420423    cfg%soilmoisture_prefix_is_set = .FALSE.
     424    cfg%ug_defined_by_user = .FALSE.
     425    cfg%vg_defined_by_user = .FALSE.
     426    cfg%z0_is_set = .FALSE.
    421427
    422428    arg_count = COMMAND_ARGUMENT_COUNT()
     
    448454
    449455             CASE( '-z0', '-z', '--elevation' )
     456                cfg%z0_is_set = .TRUE.
    450457                CALL get_option_argument( i, arg )
    451458                READ(arg, *) cfg%z0
     
    552559    ELSE
    553560         
    554        message = "No arguments present, using default input and output files"
    555        CALL report('parse_command_line_arguments', message)
     561       CALL print_version
     562       CALL report( 'parse_command_line_arguments', 'No arguments present, exiting.' )
     563       STOP
    556564
    557565    ENDIF
     
    559567 END SUBROUTINE parse_command_line_arguments
    560568
    561    
     569
    562570
    563571 SUBROUTINE get_datetime_file_list( start_date_string, start_hour, end_hour, &
Note: See TracChangeset for help on using the changeset viewer.