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

palm/trunk/SOURCE/user_init_land_surface.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables commented out
+! 
+! 3700 2019-01-26 17:03:42Z knoop
 ! Corrected "Former revisions" section
 ! 
@@ -66 +69 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i  !< grid index
-    INTEGER(iwp) ::  j  !< grid index
-    INTEGER(iwp) ::  m  !< running index on 1D wall-type grid
+!    INTEGER(iwp) ::  i  !< grid index
+!    INTEGER(iwp) ::  j  !< grid index
+!    INTEGER(iwp) ::  m  !< running index on 1D wall-type grid
 
 !