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

Timestamp:

Aug 27, 2019 3:42:37 PM (4 years ago)

Author:

suehring

Message:

Implement external radiation forcing also for level-of-detail = 2 (horizontally 2D radiation)

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! type real_1d changed to real_1d_3d
+! 
+! 4186 2019-08-23 16:06:14Z suehring
 ! Minor formatting adjustments
 ! 
@@ -396 +399 @@
     END TYPE int_2d_32bit
 !
-!-- Define data type to read 1D real variables
-    TYPE real_1d
+!-- Define data type to read 1D or 3D real variables. 
+    TYPE real_1d_3d
        LOGICAL ::  from_file = .FALSE.  !< flag indicating whether an input variable is available and read from file or default values are used
 
+       INTEGER(iwp) ::  lod = -1        !< level-of-detail
+       
        REAL(wp) ::  fill = -9999.9_wp                  !< fill value
        
-       REAL(wp), DIMENSION(:), ALLOCATABLE ::  var     !< respective variable
-    END TYPE real_1d   
+       REAL(wp), DIMENSION(:),     ALLOCATABLE ::  var1d     !< respective 1D variable
+       REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  var3d     !< respective 3D variable
+    END TYPE real_1d_3d   
 !
 !-- Define data type to read 2D real variables
@@ -409 +415 @@
        LOGICAL ::  from_file = .FALSE.  !< flag indicating whether an input variable is available and read from file or default values are used
 
+       INTEGER(iwp) ::  lod             !< level-of-detail
+       
        REAL(wp) ::  fill = -9999.9_wp                !< fill value
        REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  var !< respective variable
@@ -747 +755 @@
 !
 !-- Public data structures
-    PUBLIC real_1d,                                                            &
+    PUBLIC real_1d_3d,                                                         &
            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, char_fill,         &
+           building_id_f, building_pars_f, building_type_f,                    &
+           char_fill,                                                          &
+           char_lod,                                                           &
            chem_emis, chem_emis_att, chem_emis_att_type, chem_emis_val_type,   &
            coord_ref_sys,                                                      &