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

Timestamp:

Feb 5, 2019 5:02:38 PM (5 years ago)

Author:

eckhard

Message:

inifor: bugfix: removed dependency on soilmoisture input files; added netcdf preprocessor flag

File:

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

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Removed dependency on soilmoisture input files
+! 
+! 
+! 3680 2019-01-18 14:54:12Z knoop
 ! Moved get_input_file_list() here from grid module, added check for presence of
 !    input files
@@ -576 +580 @@
    SUBROUTINE get_input_file_list( start_date_string, start_hour, end_hour,    &
                                    step_hour, input_path, prefix, suffix,      &
-                                   file_list )
+                                   file_list, nocheck )
 
       CHARACTER (LEN=DATE), INTENT(IN) ::  start_date_string
@@ -582 +586 @@
       INTEGER,              INTENT(IN) ::  start_hour, end_hour, step_hour
       CHARACTER(LEN=*), ALLOCATABLE, INTENT(INOUT) ::  file_list(:)
+      LOGICAL, OPTIONAL, INTENT(IN)    ::  nocheck
 
       INTEGER             ::  number_of_intervals, hour, i
       CHARACTER(LEN=DATE) ::  date_string
       CHARACTER(LEN=PATH) ::  file_name
+      LOGICAL             ::  check_files
 
       CALL get_datetime_file_list( start_date_string, start_hour, end_hour,    &
@@ -591 +597 @@
                                    file_list )
 
-      tip = "Please check if you specified the correct file prefix " //        &
-            "using the options --input-prefix, --flow-prefix, etc."
-
-      DO i = 1, SIZE(file_list)
-          CALL verify_file(file_list(i), 'input', tip)
-      END DO
+      check_files = .TRUE.
+      IF ( PRESENT ( nocheck ) )  THEN
+         IF ( nocheck )  check_files = .FALSE.
+      END IF
+
+      IF ( check_files )  THEN
+
+         tip = "Please check if you specified the correct file prefix " //     &
+               "using the options --input-prefix, --flow-prefix, etc."
+
+         DO i = 1, SIZE(file_list)
+             CALL verify_file(file_list(i), 'input', tip)
+         END DO
+
+      END IF
 
    END SUBROUTINE get_input_file_list