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

Timestamp:

Aug 8, 2019 8:00:47 PM (5 years ago)

Author:

suehring

Message:

Framework to input single surface variables independent on land/urban-surface model via static input file provided. This way, input and initialization of heterogeneous roughness was already added.

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Some variables are given the public attribute, in order to call netcdf input
+! from single routines
+! 
+! 4125 2019-07-29 13:31:44Z suehring
 ! To enable netcdf-parallel access for lateral boundary data (dynamic input), 
 ! zero number of elements are passed to the respective get_variable routine 
@@ -944 +948 @@
 
 !
+!-- Public data structures
+    PUBLIC real_2d
+!
 !-- Public variables
     PUBLIC albedo_pars_f, albedo_type_f, basal_area_density_f, buildings_f,    &
-           building_id_f, building_pars_f, building_type_f,                    &
+           building_id_f, building_pars_f, building_type_f, char_fill,         &
            chem_emis, chem_emis_att, chem_emis_att_type, chem_emis_val_type,   &
            coord_ref_sys,                                                      &