Changeset 3766 for palm/trunk/SOURCE/init_masks.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/init_masks.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_masks.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3687 2019-01-22 10:42:06Z knoop
 ! unused variables removed
 ! 
@@ -166 +169 @@
 
     USE control_parameters,                                                    &
-        ONLY:  air_chemistry,                                                  &
-               constant_diffusion, cloud_droplets,                             &
+        ONLY:  constant_diffusion, cloud_droplets,                             &
                data_output_masks, data_output_masks_user,                      &
                doav, doav_n, domask, domask_no, dz, dz_stretch_level_start,    &
@@ -177 +179 @@
                mask_x_loop, mask_xyz_dimension, mask_y, mask_y_loop, mask_z,   &
                mask_z_loop, max_masks,  message_string, mid,                   &
-               passive_scalar, ocean_mode, salsa, varnamelength
+               passive_scalar, ocean_mode, varnamelength
 
     USE grid_variables,                                                        &