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

Timestamp:

Aug 21, 2019 11:13:06 AM (5 years ago)

Author:

suehring

Message:

Enable external time-dependent radiative forcing with downwelling short- and longwave radiation. Optionally, also downwelling diffuse radiation can be provided. Radiation data will be provided via dynamic input file.

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Implement input of external radiation forcing. Therefore, provide public
+! subroutines and variables. 
+! 
+! 4150 2019-08-08 20:00:47Z suehring
 ! Some variables are given the public attribute, in order to call netcdf input
 ! from single routines
@@ -608 +612 @@
        LOGICAL ::  from_file = .FALSE. !< flag indicating whether an input variable is available and read from file or default values are used
     END TYPE int_2d_32bit
-
+!
+!-- Define data type to read 1D real variables
+    TYPE real_1d
+       LOGICAL ::  from_file = .FALSE.  !< flag indicating whether an input variable is available and read from file or default values are used
+
+       REAL(wp) ::  fill = -9999.9_wp                  !< fill value
+       
+       REAL(wp), DIMENSION(:), ALLOCATABLE ::  var     !< respective variable
+    END TYPE real_1d   
 !
 !-- Define data type to read 2D real variables
@@ -834 +846 @@
     CHARACTER(LEN=100) ::  input_file_vm      = 'PIDS_VM'      !< Name of file which comprises virtual measurement data
     
-    CHARACTER(LEN=25), ALLOCATABLE, DIMENSION(:)    ::  string_values  !< output of string variables read from netcdf input files
+    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
 
     INTEGER(iwp)                                     ::  id_emis        !< NetCDF id of input file for chemistry emissions: TBD: It has to be removed
 
     INTEGER(iwp) ::  nc_stat         !< return value of nf90 function call
+    INTEGER(iwp) ::  num_var_pids    !< number of variables in file
+    INTEGER(iwp) ::  pids_id         !< file id
 
     LOGICAL ::  input_pids_static  = .FALSE.   !< Flag indicating whether Palm-input-data-standard file containing static information exists
@@ -949 +964 @@
 !
 !-- Public data structures
-    PUBLIC real_2d
+    PUBLIC real_1d,                                                            &
+           real_2d
 !
 !-- Public variables
@@ -956 +972 @@
            chem_emis, chem_emis_att, chem_emis_att_type, chem_emis_val_type,   &
            coord_ref_sys,                                                      &
-           init_3d, init_model, input_file_atts, input_file_static,            &
+           init_3d, init_model, input_file_atts,                               &
+           input_file_dynamic,                                                 &
+           input_file_static,                                                  &
            input_pids_static,                                                  &
            input_pids_dynamic, input_pids_vm, input_file_vm,                   &
            leaf_area_density_f, nest_offl,                                     &
+           num_var_pids,                                                       &
            pavement_pars_f, pavement_subsurface_pars_f, pavement_type_f,       &
+           pids_id,                                                            &
            root_area_density_lad_f, root_area_density_lsm_f, soil_pars_f,      &
            soil_type_f, street_crossing_f, street_type_f, surface_fraction_f,  &
            terrain_height_f, vegetation_pars_f, vegetation_type_f,             &
+           vars_pids,                                                          &
            water_pars_f, water_type_f
 !