Changeset 3997 for palm/trunk/UTIL/inifor/src/inifor_io.f90

Timestamp:

May 23, 2019 12:35:57 PM (5 years ago)

Author:

eckhard

Message:

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

File:

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

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Added boolean indicator for --elevation option invocation
+! Stop INIFOR if no command-line options given
+! 
+! 
+! 3866 2019-04-05 14:25:01Z eckhard
 ! Use PALM's working precision
 ! Improved coding style
@@ -143 +148 @@
 !------------------------------------------------------------------------------!
     INTERFACE get_netcdf_variable
-        MODULE PROCEDURE get_netcdf_variable_int
-        MODULE PROCEDURE get_netcdf_variable_real
+       MODULE PROCEDURE get_netcdf_variable_int
+       MODULE PROCEDURE get_netcdf_variable_real
     END INTERFACE get_netcdf_variable
 
@@ -411 +416 @@
     INTEGER                            ::  arg_count, i
 
-    cfg%p0_is_set = .FALSE.
-    cfg%ug_defined_by_user = .FALSE.
-    cfg%vg_defined_by_user = .FALSE.
     cfg%flow_prefix_is_set = .FALSE.
     cfg%input_prefix_is_set = .FALSE.
+    cfg%p0_is_set = .FALSE.
     cfg%radiation_prefix_is_set = .FALSE.
     cfg%soil_prefix_is_set = .FALSE.
     cfg%soilmoisture_prefix_is_set = .FALSE.
+    cfg%ug_defined_by_user = .FALSE.
+    cfg%vg_defined_by_user = .FALSE.
+    cfg%z0_is_set = .FALSE.
 
     arg_count = COMMAND_ARGUMENT_COUNT()
@@ -448 +454 @@
 
              CASE( '-z0', '-z', '--elevation' )
+                cfg%z0_is_set = .TRUE.
                 CALL get_option_argument( i, arg )
                 READ(arg, *) cfg%z0
@@ -552 +559 @@
     ELSE
          
-       message = "No arguments present, using default input and output files"
-       CALL report('parse_command_line_arguments', message)
+       CALL print_version
+       CALL report( 'parse_command_line_arguments', 'No arguments present, exiting.' )
+       STOP
 
     ENDIF
@@ -559 +567 @@
  END SUBROUTINE parse_command_line_arguments
 
-   
+
 
  SUBROUTINE get_datetime_file_list( start_date_string, start_hour, end_hour, &