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

palm/trunk/SOURCE/surface_data_output_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix in surface_data_output_rrd_local (variable k removed)
+! 
+! 3762 2019-02-25 16:54:16Z suehring
 ! Remove unused variables and add preprocessor directives for variables that 
 ! are used only when netcdf4 is defined 
@@ -4509 +4512 @@
        IMPLICIT NONE
 
-       INTEGER(iwp)       ::  k                 !< running index over previous input files covering current local domain
-
        LOGICAL, INTENT(OUT)  ::  found
+
 !
 !--    Here the reading of user-defined restart data follows:
@@ -4520 +4522 @@
 
           CASE ( 'surfaces%var_av' )
-             IF ( k == 1 )  READ ( 13 )  surfaces%var_av
+             READ ( 13 )  surfaces%var_av
 
           CASE DEFAULT