Changeset 4434 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Mar 3, 2020 10:02:18 AM (5 years ago)

Author:

oliver.maas

Message:

added optional netcdf data input for wtm array input parameters

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! added optional netcdf data input for wtm array input parameters
+! 
+! 4404 2020-02-12 17:01:53Z suehring
 ! Fix misplaced preprocessor directives.
 ! 
@@ -646 +649 @@
     CHARACTER(LEN=100) ::  input_file_uvem    = 'PIDS_UVEM'    !< Name of file which comprises static uv_exposure model input data
     CHARACTER(LEN=100) ::  input_file_vm      = 'PIDS_VM'      !< Name of file which comprises virtual measurement data
-    
+    CHARACTER(LEN=100) ::  input_file_wtm     = 'PIDS_WTM'     !< Name of file which comprises wind turbine model input data
+        
     CHARACTER(LEN=25), ALLOCATABLE, DIMENSION(:) ::  string_values  !< output of string variables read from netcdf input files
     CHARACTER(LEN=50), DIMENSION(:), ALLOCATABLE ::  vars_pids      !< variable in input file
@@ -661 +665 @@
     LOGICAL ::  input_pids_uvem    = .FALSE.   !< Flag indicating whether uv-expoure-model input file containing static information exists
     LOGICAL ::  input_pids_vm      = .FALSE.   !< Flag indicating whether input file for virtual measurements exist
+    LOGICAL ::  input_pids_wtm     = .FALSE.   !< Flag indicating whether input file for wind turbine model exists
 
     LOGICAL ::  collective_read = .FALSE.      !< Enable NetCDF collective read
@@ -764 +769 @@
            input_pids_static,                                                  &
            input_pids_dynamic, input_pids_vm, input_file_vm,                   &
+           input_pids_wtm, input_file_wtm,                                     &
            num_var_pids,                                                       &
            pavement_pars_f, pavement_subsurface_pars_f, pavement_type_f,       &
@@ -827 +833 @@
        INQUIRE( FILE = TRIM( input_file_vm )      // TRIM( coupling_char ),    &
                 EXIST = input_pids_vm )
+       INQUIRE( FILE = TRIM( input_file_wtm )     // TRIM( coupling_char ),    &
+                EXIST = input_pids_wtm )
 #endif