Changeset 3766 for palm/trunk/SOURCE/data_output_3d.f90

Timestamp:

Feb 26, 2019 4:23:41 PM (5 years ago)

Author:

raasch

Message:

unused_variables removed, bugfix in im_define_netcdf_grid argument list, trim added to avoid truncation compiler warnings, save attribute added to local targets to avoid outlive pointer target warning, first argument removed from module_interface_rrd_*, file module_interface reformatted with respect to coding standards, bugfix in surface_data_output_rrd_local (variable k removed)

File:

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

palm/trunk/SOURCE/data_output_3d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Bugfix: use time_since_reference_point instead of simulated_time (relevant
 ! when using wall/soil spinup)
@@ -244 +247 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  d_exner, e, nc, nr, p, pt, prr, q, qc, ql, ql_c, ql_v, qr, s,   &
-               tend, u, v, vpt, w
+        ONLY:  d_exner, e, p, pt, q, ql, ql_c, ql_v, s, tend, u, v, vpt, w
 
     USE averaging
@@ -256 +258 @@
 
     USE control_parameters,                                                    &
-        ONLY:  air_chemistry, biometeorology, do3d, do3d_no, do3d_time_count,  &
-               io_blocks, io_group, land_surface, message_string,              &
-               ntdim_3d, nz_do3d,  ocean_mode, plant_canopy,                   &
-               psolver, salsa, time_since_reference_point,                     &
-               urban_surface, varnamelength
+        ONLY:  do3d, do3d_no, do3d_time_count, io_blocks, io_group,            &
+               land_surface, message_string, ntdim_3d, nz_do3d, psolver,       &
+               time_since_reference_point, urban_surface, varnamelength
 
     USE cpulog,                                                                &