Changeset 3761 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Feb 25, 2019 3:31:42 PM (5 years ago)

Author:

raasch

Message:

unused variables removed, OpenACC directives re-formatted, statements added to avoid compiler warnings

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -628 +628 @@
 
     USE netcdf_data_input_mod,                                                 &
-        ONLY:  chem_emis, chem_emis_att, init_3d,                              &
+        ONLY:  init_3d,                              &
                netcdf_data_input_init_3d, netcdf_data_input_interpolate
 
@@ -643 +643 @@
         ONLY:  nested_run
 #endif
-
-    USE radiation_model_mod,                                                   &
-        ONLY:  radiation, radiation_scheme
 
     USE random_function_mod 
@@ -670 +667 @@
     USE surface_mod,                                                           &
         ONLY :  init_surface_arrays, init_surfaces, surf_def_h, surf_lsm_h,    &
-                surf_usm_h, get_topography_top_index_ji, vertical_surfaces_exist
+                surf_usm_h, get_topography_top_index_ji
 
     USE surface_data_output_mod,                                               &